This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
caller() wasn't returning the right number of elements for
[perl5.git] / t / pragma / warn / 9enabled
index 7facf99..55642ff 100755 (executable)
@@ -332,7 +332,7 @@ print $@ ;
 EXPECT
 Usage: warnings::warn([category,] 'message') at - line 4
 unknown warnings category 'fred' at - line 6
-       require 0 called at - line 6
+       eval {...} called at - line 6
 ########
 
 --FILE-- abc.pm