| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
| fail.t | 12 my $warn;
14 $SIG{__WARN__} = sub { $warn = shift };
22 $warn = ''; $! = 0;
26 like($warn,qr/in PerlIO layer/,"Got warning");
28 $warn = ''; $! = 0;
32 like($warn,qr/nonesuch/,"Got warning");
35 $warn = ''; $! = 0;
39 like($warn,qr/in PerlIO layer/,"Got warning");
41 $warn = ''; $! = 0;
45 like($warn,qr/nonesuch/,"Got warning")
[all...] |
| encoding.t | 7 # to warn here:
78 $SIG{__WARN__} = sub {$warn .= $_[0]};
85 if (!defined $warn) {
87 } elsif ($warn =~ /^Cannot find encoding "NoneSuch" at/) {
90 print "not ok 10 # warning is '$warn'";
119 undef $warn;
128 if (!defined $warn) {
130 } elsif ($warn =~ /^Cannot find encoding "latin42" at.*line \d+\.$/) {
134 $warn =~ s/^/# /mg;
135 print "$warn";
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/MIME/Base64/t/ |
| warn.t | 28 my @warn;
29 $SIG{__WARN__} = sub { push(@warn, @_) };
31 warn;
35 warn;
44 warn;
53 warn;
56 for (@warn) {
61 for (@warn) {
65 print "not " unless join("", @warn) eq <<"EOT"; print "ok 1\n";
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| compmod.pl | 15 warn "# require failed with '$@'\n";
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| Liblist.t | 26 my @warn;
27 local $SIG{__WARN__} = sub {push @warn, [@_]};
33 ok( @warn, 'had warning');
35 is( grep(/\QNote (probably harmless): No library found for \E(-l)?n0tt43r3_perl/, map { @$_ } @warn), 1 ) || diag Dumper @warn;
|
| Manifest.t | 48 my $warn;
49 local $SIG{__WARN__} = sub { $warn .= $_[0] };
50 return join('', $_[0]->() ), $warn;
74 my ($res, $warn) = catch_warning( \&mkmanifest );
76 $warn = join("", map { "$_|" }
77 sort { lc($a) cmp lc($b) } split /\r?\n/, $warn);
78 is( $warn, "Added to MANIFEST: foo|Added to MANIFEST: MANIFEST|",
93 ($res, $warn) = catch_warning( \&filecheck );
95 like( $warn, qr/^Not in MANIFEST: bar/, 'warning that bar has been added' );
99 ($res, $warn) = do { local $ExtUtils::Manifest::Quiet = 1;
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| flip.t | 49 my $warn='';
50 $SIG{__WARN__} = sub { $warn .= join '', @_ };
54 if ($warn =~ /uninitialized/) { print "ok 13\n" } else { print "not ok 13\n" }
55 $warn = '';
59 if ((() = ($warn =~ /isn't numeric/g)) == 2) {
65 $warn = '';
|
| sprintf2.t | 41 my ($warn, $bad) = (0,0);
44 $warn++
53 is($warn, 36, "expected warnings");
63 warn $_[0];
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
| redef.t | 6 $warn = "";
7 $SIG{__WARN__} = sub { $warn .= join("",@_) }
21 ok 1, $warn =~ s/Subroutine sub0 redefined[^\n]+\n//s;
26 ok 2, $warn =~ s/$NEWPROTO \Qsub main::sub1: none vs ()\E[^\n]+\n//s;
27 ok 3, $warn =~ s/Subroutine sub1 redefined[^\n]+\n//s;
32 ok 4, $warn =~ s/$NEWPROTO \Qsub main::sub2: none vs ($)\E[^\n]+\n//s;
33 ok 5, $warn =~ s/Subroutine sub2 redefined[^\n]+\n//s;
38 ok 6, $warn =~ s/$NEWPROTO \Qsub main::sub3 () vs none\E[^\n]+\n//s;
39 ok 7, $warn =~ s/Constant subroutine sub3 redefined[^\n]+\n//s;
44 ok 8, $warn =~ s/Constant subroutine sub4 redefined[^\n]+\n//s
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| IO.t | 33 my $warn = '' ;
34 local $SIG{__WARN__} = sub { $warn = "@_" } ;
39 is( $warn, '', "... import default, should not warn");
40 $warn = '' ;
46 is( $warn, '', "... import default, should not warn");
47 $warn = '' ;
53 like( $warn, qr/^Parameterless "use IO" deprecated at/,
54 "... import default, should warn");
[all...] |
| /onnv/onnv-gate/usr/src/cmd/dis/ |
| dis_util.h | 39 void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/ramdiskadm/ |
| utils.h | 42 extern void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/rctladm/ |
| utils.h | 45 extern void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/ |
| NDBM_File.pm | 20 warn "Nonexistent function $AUTOLOAD invoked in Memoize::NDBM_File\n";
24 warn "Importing Memoize::NDBM_File\n" if $Verbose;
42 warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose;
46 warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
51 warn "Memoize::NDBM_File DEFINED (@_)\n" if $Verbose;
58 warn "Memoize::NDBM_File DESTROY (@_)\n" if $Verbose;
67 warn "Memoize::NDBM_File STORE (@_)\n" if $VERBOSE;
|
| SDBM_File.pm | 20 warn "Nonexistent function $AUTOLOAD invoked in Memoize::SDBM_File\n";
24 warn "Importing Memoize::SDBM_File\n" if $Verbose;
42 warn "Memoize::SDBM_File EXISTS (@_)\n" if $Verbose;
46 warn "Memoize::SDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
51 warn "Memoize::SDBM_File DEFINED (@_)\n" if $Verbose;
58 warn "Memoize::SDBM_File DESTROY (@_)\n" if $Verbose;
67 warn "Memoize::SDBM_File STORE (@_)\n" if $VERBOSE;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| use_ok.t | 34 my $warn; local $SIG{__WARN__} = sub { $warn .= shift; };
37 ::is( $warn, undef, 'no warning');
|
| /onnv/onnv-gate/usr/src/cmd/acctadm/ |
| utils.h | 43 extern void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/dumpadm/ |
| utils.h | 42 extern void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/lofiadm/ |
| utils.h | 39 extern void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/newtask/ |
| utils.h | 40 extern void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| getcwd.pl | 20 warn "stat(.): $!";
31 warn "opendir($dotdots): $!";
36 warn "stat($dotdots): $!";
50 warn "readdir($dotdots): $!";
56 # warn "lstat($dotdots/$dir): $!";
|
| /onnv/onnv-gate/usr/src/cmd/rcap/common/ |
| rcapd_conf.c | 59 warn(gettext("SMF initialization problem: %s\n"),
66 warn(gettext("Configuration property '%s' "
82 warn(gettext("Configuration property '%s' "
93 warn(gettext("Configuration property '%s' "
104 warn(gettext("Configuration property '%s' "
115 warn(gettext("Configuration property '%s' "
135 warn(gettext("cannot create statistics file, " "%s"),
146 warn(gettext("Unexpected libscf error: %s. \n"),
174 warn(gettext("SMF initialization problem: %s\n"),
180 warn(gettext("SMF initialization problem: %s\n")
[all...] |
| /onnv/onnv-gate/usr/src/head/ |
| err.h | 43 void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/tools/ctf/common/ |
| utils.h | 43 extern void warn(const char *, ...);
|
| /onnv/onnv-gate/usr/src/cmd/cmd-inet/usr.bin/pppd/plugins/ |
| mapfile-passprompt | 29 warn = FUNCTION extern; # " "
|
