summaryrefslogtreecommitdiff
path: root/dists/win32/shebang-vanilla.pl
blob: 73d02590ba954ec9f426c6788639743f43dfe499 (plain)
  1. #!c:\vanilla-perl\perl\bin\perl
  2. # Use this script to convert the beginnings of files to the path to ActivePerl
  3. # if you are installing with Vanilla Perl.
  4. opendir DIR, ".";
  5. @perlfiles = grep /\.pl/, readdir DIR;
  6. closedir DIR;
  7. foreach $file (@perlfiles) {
  8. open FH, "+<$file";
  9. @file = <FH>;
  10. seek(FH, 0, 0);
  11. truncate(FH, 0);
  12. $line = shift @file;
  13. print FH "#!c:\\vanilla-perl\\perl\\bin\\perl\n";
  14. print FH @file;
  15. close(FH);
  16. }