[Bps-public-commit] r15289 - in Shipwright/trunk: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Aug 20 09:15:38 2008
New Revision: 15289

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Build.pm

Log:
 r15880 at sunnavys-mb:  sunnavy | 2008-08-20 21:15:24 +0800
 updated lib/Shipwright/Build.pm accrodingly


Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Wed Aug 20 09:15:38 2008
@@ -339,7 +339,7 @@
                 $type = 'perl';
             }
             elsif (
-                $shebang =~ m{$base(?:/|\\)(?:s?bin|libexec)(?:/|\\)(\w+)
+                $shebang =~ m{$base(?:/|\\)(?:s?bin)(?:/|\\)(\w+)
                 |\benv\s+(\w+)}x
               )
             {
@@ -373,7 +373,7 @@
     my @dirs =
       grep { -d $_ }
       map { catfile( $self->install_base, $_ ) }
-      qw/bin sbin libexec/;
+      qw/bin sbin/;
     find( $sub, @dirs ) if @dirs;
 }