2006-01-08 02:13:31 by steve
Fix error in pod, revealed by test script.
This commit is contained in:
@@ -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/;
|
||||
|
||||
Reference in New Issue
Block a user