summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--dists/win32/shebang-activeperl.pl6
-rw-r--r--dists/win32/shebang-strawberry.pl6
-rw-r--r--dists/win32/shebang-vanilla.pl6
3 files changed, 15 insertions, 3 deletions
diff --git a/dists/win32/shebang-activeperl.pl b/dists/win32/shebang-activeperl.pl
index b3c6ac14..b9b27641 100644
--- a/dists/win32/shebang-activeperl.pl
+++ b/dists/win32/shebang-activeperl.pl
@@ -16,7 +16,11 @@ foreach $file (@perlfiles) {
$line = shift @file;
- print FH "#!c:\\perl\\bin\\perl\n";
+ if ($line =~ /^#!/) {
+ print FH "#!c:\\perl\\bin\\perl\n";
+ } else {
+ print FH $line;
+ }
print FH @file;
close(FH);
diff --git a/dists/win32/shebang-strawberry.pl b/dists/win32/shebang-strawberry.pl
index 9c30b593..f2c0361f 100644
--- a/dists/win32/shebang-strawberry.pl
+++ b/dists/win32/shebang-strawberry.pl
@@ -16,7 +16,11 @@ foreach $file (@perlfiles) {
$line = shift @file;
- print FH "#!c:\\strawberry-perl\\perl\\bin\\perl\n";
+ if ($line =~ /^#!/) {
+ print FH "#!c:\\strawberry-perl\\perl\\bin\\perl\n";
+ } else {
+ print FH $line;
+ }
print FH @file;
close(FH);
diff --git a/dists/win32/shebang-vanilla.pl b/dists/win32/shebang-vanilla.pl
index 6c8a5c95..31cdf6fc 100644
--- a/dists/win32/shebang-vanilla.pl
+++ b/dists/win32/shebang-vanilla.pl
@@ -16,7 +16,11 @@ foreach $file (@perlfiles) {
$line = shift @file;
- print FH "#!c:\\vanilla-perl\\perl\\bin\\perl\n";
+ if ($line =~ /^#!/) {
+ print FH "#!c:\\vanilla-perl\\perl\\bin\\perl\n";
+ } else {
+ print FH $line;
+ }
print FH @file;
close(FH);