path: root/dists/win32/shebang-vanilla.pl

#!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);
    
  }