Use ~-expanded version of privlib

[p5sagit/p5-mst-13.2.git] / os2 / perl2cmd.pl

diff --git a/os2/perl2cmd.pl b/os2/perl2cmd.pl
index 2155549..aa1c353 100644 (file)
--- a/os2/perl2cmd.pl
+++ b/os2/perl2cmd.pl
@@ -22,7 +22,7 @@ foreach $file (<$idir/*.>) {
   $base =~ s|.*/||;
   $file =~ s|/|\\|g ;
   print "Processing $file => $dir\\$base.cmd\n";
-  system "echo extproc perl -S > $dir\\$base.cmd";
-  system "type $file >> $dir\\$base.cmd";
+  system 'cmd.exe', '/c', "echo extproc perl -Sx > $dir\\$base.cmd";
+  system 'cmd.exe', '/c', "type $file >> $dir\\$base.cmd";
 }