Home
last modified time | relevance | path

Searched refs:warn_msg (Results 1 – 5 of 5) sorted by relevance

/openbsd/gnu/usr.bin/perl/ext/File-Find/t/
H A Dcorrect-absolute-path-with-follow.t10 my $warn_msg;
14 $warn_msg = $_[0];
21 $warn_msg = '';
33 $warn_msg,
H A Dfind.t5 my $warn_msg;
13 $SIG{'__WARN__'} = sub { $warn_msg = $_[0]; warn "# $_[0]"; };
302 local $SIG{__WARN__} = sub { $warn_msg = $_[0]; };
314 like($warn_msg, qr/Invalid option/s, "Got warning for invalid option");
315 like($warn_msg, qr/$bad_option/s, "Got warning for $bad_option");
317 undef $warn_msg;
332 like($warn_msg, qr/Invalid option/s, "Got warning for invalid option");
333 like($warn_msg, qr/$bad_option/s, "Got warning for $bad_option");
336 undef $warn_msg;
718 undef $warn_msg;
[all …]
/openbsd/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Dcall.t278 my $warn_msg;
279 local $SIG{__WARN__} = sub { $warn_msg .= $_[0] };
294 undef $warn_msg;
332 $@ = $warn_msg;
335 is($warn_msg, undef, "$desc - __WARN__ not called");
/openbsd/usr.bin/lex/
H A Dparse.y1014 char warn_msg[MAXLINE]; in format_warn() local
1016 snprintf( warn_msg, sizeof(warn_msg), msg, arg ); in format_warn()
1017 warn( warn_msg ); in format_warn()
/openbsd/gnu/usr.bin/perl/t/lib/warnings/
H A D9enabled1206 $warn_msg, # the error message to catch
1214 $warn_msg = 'from ' . __PACKAGE__;
1219 warnings::warnif( $warn_msg );
1242 print "ok1\n" if $@ =~ /$warn_msg/;