From f5f5c7250b85fd56c69bb17e6ac28a1974c3a376 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 13 Feb 2003 11:34:46 +0000 Subject: help perl_checker --- perl-install/standalone/drakupdate_fstab | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakupdate_fstab') diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab index 3285daac7..73c308bda 100755 --- a/perl-install/standalone/drakupdate_fstab +++ b/perl-install/standalone/drakupdate_fstab @@ -29,8 +29,8 @@ use fs; $::isStandalone = 1; #- not using standalone.pm which generates too many logs for drakupdate_fstab purpose -$::testing = $ARGV[0] eq '--test' && shift; -$::auto = $ARGV[0] eq '--auto' && shift; +$::testing = $ARGV[0] eq '--test' && shift @ARGV; +$::auto = $ARGV[0] eq '--auto' && shift @ARGV; my ($raw_action, $device_name) = @ARGV; my ($action) = $raw_action =~ /^--(add|del)/; -- cgit v1.2.1