From 8c72bca81bb7c74c285d2a99c36f7b33e04e1d24 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 30 Sep 2005 12:29:52 +0000 Subject: Factorize --- gendistrib | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'gendistrib') diff --git a/gendistrib b/gendistrib index 9204e29..f113771 100755 --- a/gendistrib +++ b/gendistrib @@ -33,6 +33,7 @@ my $headers_dir = $tempdir . "/.build_hdlist"; sub usage () { pod2usage({ -verbose => 1 }); + exit 0; } my %urpmfiles; @@ -44,7 +45,7 @@ GetOptions( 'destdir=s' => \my $destdir, 'hdlists=s' => \$urpmfiles{hdlists}, 'headersdir=s' => \$headers_dir, - 'help|h' => sub { usage(); exit 0; }, + 'help|h' => \&usage, 'mediacfg=s' => \$urpmfiles{mediacfg}, 'nobadrpm' => \my $dontdie, 'nochkdep' => \my $nochkdep, @@ -58,9 +59,7 @@ GetOptions( 'v|version' => sub { warn "$0 version $VERSION\n"; exit 0 }, ); -my @root = grep { $_ } @ARGV; - -@root > 0 or do { usage(); exit 1 }; +(my @root = grep { $_ } @ARGV) > 0 or usage(); my $distrib = Distribconf::Build->new($root[0]); -- cgit v1.2.1