diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-11-15 10:19:47 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-15 10:59:13 -0800 |
commit | 7af094e040d44c75a7669cf30c00887d7279a690 (patch) | |
tree | c8fd8575227f7721740491e2244136bef4e68bab /t | |
parent | 953c8b803c4f6f9b009938456f308e41848dbeb6 (diff) | |
download | perl-7af094e040d44c75a7669cf30c00887d7279a690.tar.gz |
t/base/rs.t: Suppress warning
Diffstat (limited to 't')
-rw-r--r-- | t/base/rs.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index 416696e9f5..a715356679 100644 --- a/t/base/rs.t +++ b/t/base/rs.t @@ -236,7 +236,8 @@ sub test_record { $test_count++; # Naughty straight number - should get the rest of the file - $/ = \0; + # no warnings 'deprecated'; # but not in t/base/* + { local $SIG{__WARN__} = sub {}; $/ = \0 } $bar = <FH>; if ($bar ne "90123456789012345678901234567890") {print "not ";} print "ok $test_count # \$/ = \\0\n"; |