Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Pod::Usage

by hossman (Prior)
on Jan 08, 2006 at 20:04 UTC ( [id://521831]=note: print w/replies, xml ) Need Help??


in reply to 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

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 :)

    Steve
    --
[reply]

In Section Module Reviews

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://521831]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others perusing the Monastery: (7)
As of 2024-04-19 17:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found