fix derp message to look more like carp message

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

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 ($$) {