#!/usr/local/bin/perl # # modify the '#!/usr/local/bin/perl' # line in all scripts that rely on perl. # require "find.pl"; $#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n"; &find("."); sub wanted { return unless /\.pl$/ || /^[Cc]onfigur/; open(IN,"<$_") || die "unable to open $dir/$_:$!\n"; @a=<IN>; close(IN); if (-d $ARGV[0]) { $a[0]="#!$ARGV[0]/perl\n"; } else { $a[0]="#!$ARGV[0]\n"; } # Playing it safe... $new="$_.new"; open(OUT,">$new") || die "unable to open $dir/$new:$!\n"; print OUT @a; close(OUT); rename($new,$_) || die "unable to rename $dir/$new:$!\n"; chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n"; }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 10713 | Robert Cowham |
Populate //guest/robert_cowham/openssl/1.0.1j/... from //guest/robert_cowham/openssl/main/.... |
||
//guest/robert_cowham/openssl/main/util/perlpath.pl | |||||
#1 | 10711 | Robert Cowham | OpenSSL 1.0.1i |