diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-01-18 20:16:48 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-01-18 20:16:48 +0000 |
| commit | a004bd7b94f77646ef2234bf10411e1d6f5b5206 (patch) | |
| tree | 8558a76e9753be09f55c0043b2297775dae1b561 /perl-install/standalone/scannerdrake | |
| parent | 4d1ee459ec8b757fda3ee0860361df1062a3a09a (diff) | |
| download | drakx-backup-do-not-use-a004bd7b94f77646ef2234bf10411e1d6f5b5206.tar drakx-backup-do-not-use-a004bd7b94f77646ef2234bf10411e1d6f5b5206.tar.gz drakx-backup-do-not-use-a004bd7b94f77646ef2234bf10411e1d6f5b5206.tar.bz2 drakx-backup-do-not-use-a004bd7b94f77646ef2234bf10411e1d6f5b5206.tar.xz drakx-backup-do-not-use-a004bd7b94f77646ef2234bf10411e1d6f5b5206.zip | |
- move 'use standalone' up to comply to 'explanations'
- fix a small english problem
Diffstat (limited to 'perl-install/standalone/scannerdrake')
| -rwxr-xr-x | perl-install/standalone/scannerdrake | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake index ffb61727a..e5d968fc0 100755 --- a/perl-install/standalone/scannerdrake +++ b/perl-install/standalone/scannerdrake @@ -19,9 +19,11 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. use lib qw(/usr/lib/libDrakX); + +use standalone; #- warning, standalone must be loaded very first, for 'explanations' + use interactive; use common; -use standalone; use scanner; $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; @@ -48,7 +50,7 @@ sub auto { if (member($_->{val}{DESCRIPTION}), keys %$scanner::scannerDB) { my $name = $_->{val}{DESCRIPTION}; $name =~ s/\s$//; #some HP entry have a trailing space, i will correct usbtable asap - $in->ask_yesorno('scannerdrake',_("%s found on %s, configuring it ?",$name,$_->{port}),1) or manual(); + $in->ask_yesorno('scannerdrake',_("%s found on %s, configure it ?",$name,$_->{port}),1) or manual(); tryConfScanner($name, $_->{port}); } } @@ -92,6 +94,10 @@ sub quit { #----------------------------------------------- # $Log$ +# Revision 1.5 2002/01/18 20:16:48 gc +# - move 'use standalone' up to comply to 'explanations' +# - fix a small english problem +# # Revision 1.4 2001/11/19 17:39:03 pablo # Corrected English errors # |