From: Michael G. Schwern <schwern@pobox.com>
Date: Sat, 3 May 2003 15:30:16 +0000 (-0700)
Subject: Simpler $Revision$ based $VERSION. Plus, repentance!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=328fc02584f370baa42055f76b59c48da2d561f7;p=p5sagit%2Fp5-mst-13.2.git

Simpler $Revision$ based $VERSION. Plus, repentance!
Message-ID: <20030503223016.GE1234@windhund.schwern.org>

p4raw-id: //depot/perl@19425
---

diff --git a/pod/perlmod.pod b/pod/perlmod.pod
index a216457..6cbdce3 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);