"Fossies" - the Fresh Open Source Software Archive

Member "install-tl-20200916/tlpkg/tlperl/lib/ExtUtils/MakeMaker/version.pm" (10 Mar 2019, 2376 Bytes) of package /windows/misc/install-tl.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 #--------------------------------------------------------------------------#
    2 # This is a modified copy of version.pm 0.9909, bundled exclusively for
    3 # use by ExtUtils::Makemaker and its dependencies to bootstrap when
    4 # version.pm is not available.  It should not be used by ordinary modules.
    5 #
    6 # When loaded, it will try to load version.pm.  If that fails, it will load
    7 # ExtUtils::MakeMaker::version::vpp and alias various *version functions
    8 # to functions in that module.  It will also override UNIVERSAL::VERSION.
    9 #--------------------------------------------------------------------------#
   10 
   11 package ExtUtils::MakeMaker::version;
   12 
   13 use 5.006001;
   14 use strict;
   15 
   16 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
   17 
   18 $VERSION = '7.34';
   19 $VERSION = eval $VERSION;
   20 $CLASS = 'version';
   21 
   22 {
   23     local $SIG{'__DIE__'};
   24     eval "use version";
   25     if ( $@ ) { # don't have any version.pm installed
   26         eval "use ExtUtils::MakeMaker::version::vpp";
   27         die "$@" if ( $@ );
   28         local $^W;
   29         delete $INC{'version.pm'};
   30         $INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'};
   31         push @version::ISA, "ExtUtils::MakeMaker::version::vpp";
   32         $version::VERSION = $VERSION;
   33         *version::qv = \&ExtUtils::MakeMaker::version::vpp::qv;
   34         *version::declare = \&ExtUtils::MakeMaker::version::vpp::declare;
   35         *version::_VERSION = \&ExtUtils::MakeMaker::version::vpp::_VERSION;
   36         *version::vcmp = \&ExtUtils::MakeMaker::version::vpp::vcmp;
   37         *version::new = \&ExtUtils::MakeMaker::version::vpp::new;
   38         if ($] >= 5.009000) {
   39             no strict 'refs';
   40             *version::stringify = \&ExtUtils::MakeMaker::version::vpp::stringify;
   41             *{'version::(""'} = \&ExtUtils::MakeMaker::version::vpp::stringify;
   42             *{'version::(<=>'} = \&ExtUtils::MakeMaker::version::vpp::vcmp;
   43             *version::parse = \&ExtUtils::MakeMaker::version::vpp::parse;
   44         }
   45         require ExtUtils::MakeMaker::version::regex;
   46         *version::is_lax = \&ExtUtils::MakeMaker::version::regex::is_lax;
   47         *version::is_strict = \&ExtUtils::MakeMaker::version::regex::is_strict;
   48         *LAX = \$ExtUtils::MakeMaker::version::regex::LAX;
   49         *STRICT = \$ExtUtils::MakeMaker::version::regex::STRICT;
   50     }
   51     elsif ( ! version->can('is_qv') ) {
   52         *version::is_qv = sub { exists $_[0]->{qv} };
   53     }
   54 }
   55 
   56 1;