summaryrefslogtreecommitdiff
path: root/pod/perlmod.pod
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2003-05-03 08:30:16 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2003-05-05 15:47:19 +0000
commit328fc02584f370baa42055f76b59c48da2d561f7 (patch)
tree5412360b4fdd0cad9bfd818ea9f0fe86a28940d0 /pod/perlmod.pod
parent2f86008e342644f19f6a5b7136a5027c19cae4c1 (diff)
downloadperl-328fc02584f370baa42055f76b59c48da2d561f7.tar.gz
Simpler $Revision$ based $VERSION. Plus, repentance!
Message-ID: <20030503223016.GE1234@windhund.schwern.org> p4raw-id: //depot/perl@19425
Diffstat (limited to 'pod/perlmod.pod')
-rw-r--r--pod/perlmod.pod2
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlmod.pod b/pod/perlmod.pod
index a216457cf8..6cbdce3f9b 100644
--- a/pod/perlmod.pod
+++ b/pod/perlmod.pod
@@ -335,7 +335,7 @@ create a file called F<Some/Module.pm> and start with this template:
# set the version for version checking
$VERSION = 1.00;
# if using RCS/CVS, this may be preferred
- $VERSION = do { my @r = (q$Revision: 2.21 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
+ $VERSION = sprintf "%d.%03d", q$Revision: 1.1 $ =~ /(\d+)/g;
@ISA = qw(Exporter);
@EXPORT = qw(&func1 &func2 &func4);