ALT Linux repos
S: | 5.34.1-alt1 |
5.0: | 5.8.9-alt2 |
4.1: | 5.8.8-alt19.M41.1 |
4.0: | 5.8.8-alt14 |
+updates: | 5.8.8-alt14 |
3.0: | 5.8.7-alt2 |
Group :: Development/Perl
RPM: perl
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: perl-5.20.1-alt-at-skip-deprecation-warning.patch
Download
Download
commit af8b8a4130b36c817528617451fe47d00f4f4229
Author: Alexey Tourbin <at@altlinux.ru>
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 ();