| /onnv/onnv-gate/usr/src/prototypes/ |
| prototype.pl | 33 use warnings;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/ |
| taint_warn | 6 my $warnings = '';
8 local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
11 like( $warnings, '/^Insecure dependency/', '-t honored' );
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/warnings/ |
| register.pm | 1 package warnings::register ;
9 warnings::register - warnings import function
13 use warnings::register ;
17 Create a warnings category with the same name as the current package.
24 require warnings ;
39 if (! defined $warnings::Bits{$package}) {
40 $warnings::Bits{$package} = mkMask($warnings::LAST_BIT) ;
41 vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| hashwarn.t | 9 use warnings;
11 use vars qw{ @warnings };
14 $SIG{'__WARN__'} = sub { push @warnings, @_ };
19 END { print "not ok\n# Uncaught warnings:\n@warnings\n" if @warnings }
54 test_warning 1, shift @warnings, $odd_msg;
57 test_warning 2, shift @warnings, $odd_msg;
60 test_warning 3, shift @warnings, $odd_msg2;
61 test_warning 4, shift @warnings, $ref_msg
[all...] |
| stash.t | 25 q(Insert a non-GV in a stash, under warnings 'once'),
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/ |
| demo_chain.pl | 7 no warnings 'redefine';
16 no warnings 'redefine';
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| undef.t | 19 my $warnings = '';
20 local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
23 is( $warnings, '', ' no warnings' );
26 is( $warnings, '', ' no warnings' );
32 is( $warnings, '', ' no warnings' );
35 is( $warnings, '', 'eq_array() no warnings' );
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| writemakefile_args.t | 33 my $warnings = '';
35 $warnings .= join '', @_;
48 is( $warnings, <<VERIFY );
53 $warnings = '';
62 is( $warnings, <<VERIFY );
69 $warnings = '';
76 # We'll get warnings about the bogus libs, that's ok.
77 unlike( $warnings, qr/WARNING: .* takes/ );
80 $warnings = '';
87 # We'll get warnings about the bogus libs, that's ok
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| CheckTree.t | 24 #### TEST 1 -- No warnings ####
31 my @warnings;
32 local $SIG{__WARN__} = sub { push @warnings, "@_" };
46 if ( !$@ && !@warnings && defined($num_warnings) && $num_warnings == 0 ) {
58 my ($num_warnings, @warnings);
60 local $SIG{__WARN__} = sub { push @warnings, "@_" };
69 if ( !$@ && @warnings == 1
70 && $warnings[0] =~ /lib is not a plain file/
82 #### TEST 3 -- Multiple warnings ####
87 my ($num_warnings, @warnings);
[all...] |
| Path.t | 13 use warnings;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| warnings.pm | 3 # This file was created by warnings.pl
7 package warnings; package
13 warnings - Perl pragma to control optional warnings
17 use warnings;
18 no warnings;
20 use warnings "all";
21 no warnings "all";
23 use warnings::register;
24 if (warnings::enabled())
[all...] |
| constant.t | 8 use warnings;
9 use vars qw{ @warnings };
11 $SIG{'__WARN__'} = sub { push @warnings, @_ }
13 END { print STDERR @warnings }
99 no warnings 'numeric';
130 test 36, @warnings == 0, join "\n", "unexpected warning", @warnings;
131 @warnings = (); # just in case
133 test 37, @warnings &&
134 ($warnings[0] =~ /Constant sub.* undefined/)
[all...] |
| dbm_filter_util.pl | 2 use warnings;
16 no warnings 'uninitialized';
37 no warnings 'uninitialized';
59 no warnings 'uninitialized';
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
| via.t | 4 use warnings;
38 my $warnings = '';
39 local $SIG{__WARN__} = sub { $warnings = join '', @_ };
41 use warnings 'layer';
49 like( $warnings, qr/^Cannot find package 'Unknown::Module'/, 'warn about unknown package' );
65 $warnings = '';
66 no warnings 'layer';
68 is( $warnings, "", "don't warn about unknown package" );
70 $warnings = '';
71 no warnings 'layer'
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Intrs/ |
| Makefile.PL | 29 use warnings;
|
| Intrs.pm | 32 use warnings;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
| text-errors.t | 40 # Capture warnings for inspection.
41 my $warnings = '';
42 $SIG{__WARN__} = sub { $warnings .= $_[0] };
55 $warnings = '';
58 if ($warnings eq $expected) {
61 print " # '$warnings'\n # '$expected'\n";
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/MIME/Base64/t/ |
| warn.t | 12 require warnings;
26 use warnings;
37 no warnings;
41 no warnings;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/Perldoc/ |
| BaseTo.pm | 5 use warnings;
|
| /onnv/onnv-gate/usr/src/cmd/sgs/tools/common/ |
| sgsmsg_piglatin_nl.pl | 59 use warnings;
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/ |
| Makefile.PL | 29 use warnings;
50 no warnings qw(once);
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/ |
| perlgcc.PL | 26 use warnings;
47 use warnings;
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/ |
| Makefile.PL | 30 use warnings;
50 no warnings qw(once);
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Project/ |
| Makefile.PL | 30 use warnings;
50 no warnings qw(once);
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Task/ |
| Makefile.PL | 30 use warnings;
50 no warnings qw(once);
|
