diff --git a/lib/WebGUI/Deprecate.pm b/lib/WebGUI/Deprecate.pm index 03ef81779..ec822e340 100644 --- a/lib/WebGUI/Deprecate.pm +++ b/lib/WebGUI/Deprecate.pm @@ -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 ($$) { diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm index 4c32668f8..b24b67bef 100644 --- a/lib/WebGUI/Form.pm +++ b/lib/WebGUI/Form.pm @@ -19,6 +19,7 @@ use Carp qw( croak ); use Scalar::Util qw( blessed ); use WebGUI::International; use WebGUI::Pluggable; +use WebGUI::Deprecate; =head1 NAME