From 8861942877bfcf29486c8fd6366712d7043f2315 Mon Sep 17 00:00:00 2001 From: Jianing Yang Date: Mon, 19 Jan 2015 11:29:53 +0800 Subject: [PATCH] fix shebang mung error on /usr/bin/env --- source/lib/Seco/Multipkg.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/source/lib/Seco/Multipkg.pm b/source/lib/Seco/Multipkg.pm index 17e844b..706e580 100644 --- a/source/lib/Seco/Multipkg.pm +++ b/source/lib/Seco/Multipkg.pm @@ -615,6 +615,8 @@ sub shebangmunge { my $firstline = <$g>; next unless ( $firstline =~ m#^\#\!(/.*/)(\w+)\s+?(.*)# ); my ( $path, $interpreter, $options ) = ( $1, $2, $3 ); + # skip shebang like '/usr/bin/env perl'. + next if $interpreter eq 'env'; if ( $self->info->data->{$interpreter} ) { $self->infomsg("SHEBANG-MUNGING $interpreter: $dirname/$f");