From 0f881eacc9dd3d36486097322c189d0737b56154 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Nov 2002 08:05:41 +0000 Subject: - standalone.pm : o make it be 'use strict' aware o factorize options managment in one place - standalone tools : o they all now support -h|--help -v|--version, ... o they can add their own options to %standalone::usages - harddrake : use std --testing/$::testing rather than its own --test option --- perl-install/standalone/printerdrake | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'perl-install/standalone/printerdrake') diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index 0369cd661..4f05e1ec2 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -30,18 +30,7 @@ use c; local $_ = join '', @ARGV; -/-h/ and die "usage: printerdrake [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing] [--cups] [--lprng] [--lpd] [--pdq]\n"; - -$::expert = 0; -if (/-expert/) { - $::expert = 1; -} elsif (/-beginner/) { - $::expert = 0; -} else { - printer::main::get_usermode (); -} -$::noauto = /-noauto/; -$::testing = /-testing/; +printer::main::get_usermode (); my $printer; -- cgit v1.2.1