diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-06 21:40:36 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-06 21:40:36 +0000 |
| commit | 8132f9e4c6e084ba0bc7b57e6a25a93b0c27b972 (patch) | |
| tree | 0bc61a9fc4ca75370b499ca4e0bf8515746930bd | |
| parent | 49cfee93420a50d15cd0168a92742bee61bc43e1 (diff) | |
Adding shebang script for Strawberry Perl
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1137 4979c152-3d1c-0410-bac9-87ea11338e46
| -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); + +} + |