1
0
mirror of synced 2026-04-30 13:51:42 +00:00

2006-01-08 02:13:31 by steve

Fix error in pod, revealed by test script.
This commit is contained in:
steve
2006-01-08 02:13:31 +00:00
parent 79a87e90dc
commit a7815617cc

View File

@@ -67,7 +67,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-update-image,v 1.12 2006-01-08 02:10:52 steve Exp $
$Id: xen-update-image,v 1.13 2006-01-08 02:13:31 steve Exp $
=cut
@@ -158,7 +158,8 @@ exit;
Actually perform the updates of the relevant image.
=cut
=cut
sub updateXenImage
{
my ( $name ) = ( @_ );
@@ -287,7 +288,7 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-update-image,v 1.12 2006-01-08 02:10:52 steve Exp $';
my $REVISION = '$Id: xen-update-image,v 1.13 2006-01-08 02:13:31 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;