Lines Matching defs:warn
943 warn( # Do not ;-)
1133 The default C<die>, C<warn>, and C<signal> handlers are set up.
1279 CORE::warn <<EO_GRIPE;
1288 CORE::warn("perldb: couldn't parse $file: $@") if $@;
2410 or &warn(
2430 $@ and $@ =~ s/ at .*//, &warn($@), next CMD;
2630 # If warn was on before, turn it on again.
2859 # Turn of warn and die procesing for a bit.
2932 # Turn off die & warn handlers.
3172 # Turn off standard warn and die behavior.
3228 &warn("Can't execute `$1': $!\n");
3251 &warn("Can't save debugger commands in '$1': $!\n");
3275 &warn("Can't save STDOUT");
3277 &warn("Can't redirect STDOUT");
3281 open(SAVEOUT, ">&OUT") || &warn("Can't save DB::OUT");
3289 &warn("Can't pipe output to `$pager'");
3293 || &warn("Can't restore DB::OUT");
3295 &warn("Can't restore STDOUT");
3301 || &warn("Can't restore DB::OUT");
3381 # we cannot warn here: the handle is missing --tchrist
3403 open(OUT, ">&STDOUT") || &warn("Can't restore DB::OUT");
3405 &warn("Can't restore STDOUT");
3415 open(OUT, ">&SAVEOUT") || &warn("Can't restore DB::OUT");
3454 # BEGIN {warn 4}
4578 &warn($@ =~ /locate/ ? "Class::ISA module not found - please install\n" : $@);
5672 open(SAVEIN, "<&STDIN") || &warn("Can't save STDIN");
5673 open(SAVEOUT, ">&STDOUT") || &warn("Can't save STDOUT");
5674 open(STDIN, "<&IN") || &warn("Can't redirect STDIN");
5675 open(STDOUT, ">&OUT") || &warn("Can't redirect STDOUT");
5679 open(STDIN, "<&SAVEIN") || &warn("Can't restore STDIN");
5680 open(STDOUT, ">&SAVEOUT") || &warn("Can't restore STDOUT");
5686 &warn("(Command exited ", ($? >> 8), ")\n");
5689 &warn(
5883 BEGIN {open STDIN, '</dev/con' or warn "reopen stdin: $!"}
5900 or warn "system P_SESSION: $!, $^E" and 0
6372 =head2 C<warn()>
6374 C<warn> emits a warning, by joining together its arguments and printing
6384 sub warn {
6389 } ## end sub warn
6412 &warn("Too late to set IN/OUT filehandles, enabled on next `R'!\n");
6475 &warn("Too late to set TTY, enabled on next `R'!\n") if $term and @_;
6494 &warn("Too late to set noTTY, enabled on next `R'!\n") if @_;
6511 &warn("Too late to set ReadLine, enabled on next `R'!\n") if @_;
6527 &warn("Too late to set RemotePort, enabled on next 'R'!\n") if @_;
6560 &warn("Too late to set up NonStop mode, enabled on next `R'!\n")
6674 open(LINEINFO, "$stream") || &warn("Cannot open `$stream' for write");
7236 # Don't recursively enter the warn handler, since we're carping.
7244 &warn(Carp::longmess("Signal @_"));
7271 # Turn off warn and die handling to prevent recursive entries to this
7282 # Use the core warn() unless Carp loaded OK.
7283 CORE::warn(@_,
7302 &warn($mess);
7329 &warn(@_); # Yell no matter what