Return to pmvers CVS log

Up to [LON-CAPA] / loncom / build / system_dependencies

Annotation of loncom/build/system_dependencies/pmvers, revision 1.1

1.1     ! harris41    1: #!/usr/bin/env perl
        !             2: # pmvers -- print out a module's version, if findable
        !             3: # tchrist@perl.com
        !             4: 
        !             5: BEGIN { $^W = 1 }
        !             6: 
        !             7: $errors = 0;
        !             8: 
        !             9: for $module (@ARGV) {
        !            10:     eval "local \$^W = 0; require $module";
        !            11:     if ($@) {
        !            12: 	$@ =~ s/at \(eval.*$//;
        !            13: 	warn "$0: $@";
        !            14: 	$errors++;
        !            15: 	next;
        !            16:     } 
        !            17:     print "$module: " if @ARGV > 1;
        !            18:     if (defined($version = $module->VERSION())) { 
        !            19: 	print "$version\n";
        !            20:     } 
        !            21:     else { 
        !            22: 	$errors++;
        !            23: 	if (@ARGV > 1) {
        !            24: 	    print "unknown version\n";
        !            25: 	} 
        !            26: 	else {
        !            27: 	    warn "$0: unknown version for module `$module'\n";
        !            28: 	} 
        !            29:     }
        !            30: } 
        !            31: 
        !            32: exit ($errors != 0);
        !            33: 
        !            34: 
        !            35: __END__
        !            36: 
        !            37: =head1 NAME
        !            38: 
        !            39: pmvers - print out a module's version
        !            40: 
        !            41: =head1 DESCRIPTION
        !            42: 
        !            43: Given one or more module names, show the version number if present.
        !            44: If more than one argument is given, the name of the module will also
        !            45: be printed.  Not all modules define version numbers, however.
        !            46: 
        !            47: =head1 EXAMPLES
        !            48: 
        !            49:     $ pmvers CGI
        !            50:     2.46
        !            51: 
        !            52:     $ pmvers IO::Socket Text::Parsewords
        !            53:     IO::Socket: 1.25
        !            54:     Text::ParseWords: 3.1
        !            55: 
        !            56:     $ oldperl -S pmvers CGI
        !            57:     2.42
        !            58: 
        !            59:     $ filsperl -S pmvers CGI
        !            60:     2.46
        !            61: 
        !            62:     $ pmvers Devel::Loaded
        !            63:     pmvers: unknown version for module `Devel::Loaded'
        !            64: 
        !            65: h=ead1 SEE ALSO
        !            66: 
        !            67: pmdesc(1),
        !            68: pmpath(1),
        !            69: pmcat(1).
        !            70: 
        !            71: =head1 AUTHOR and COPYRIGHT
        !            72: 
        !            73: Copyright (c) 1999 Tom Christiansen
        !            74: 
        !            75: This is free software.  You may modify it and distribute it 
        !            76: under Perl's Artistic Licence.  Modified versions must be
        !            77: clearly indicated.