SF.net SVN: ledger-smb: [1137] trunk

[..hidden..]

Revision: 1137
          http://svn.sourceforge.net/ledger-smb/?rev=1137&view=rev
Author:   einhverfr
Date:     2007-05-06 14:40:36 -0700 (Sun, 06 May 2007)

Log Message:
-----------
Adding shebang script for Strawberry Perl

Modified Paths:
--------------
    trunk/CONTRIBUTORS

Added Paths:
-----------
    trunk/dists/win32/shebang-strawberry.pl

Modified: trunk/CONTRIBUTORS
===================================================================
--- trunk/CONTRIBUTORS	2007-05-06 19:16:51 UTC (rev 1136)
+++ trunk/CONTRIBUTORS	2007-05-06 21:40:36 UTC (rev 1137)
@@ -57,6 +57,9 @@
 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>

Added: trunk/dists/win32/shebang-strawberry.pl
===================================================================
--- trunk/dists/win32/shebang-strawberry.pl	                        (rev 0)
+++ trunk/dists/win32/shebang-strawberry.pl	2007-05-06 21:40:36 UTC (rev 1137)
@@ -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, ".";
..hidden.. = 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);
+
+}
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.