oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix derp message to look more like carp message

Browse source
This commit is contained in:
Doug Bell 2010-12-09 19:02:51 -06:00
parent db4e74a738
commit 9c894e5158
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Deprecate.pm
View file

@ -34,11 +34,11 @@ sub derp ($) { # DEprecation caRP
# Add stack info to message
unless ( $message =~ /\n$/ ) {
$message .= " at " . join( "-", (caller(1))[0,2] );
$message .= " at " . join( " line ", (caller(1))[0,2] );
}
return if ( $derped{ $message }++ ); # HERP
warn $message;
warn $message . "\n"; # DERP
}
sub deprecate ($$) {

1
lib/WebGUI/Form.pm
View file

@ -19,6 +19,7 @@ use Carp qw( croak );
use Scalar::Util qw( blessed );
use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Deprecate;
=head1 NAME