diff options
| author | fukachan <fukachan> | 2003-08-24 14:08:28 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-24 14:08:28 +0000 |
| commit | 13d29ca11d2359e8ff9bf8841fa00b183c9874f6 (patch) | |
| tree | f5d865edb1a299cd97926a5cb2c6eef5b75de48b /fml/lib | |
| parent | f308ef2b8d144315323513eac2354e72320fef8b (diff) | |
| download | fml8-13d29ca11d2359e8ff9bf8841fa00b183c9874f6.tar.gz fml8-13d29ca11d2359e8ff9bf8841fa00b183c9874f6.tar.bz2 fml8-13d29ca11d2359e8ff9bf8841fa00b183c9874f6.zip | |
print STDERR ... -> carp(...)
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Config.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index 2916da61..d4ccc98c 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -3,7 +3,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Config.pm,v 1.82 2003/02/16 07:54:07 fukachan Exp $ +# $FML: Config.pm,v 1.83 2003/08/23 04:35:26 fukachan Exp $ # package FML::Config; @@ -985,7 +985,7 @@ sub is_hook_defined $FML::Config::_fml_user_hooks; package FML::Config; }; - print STDERR $@ if $@; + carp($@) if $@; my $is_defined = 0; my $hook = sprintf("%s::%s::%s::%s", 'FML', 'Config', 'Hook', $hook_name); @@ -995,7 +995,7 @@ sub is_hook_defined \$is_defined = 1; } }; - print STDERR $@ if $@; + carp($@) if $@; return $is_defined; } @@ -1020,7 +1020,7 @@ sub get_hook package FML::Config; }; eval $eval; - print STDERR $@ if $@; + carp($@) if $@; my $r = ''; # return value; my $namel = $hook_name; $namel =~ tr/A-Z/a-z/; # lowercase @@ -1037,7 +1037,7 @@ sub get_hook \$r = $hooku; } }; - print STDERR $@ if $@; + carp($@) if $@; return "no strict;\n". $r; } |