This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress void warning in t/op/sprintf.t
authorFather Chrysostomos <sprout@cpan.org>
Sun, 1 Jan 2012 08:16:33 +0000 (00:16 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 1 Jan 2012 08:16:45 +0000 (00:16 -0800)
t/op/sprintf.t

index 05fe1de..9c942b4 100644 (file)
@@ -437,7 +437,7 @@ __END__
 >%m<        >''<          >%m INVALID<
 >%s< >sprintf('%%n%n %d', $n, $n)< >%n 2< >Slight sneakiness to test %n<
 >%s< >$n="abc"; sprintf(' %n%s', substr($n,1,1), $n)< > a1c< >%n w/magic<
->%s< >sprintf('%s%n', chr(256)x5, $n),$n< >5< >Unicode %n<
+>%s< >no warnings; sprintf('%s%n', chr(256)x5, $n),$n< >5< >Unicode %n<
 >%o<        >2**32-1<     >37777777777<
 >%+o<       >2**32-1<     >37777777777<
 >%#o<       >2**32-1<     >037777777777<