Searched refs:warning (Results 1 - 25 of 88) sorted by relevance

1234

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/
H A Dshbang_misparse9 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 Dregmesg.t12 ## 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 Dchdir.t63 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 Dpack.t249 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 Dswitcht.t13 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 Dautouse.t38 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 DBenchmark.t192 $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 Dskip.t56 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 DStd.t12 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 DLint.pm34 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 Dticscan.c131 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 Dticerror.c50 * Display warning message.
53 warning (char const *f, ...) function
H A Dtic.h145 extern void warning(char const *_Fmt, ...); /* GENTEXT: warning */
H A Dticparse.c346 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 DRefHash.t61 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 DScalar.t66 like( $warn, qr/WARNING: calling TieTest->new/, 'caught warning fine' );
/osnet-11/usr/src/lib/nsswitch/ldap/common/
H A Dgetspent.c79 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 Dtest-harness.t487 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 Dfuse_common.h229 # warning Compatibility with API version 11 is deprecated
/osnet-11/usr/src/grub/grub-0.97/netboot/
H A D3c595.c389 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 Dpodchecker.PL74 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 DCheckTree.t55 #### 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 Dutf8.c318 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 DParseUtils.pm296 $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 Ddevice.c247 # 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);

Completed in 86 milliseconds

1234