File check_updates-1.7.5_version.diff of Package nagios-plugins-check-updates

File check_updates-1.7.5_version.diff of Package nagios-plugins-check-updates (Revision f2638c3eede8db24569050b4d4630bb9)

Currently displaying revision f2638c3eede8db24569050b4d4630bb9, show latest

--- inc/version.pm.orig	2019-10-01 15:56:13.666188911 +0200
+++ inc/version.pm	2019-10-01 15:56:27.406189531 +0200
@@ -13,6 +13,52 @@
 our $CLASS = 'version';
 our (@ISA, $STRICT, $LAX);
 
+# !!!!Delete this next block completely when adding to Perl core!!!!
+{
+    local $SIG{'__DIE__'};
+    eval "use version::vxs $VERSION";
+    if ( $@ ) { # don't have the XS version installed
+        eval "use version::vpp $VERSION"; # don't tempt fate
+        die "$@" if ( $@ );
+        push @ISA, "version::vpp";
+        local $^W;
+        *version::qv = \&version::vpp::qv;
+        *version::declare = \&version::vpp::declare;
+        *version::_VERSION = \&version::vpp::_VERSION;
+        *version::vcmp = \&version::vpp::vcmp;
+        *version::new = \&version::vpp::new;
+        *version::numify = \&version::vpp::numify;
+        *version::normal = \&version::vpp::normal;
+        if ($] >= 5.009000) {
+            no strict 'refs';
+            *version::stringify = \&version::vpp::stringify;
+            *{'version::(""'} = \&version::vpp::stringify;
+            *{'version::(<=>'} = \&version::vpp::vcmp;
+            *{'version::(cmp'} = \&version::vpp::vcmp;
+            *version::parse = \&version::vpp::parse;
+        }
+    }
+    else { # use XS module
+        push @ISA, "version::vxs";
+        local $^W;
+        *version::declare = \&version::vxs::declare;
+        *version::qv = \&version::vxs::qv;
+        *version::_VERSION = \&version::vxs::_VERSION;
+        *version::vcmp = \&version::vxs::VCMP;
+        *version::new = \&version::vxs::new;
+        *version::numify = \&version::vxs::numify;
+        *version::normal = \&version::vxs::normal;
+        if ($] >= 5.009000) {
+            no strict 'refs';
+            *version::stringify = \&version::vxs::stringify;
+            *{'version::(""'} = \&version::vxs::stringify;
+            *{'version::(<=>'} = \&version::vxs::VCMP;
+            *{'version::(cmp'} = \&version::vxs::VCMP;
+            *version::parse = \&version::vxs::parse;
+        }
+    }
+}
+
 # avoid using Exporter
 require version::regex;
 *version::is_lax = \&version::regex::is_lax;