Re: Pod::Usage

my $REVISION      = '$Id: pod-usage,v 1.79 2006/01/07 23:23:12 steve E
+xp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
[download]

Ouch.

You might want to review this list of CVS Keywords, I think you'll find $Revision$ handy

Comment on Re: Pod::Usage Select or Download Code

Replies are listed 'Best First'.
Re^2: Pod::Usage by skx (Parson) on Jan 09, 2006 at 15:05 UTC
Classic case of my cutting and pasting some working code into a simpler example. (There's no way this code could be at revision 78!) I'm aware of $Revision: $, but in my real code I display both date and revision and neglected to simplify this section. Thanks for the tip anyway, I'm sure other people might appreciate the pointer :)	[reply]