/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/ |
H A D | shbang_misparse | 9 my $warning = ''; 10 $SIG{__WARN__} = sub { $warning .= $_[0] }; 12 print $warning ? "not ok 2\n" : "ok 2\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | regmesg.t | 12 ## update only these two variables, and leave the {#} in the @death/@warning 90 @warning = ( 104 my $total = (@death + @warning)/2; 142 our $warning; 143 $SIG{__WARN__} = sub { $warning = shift }; 145 while (@warning) 148 my $regex = shift @warning; 149 my $result = shift @warning; 151 undef $warning; 161 if (not $warning) [all...] |
H A D | chdir.t | 63 my $warning = ''; 64 local $SIG{__WARN__} = sub { $warning .= join '', @_ }; 71 is( $warning, <<WARNING, ' got uninit & deprecation warning' ); 79 $warning = ''; 83 is( $warning, <<WARNING, ' got deprecation warning' );
|
H A D | pack.t | 249 my $warning; 251 $warning = $_[0]; 255 like($warning, qr/temporary val/); 852 my $warning; 854 $warning = $_[0]; 895 my @warning; 897 push( @warning, $_[0] ); 923 # warning for commas 924 @warning = (); 926 like( $warning[ [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | switcht.t | 13 my $warning; 14 local $SIG{__WARN__} = sub { $warning = join "\n", @_; }; 21 like( $warning, qr/^Insecure .* $Tmsg/, ' taint warn' ); 25 $warning = ''; 28 is( $warning, '', ' no warnings "taint"' ); 37 like( $warning, qr/^Insecure dependency in open $Tmsg/, 'open > taint warn' ); 41 like( $warning, qr/^Insecure dependency in unlink $Tmsg/,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | autouse.t | 38 my @warning; 39 local $SIG{__WARN__} = sub { push @warning, @_ }; 41 ok( scalar @warning, 1 ); 42 ok( $warning[0], "this carp was predeclared and autoused\n" );
|
H A D | Benchmark.t | 192 $got =~ s/\(warning:[^\)]+\)//gs; 214 $got =~ s/\(warning:[^\)]+\)//gs; 281 $got =~ s/\(warning:[^\)]+\)//gs; 393 $got =~ s/\(warning:[^\)]+\)//gs; 415 $got =~ s/\(warning:[^\)]+\)//gs; 436 $got =~ s/\(warning:[^\)]+\)//gs; 456 $got =~ s/\(warning:[^\)]+\)//gs;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | skip.t | 56 my $warning; 57 local $SIG{__WARN__} = sub { $warning = join "", @_ }; 66 is( $warning, "skip() needs to know \$how_many tests are in the ". 68 'skip without $how_many warning' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/ |
H A D | Std.t | 12 our ($warning, $opt_f, $opt_i, $opt_o, $opt_x, $opt_y, %opt); 49 $SIG{__WARN__} = sub { $warning = $_[0] }; 53 ok( $warning eq "Unknown option: h\n", 'user warned' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | Lint.pm | 34 Produces a warning whenever an array is used in an implicit scalar 39 will elicit a warning. Using an explicit B<scalar()> silences the 40 warning. For example, 46 These options produce a warning whenever an operation implicitly 170 sub warning { subroutine 211 warning("Implicit scalar context for %s in %s", 219 warning("Illegal reference to private method name $method"); 229 warning('Implicit match on $_'); 234 warning('Implicit substitution on $_'); 245 warning('Implici [all...] |
/osnet-11/usr/src/lib/libxcurses/src/tic/ |
H A D | ticscan.c | 131 warning(m_strmsg(ill_char), ch); 146 warning(m_strmsg(nl_middle)); 173 warning(m_strmsg(no_comma)); 183 warning(m_strmsg(no_comma)); 192 warning(m_strmsg(no_comma)); 199 warning(m_strmsg(ill_char), ch); 243 warning(m_strmsg(bad_token)); 338 warning(m_strmsg(ill_ctrl), ch); 364 warning(m_strmsg(very_long));
|
H A D | ticerror.c | 50 * Display warning message. 53 warning (char const *f, ...) function
|
H A D | tic.h | 145 extern void warning(char const *_Fmt, ...); /* GENTEXT: warning */
|
H A D | ticparse.c | 346 warning(m_strmsg(more_than_one), tname); 372 warning(m_strmsg(long_path), *q, q); 376 warning(m_strmsg(synonym), tname); 380 warning(m_strmsg(more_than_one), q); 570 warning( 604 warning(m_strmsg(unknown_token)); 608 warning(m_strmsg(wrong_type), curr_token.tk_name);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | RefHash.t | 61 defined $ow ? "\twarning: $ow\n" : "\tno warning\n", 65 defined $tw ? "\twarning: $tw\n" : "\tno warning\n", 197 my ($result, $warning, $exception); 198 local $SIG{__WARN__} = sub { $warning .= $_[0] }; 206 foreach ($warning, $exception) { 214 foreach (split /\n/, $warning) { 217 $warning = join("\n", @warnings); 219 push @r, [ $result, $warning, $exception ];
|
H A D | Scalar.t | 66 like( $warn, qr/WARNING: calling TieTest->new/, 'caught warning fine' );
|
/osnet-11/usr/src/lib/nsswitch/ldap/common/ |
H A D | getspent.c | 79 char **warning, **inactive, **expire, **flag; local 167 warning = __ns_ldap_getAttr(result->entry, _S_WARNING); 168 if (warning == NULL || warning[0] == NULL) 171 warning_str = warning[0];
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
H A D | test-harness.t | 487 my $warning = ''; 493 local $SIG{__WARN__} = sub { $warning .= join '', @_; }; 524 is( $warning, <<WARN ); 535 is( $warning, '' );
|
/osnet-11/usr/src/lib/libfuse/common/ |
H A D | fuse_common.h | 229 # warning Compatibility with API version 11 is deprecated
|
/osnet-11/usr/src/grub/grub-0.97/netboot/ |
H A D | 3c595.c | 389 char *reason, *warning; local 398 warning = 0; 401 warning = "strange connector type in EEPROM."; 406 if (warning != 0) { 407 printf("warning: %s\n", warning);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/pod/ |
H A D | podchecker.PL | 74 warning level, i.e. more warnings are printed. Currently increasing to 90 Directories are ignored, an appropriate warning message is printed.
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | CheckTree.t | 55 #### TEST 2 -- One warning #### 83 # including first warning only from a bundle of tests, 96 lib -f || warn "my warning: $file\n" 103 && $warnings[2] =~ /my warning: lib/
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | utf8.c | 318 it is assumed that the caller will raise a warning, and this function 341 U32 warning = 0; local 357 warning = UTF8_WARN_EMPTY; 369 warning = UTF8_WARN_CONTINUATION; 375 warning = UTF8_WARN_NON_CONTINUATION; 384 warning = UTF8_WARN_FE_FF; 409 warning = UTF8_WARN_SHORT; 421 warning = UTF8_WARN_NON_CONTINUATION; 430 warning = UTF8_WARN_LONG; 436 warning [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/ |
H A D | ParseUtils.pm | 296 $self->warning("ignoring leading whitespace in link"); 299 $self->warning("ignoring trailing whitespace in link"); 397 $self->warning("(section) in '$page' deprecated"); 400 $self->warning("node '$node' contains non-escaped | or /"); 403 $self->warning("alternative text '$node' contains non-escaped | or /"); 483 =item $link-E<gt>warning() 491 sub warning { subroutine
|
/osnet-11/usr/src/grub/grub-0.97/lib/ |
H A D | device.c | 247 # warning "Automatic detection of geometries will be performed only \ 334 # warning "BIOS floppy drives cannot be guessed in your operating system." 377 # warning "BIOS IDE drives cannot be guessed in your operating system." 420 # warning "BIOS SCSI drives cannot be guessed in your operating system." 537 fprintf (stderr, "%s:%d: warning: ", map_file, no);
|