diff options
| -rw-r--r-- | CONTRIBUTORS | 3 | ||||
| -rw-r--r-- | dists/win32/shebang-strawberry.pl | 25 |
2 files changed, 28 insertions, 0 deletions
diff --git a/CONTRIBUTORS b/CONTRIBUTORS index 282aa8b5..51b35dcb 100644 --- a/CONTRIBUTORS +++ b/CONTRIBUTORS @@ -57,6 +57,9 @@ Jeff Kowalczyk [email omitted] contributed the ledger-smb-smallgray.css Matt S Trout, <mst @ shadowcatsystems.co.uk> CPAN: MSTROUT, IRC: mst#irc.perl.org contributed the initial Makefile.PL +Chris Nighswonger, <cnighswonger @ foundations.edu> contributed the +shebang-strawberry.pl + Original Authors of SQL-Ledger: =================================== Dieter Simader <dsimader @ sql-ledger.com> diff --git a/dists/win32/shebang-strawberry.pl b/dists/win32/shebang-strawberry.pl new file mode 100644 index 00000000..9c30b593 --- /dev/null +++ b/dists/win32/shebang-strawberry.pl @@ -0,0 +1,25 @@ +#!c:\strawberry-perl\perl\bin\perl +# Use this script to convert the beginnings of files to the path to Strawberry Perl +# if you are installing with Strawberry Perl. + +opendir DIR, "."; +@perlfiles = grep /\.pl/, readdir DIR; +closedir DIR; + +foreach $file (@perlfiles) { + open FH, '+<', "$file"; + + @file = <FH>; + + seek( FH, 0, 0 ); + truncate( FH, 0 ); + + $line = shift @file; + + print FH "#!c:\\strawberry-perl\\perl\\bin\\perl\n"; + print FH @file; + + close(FH); + +} + |