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

#!c:\strawberry-perl\perl\bin\perl
# Use this script to convert the beginnings of files to the path to Strawberry Perl
# if you are installing with Strawberry 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;

    if ($line =~ /^#!/) {
        print FH "#!c:\\strawberry-perl\\perl\\bin\\perl\n";
    } else {
        print FH $line;
    }
    print FH @file;

    close(FH);

}