[perl #109104] File::Copy: Turn off ‘newline’ warnings
authorFather Chrysostomos <sprout@cpan.org>
Tue, 31 Jan 2012 17:27:20 +0000 (09:27 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 31 Jan 2012 17:53:57 +0000 (09:53 -0800)
These warnings exist to catch file operations on unchomped file names.
But File::Copy should not be triggering them, otherwise it produces
warnings for every copy("foo/bar\n", "baz/bar\n"), with no (easy) way
to suppress the warning, as warnings are lexical.

I don’t know how to test this portably.

lib/File/Copy.pm

index 1cf084b..7a3c1f8 100644 (file)
@@ -9,7 +9,7 @@ package File::Copy;
 
 use 5.006;
 use strict;
-use warnings;
+use warnings; no warnings 'newline';
 use File::Spec;
 use Config;
 # During perl build, we need File::Copy but Scalar::Util might not be built yet