1 files changed, 24 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);
+    
+  }