Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37729566
en ru br
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


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 ();
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin