summaryrefslogtreecommitdiff
path: root/dists/win32
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-10 17:46:46 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-10 17:46:46 +0000
commitdcb01a2da89e581046f8b7b03eaf2245f77ab4e0 (patch)
tree39d475d9decccaabcdb0392cde24076abe5dcb99 /dists/win32
parentcb446e0561a04725809fe8669160fff3b2cbef9d (diff)
Added shebang scripts for Windows
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@503 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'dists/win32')
-rw-r--r--dists/win32/shebang-activeperl.pl24
-rw-r--r--dists/win32/shebang-vanilla.pl24
2 files changed, 48 insertions, 0 deletions
diff --git a/dists/win32/shebang-activeperl.pl b/dists/win32/shebang-activeperl.pl
new file mode 100644
index 00000000..6fce8c24
--- /dev/null
+++ b/dists/win32/shebang-activeperl.pl
@@ -0,0 +1,24 @@
+#!c:\perl\bin\perl
+# Use this script to convert the beginnings of files to the path to ActivePerl
+# if you are installing with ActivePerl.
+
+ 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:\\perl\\bin\\perl\n";
+ print FH @file;
+
+ close(FH);
+
+ }
diff --git a/dists/win32/shebang-vanilla.pl b/dists/win32/shebang-vanilla.pl
new file mode 100644
index 00000000..bcc69498
--- /dev/null
+++ b/dists/win32/shebang-vanilla.pl
@@ -0,0 +1,24 @@
+#!c:\vanilla-perl\perl\bin
+# Use this script to convert the beginnings of files to the path to ActivePerl
+# if you are installing with Vanilla 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:\\vanilla-perl\\perl\\bin\n";
+ print FH @file;
+
+ close(FH);
+
+ }