| /openbsd-current/gnu/usr.bin/perl/t/op/ |
| H A D | require_override.t | 12 my @warns;
13 local $SIG{__WARN__}= sub { push @warns, $_[0] };
18 ok(0 == @warns, "We expect the eval to die, without producing warnings");
21 @warns= ();
30 ok(0 == @warns,
35 @warns= ();
40 ok(0 == @warns,
45 @warns= ();
51 ok(0 == @warns, "We expect the eval to die, without producing warnings");
|
| H A D | defins.t | 11 $SIG{__WARN__} = sub { $warns++; warn $_[0] };
49 cmp_ok($warns,'==',0,'no warns at start');
228 cmp_ok($warns,'==',0,'no warns at finish');
|
| H A D | lex.t | 310 my \$warns = q$lhs this string uses paired latin1 delimiters $rhs;
|
| /openbsd-current/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | sig_die.t | 22 my @warns;
23 $SIG{__WARN__} = sub { push @warns, shift };
30 is(join("", @warns), "", "__DIE__ is not evil here");
|
| /openbsd-current/libexec/tradcpp/ |
| H A D | mode.h | 58 struct warns { struct
66 extern struct warns warns;
|
| H A D | main.c | 80 struct warns warns = { variable in typeref:struct:warns
722 warns.nestcomment = true;
723 warns.undef = true;
724 warns.unused = true;
731 warns.nestcomment = false;
732 warns.undef = false;
733 warns.unused = false;
740 warns.nestcomment = false;
741 warns
[all...] |
| H A D | directive.c | 688 if (warns.nestcomment) {
|
| H A D | eval.c | 638 if (warns.undef) {
|
| /openbsd-current/gnu/usr.bin/perl/dist/Safe/t/ |
| H A D | safeutf8.t | 34 my @warns;
40 push @warns, $msg;
45 is @warns, 1, 'should only be 1 warning';
46 like $warns[0], qr/at XXX line/, 'warning should have been edited';
|
| H A D | safesort.t | 50 my $warns = 0;
51 local $SIG{__WARN__} = sub { $warns++ };
56 is $warns, 0;
|
| /openbsd-current/gnu/usr.bin/perl/lib/ |
| H A D | vars.t | 14 my @warns;
15 BEGIN { $SIG{__WARN__} = sub { push @warns, @_ }; $^W = 1 };
24 my $e = !(grep /^Name "X::x" used only once: possible typo/, @warns) && 'not ';
26 $e = !(grep /^Name "main::x" used only once: possible typo/, @warns) && 'not ';
28 $e = !(grep /^Name "main::y" used only once: possible typo/, @warns) && 'not ';
30 $e = !(grep /^Name "main::z" used only once: possible typo/, @warns) && 'not ';
32 ($e, @warns) = @warns != 4 && 'not ';
67 ($e, @warns) = ($@ || @warns)
[all...] |
| /openbsd-current/gnu/usr.bin/perl/cpan/podlators/t/man/ |
| H A D | no-encode.t | 81 'Pod::Man warns with no Encode module',
98 'Pod::Man warns with no Encode module',
|
| /openbsd-current/gnu/usr.bin/perl/ |
| H A D | cflags.SH | 188 *) warns="$pedantic \
196 *) warns="-std=c99 $warns" ;;
198 for opt in $warns
|
| H A D | regcomp_internal.h | 1012 /* 'warns' is the output of the packWARNx macro used in 'code' */
1013 #define _WARN_HELPER(loc, warns, code) \
1021 if (ckDEAD(warns)) \
|
| /openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/ |
| H A D | meta_convert.t | 80 "Bad licence warns",
|
| /openbsd-current/gnu/usr.bin/perl/t/re/ |
| H A D | reg_mesg.t | 942 my @warns = capture_warnings(sub {
952 ok @warns > 0, "... and the warning is on by default";
954 elsif (! (ok @warns == 0,
957 diag("GOT\n" . join "\n", @warns);
|
| /openbsd-current/gnu/usr.bin/perl/cpan/experimental/lib/ |
| H A D | stable.pm | 78 that you want to use an experimental feature that still warns, even though
|
| /openbsd-current/gnu/usr.bin/perl/cpan/AutoLoader/lib/ |
| H A D | AutoLoader.pm | 371 can lead to conflicting file names. The I<AutoSplit> package warns of
|
| /openbsd-current/gnu/usr.bin/perl/cpan/bignum/lib/ |
| H A D | bigrat.pm | 180 # Warn about trailing garbage. CORE::oct() only warns about 8 and 9, but it
537 Using c<lib> warns if none of the specified libraries can be found and
|
| H A D | bigint.pm | 201 # Warn about trailing garbage. CORE::oct() only warns about 8 and 9, but it
590 Using c<lib> warns if none of the specified libraries can be found and
|
| H A D | bigfloat.pm | 190 # Warn about trailing garbage. CORE::oct() only warns about 8 and 9, but it
553 Using c<lib> warns if none of the specified libraries can be found and
|
| H A D | bignum.pm | 223 # Warn about trailing garbage. CORE::oct() only warns about 8 and 9, but it
668 Using c<lib> warns if none of the specified libraries can be found and
|
| /openbsd-current/gnu/usr.bin/perl/ext/DynaLoader/ |
| H A D | DynaLoader_pm.PL | 961 calls dl_undef_symbols() and warns if any symbols are undefined
|
| /openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-Install/lib/ExtUtils/ |
| H A D | Install.pm | 175 If $moan is true then returns 0 on error and warns instead of dies.
|