# | Line 31 | Line 31 | while ($line = <INPUT>) | |
---|---|---|
31 | my $perl = qx("which" "perl"); | |
32 | ||
33 | chomp($perl); | |
34 | < | |
34 | > | |
35 | if ($perl ne "" && $line ne "#!$perl") | |
36 | { | |
37 | $line = "#!$perl"; | |
# | Line 65 | Line 65 | while ($line = <INPUT>) | |
65 | ||
66 | close(INPUT); | |
67 | close(OUTPUT); | |
68 | + | |
69 | + | chmod(0755, $output); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |