Use "use warnings" rather than -w on the #! line.

diff --git a/checksum-reading.diff b/checksum-reading.diff
index 4ad2250..03fed2c 100644 (file)
--- a/checksum-reading.diff
+++ b/checksum-reading.diff
@@ -806,9 +806,10 @@ diff --git a/support/rsyncsums b/support/rsyncsums
 new file mode 100755
 --- /dev/null
 +++ b/support/rsyncsums
-@@ -0,0 +1,201 @@
-+#!/usr/bin/perl -w
+@@ -0,0 +1,202 @@
++#!/usr/bin/perl
 +use strict;
++use warnings;
 +
 +use Getopt::Long;
 +use Cwd qw(abs_path cwd);

diff --git a/checksum-xattr.diff b/checksum-xattr.diff
index 1272f71..bd6d3de 100644 (file)
--- a/checksum-xattr.diff
+++ b/checksum-xattr.diff
@@ -38,9 +38,10 @@ diff --git a/support/xsums b/support/xsums
 new file mode 100644
 --- /dev/null
 +++ b/support/xsums
-@@ -0,0 +1,118 @@
-+#!/usr/bin/perl -w
+@@ -0,0 +1,119 @@
++#!/usr/bin/perl
 +use strict;
++use warnings;
 +
 +use Getopt::Long;
 +use Cwd qw(abs_path cwd);

diff --git a/db.diff b/db.diff
index e313525..479fd6b 100644 (file)
--- a/db.diff
+++ b/db.diff
@@ -1068,9 +1068,10 @@ diff --git a/support/rsyncdb b/support/rsyncdb
 new file mode 100755
 --- /dev/null
 +++ b/support/rsyncdb
-@@ -0,0 +1,331 @@
-+#!/usr/bin/perl -w
+@@ -0,0 +1,332 @@
++#!/usr/bin/perl
 +use strict;
++use warnings;
 +
 +use DBI;
 +use Getopt::Long;

diff --git a/nameconverter.diff b/nameconverter.diff
index 81e3c30..1d65549 100644 (file)
--- a/nameconverter.diff
+++ b/nameconverter.diff
@@ -222,8 +222,8 @@ diff --git a/support/nameconvert b/support/nameconvert
 new file mode 100755
 --- /dev/null
 +++ b/support/nameconvert
-@@ -0,0 +1,42 @@
-+#!/usr/bin/perl -w
+@@ -0,0 +1,43 @@
++#!/usr/bin/perl
 +# This implements a simple protocol to do {user,group}-{name,id}
 +# conversions.  All input and output consists of simple strings
 +# with a terminating null char (or newline for debugging).  If
@@ -242,6 +242,7 @@ new file mode 100755
 +# "name converter" setting.
 +
 +use strict;
++use warnings;
 +
 +my $eol = grep(/^--debug$/, @ARGV) ? "\n" : "\0";
 +$/ = $eol;