File:
[LON-CAPA] /
loncom /
build /
system_dependencies /
pmvers
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Sat Feb 23 02:41:01 2002 UTC (22 years, 6 months ago) by
harris41
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_99_0,
version_2_9_1,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_X,
version_2_3_99_0,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_X,
version_2_2_99_1,
version_2_2_99_0,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_X,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
version_2_1_99_0,
version_2_1_3,
version_2_1_2,
version_2_1_1,
version_2_1_0,
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
version_2_0_X,
version_2_0_99_1,
version_2_0_2,
version_2_0_1,
version_2_0_0,
version_1_99_3,
version_1_99_2,
version_1_99_1_tmcc,
version_1_99_1,
version_1_99_0_tmcc,
version_1_99_0,
version_1_3_X,
version_1_3_3,
version_1_3_2,
version_1_3_1,
version_1_3_0,
version_1_2_X,
version_1_2_99_1,
version_1_2_99_0,
version_1_2_1,
version_1_2_0,
version_1_1_X,
version_1_1_99_5,
version_1_1_99_4,
version_1_1_99_3,
version_1_1_99_2,
version_1_1_99_1,
version_1_1_99_0,
version_1_1_3,
version_1_1_2,
version_1_1_1,
version_1_1_0,
version_1_0_99_3,
version_1_0_99_2,
version_1_0_99_1,
version_1_0_99,
version_1_0_3,
version_1_0_2,
version_1_0_1,
version_1_0_0,
version_0_99_5,
version_0_99_4,
version_0_99_3,
version_0_99_2,
version_0_99_1,
version_0_99_0,
version_0_6_2,
version_0_6,
version_0_5_1,
version_0_5,
version_0_4,
stable_2002_july,
stable_2002_april,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
conference_2003,
bz6209-base,
bz6209,
bz5969,
bz5610,
bz2851,
STABLE,
PRINT_INCOMPLETE_base,
PRINT_INCOMPLETE,
HEAD,
GCI_3,
GCI_2,
GCI_1,
BZ5971-printing-apage,
BZ5434-fox,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
Tom Christiansen's script to detect version of perl modules
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.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>