diff --git a/bin/xt-customize-image b/bin/xt-customize-image index d35be51..4fa9df6 100755 --- a/bin/xt-customize-image +++ b/bin/xt-customize-image @@ -66,7 +66,7 @@ xt-customize-image - Customize a freshly installed copy of GNU/Linux -- http://www.steve.org.uk/ - $Id: xt-customize-image,v 1.7 2006-06-09 18:59:46 steve Exp $ + $Id: xt-customize-image,v 1.8 2006-06-09 19:49:18 steve Exp $ =cut @@ -111,13 +111,13 @@ parseCommandLineArguments(); # -# Check our arguments +# Check our arguments. # checkArguments(); # -# Run each relevent hook script. +# Run each relevent hook scripts. # runDistributionHooks(); @@ -163,7 +163,7 @@ sub parseCommandLineArguments if ( $VERSION ) { - my $REVISION = '$Revision: 1.7 $'; + my $REVISION = '$Revision: 1.8 $'; if ( $REVISION =~ /1.([0-9.]+) / ) { diff --git a/bin/xt-install-image b/bin/xt-install-image index 9cc5c45..e5ca9e5 100755 --- a/bin/xt-install-image +++ b/bin/xt-install-image @@ -79,7 +79,7 @@ Install the distribution specified by the B<--dist> argument using the debootstr -- http://www.steve.org.uk/ - $Id: xt-install-image,v 1.8 2006-06-09 18:59:46 steve Exp $ + $Id: xt-install-image,v 1.9 2006-06-09 19:49:18 steve Exp $ =cut @@ -106,8 +106,6 @@ use Pod::Usage; # # Configuration values read from the command line. # -# We do not need to read any configuration file. -# my %CONFIG; # @@ -128,11 +126,8 @@ parseCommandLineArguments(); checkArguments(); - # -# Work out how to install: -# - +# Install the new system. # # Simplest cases first. # @@ -163,7 +158,9 @@ else # # error # - # return a code so that xen-create-image can abort. + print "No recognised installation method was discovered."; + print "Aborting\n"; + exit 1; } @@ -219,7 +216,7 @@ sub parseCommandLineArguments if ( $VERSION ) { - my $REVISION = '$Revision: 1.8 $'; + my $REVISION = '$Revision: 1.9 $'; if ( $REVISION =~ /1.([0-9.]+) / ) { @@ -313,7 +310,7 @@ E_OR } # - # If count == 0 we had no recognised installation methods + # If count == 0 we had no recognised installation method. # if ( $count == 0 ) {