diff options
Diffstat (limited to 'dists/win32/shebang-strawberry.pl')
-rw-r--r-- | dists/win32/shebang-strawberry.pl | 6 |
1 files changed, 5 insertions, 1 deletions
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); |