[Bps-public-commit] r10502 - bpsbuilder/Shipwright/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jan 25 15:53:39 2008
New Revision: 10502

Modified:
   bpsbuilder/Shipwright/lib/Shipwright/Backend.pm

Log:
tiny fix

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Fri Jan 25 15:53:39 2008
@@ -324,7 +324,7 @@
             open my $fh, '<', $file or die "can't open $file: $!";
             my $shebang = <$fh>;
             if ( $shebang =~
-                m{$args{'install-base'}(?:/|\\)(?:s?bin|libexec)(?:/|\\)(\w+)} )
+                m{\Q$args{'install-base'}\E(?:/|\\)(?:s?bin|libexec)(?:/|\\)(\w+)} )
             {
                 $type = $1;
             }