@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!perl -w
use strict;
#use File::Copy;
use File::Basename;
-#!/bin/perl
+#!perl
if($#ARGV<2) {
print "Usage: perl binreplace.pl [-i] [findstr] [replacestr] [filename]\n";
exit(1);
@@ -1801,7 +1801,7 @@ Note about a bug-slash-opportunity:
There's a bug in Text::Wrap, which affects cvs2cl. This script
reveals it:
- #!/usr/bin/perl -w
+ #!perl -w
use Text::Wrap;