SF.net SVN: ledger-smb: [1656] trunk/dists/win32

[..hidden..]

Revision: 1656
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1656&view=rev
Author:   tetragon
Date:     2007-09-23 13:42:04 -0700 (Sun, 23 Sep 2007)

Log Message:
-----------
Prevent the converters from mutilating files that don't start with a shebang

Modified Paths:
--------------
    trunk/dists/win32/shebang-activeperl.pl
    trunk/dists/win32/shebang-strawberry.pl
    trunk/dists/win32/shebang-vanilla.pl

Modified: trunk/dists/win32/shebang-activeperl.pl
===================================================================
--- trunk/dists/win32/shebang-activeperl.pl	2007-09-23 20:18:37 UTC (rev 1655)
+++ trunk/dists/win32/shebang-activeperl.pl	2007-09-23 20:42:04 UTC (rev 1656)
@@ -16,7 +16,11 @@
 
     $line = shift @file;
 
-    print FH "#!c:\\perl\\bin\\perl\n";
+    if ($line =~ /^#!/) {
+        print FH "#!c:\\perl\\bin\\perl\n";
+    } else {
+        print FH $line;
+    }
     print FH @file;
 
     close(FH);

Modified: trunk/dists/win32/shebang-strawberry.pl
===================================================================
--- trunk/dists/win32/shebang-strawberry.pl	2007-09-23 20:18:37 UTC (rev 1655)
+++ trunk/dists/win32/shebang-strawberry.pl	2007-09-23 20:42:04 UTC (rev 1656)
@@ -16,7 +16,11 @@
 
     $line = shift @file;
 
-    print FH "#!c:\\strawberry-perl\\perl\\bin\\perl\n";
+    if ($line =~ /^#!/) {
+        print FH "#!c:\\strawberry-perl\\perl\\bin\\perl\n";
+    } else {
+        print FH $line;
+    }
     print FH @file;
 
     close(FH);

Modified: trunk/dists/win32/shebang-vanilla.pl
===================================================================
--- trunk/dists/win32/shebang-vanilla.pl	2007-09-23 20:18:37 UTC (rev 1655)
+++ trunk/dists/win32/shebang-vanilla.pl	2007-09-23 20:42:04 UTC (rev 1656)
@@ -16,7 +16,11 @@
 
     $line = shift @file;
 
-    print FH "#!c:\\vanilla-perl\\perl\\bin\\perl\n";
+    if ($line =~ /^#!/) {
+        print FH "#!c:\\vanilla-perl\\perl\\bin\\perl\n";
+    } else {
+        print FH $line;
+    }
     print FH @file;
 
     close(FH);


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