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
[perl5.git] / 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<