commit af8b8a4130b36c817528617451fe47d00f4f4229 Author: Alexey Tourbin Date: Thu Apr 28 06:36:54 2011 +0400 deprecate.pm: disabled deprecation warning diff --git a/lib/deprecate.pm b/lib/deprecate.pm index 47bc112..7248727 100644 --- a/lib/deprecate.pm +++ b/lib/deprecate.pm @@ -36,6 +36,9 @@ sub import { my $expect_leaf = "$package.pm"; $expect_leaf =~ s!::!/!g; + # ALT: disable deprecation warning + return; + if (__loaded_from_core($package, $file, $expect_leaf)) { my $call_depth=1; my @caller; diff --git a/t/lib/deprecate.t b/t/lib/deprecate.t index 9e59469..bd0e190 100644 --- a/t/lib/deprecate.t +++ b/t/lib/deprecate.t @@ -3,6 +3,7 @@ use strict; BEGIN { require './test.pl'; + skip_all("ALT: deprecation warning disabled"); } use File::Copy (); use File::Path ();