summaryrefslogtreecommitdiff
path: root/dists/win32
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-06 21:40:36 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-06 21:40:36 +0000
commit8132f9e4c6e084ba0bc7b57e6a25a93b0c27b972 (patch)
tree0bc61a9fc4ca75370b499ca4e0bf8515746930bd /dists/win32
parent49cfee93420a50d15cd0168a92742bee61bc43e1 (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
Diffstat (limited to 'dists/win32')
-rw-r--r--dists/win32/shebang-strawberry.pl25
1 files changed, 25 insertions, 0 deletions
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);
+
+}
+