From 40425966ded63288d46d82030a4c72ba829114bb Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Fri, 16 Jan 2004 02:48:55 +0000 Subject: - re use strict, because nobody is better than perl - use sub folder bug report when restart is need - add cvs $Id$ in script --- urpme | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'urpme') diff --git a/urpme b/urpme index a28c0e9b..3e28b2b0 100644 --- a/urpme +++ b/urpme @@ -1,5 +1,7 @@ #!/usr/bin/perl +# $Id$ + # Copyright (C) 1999,2002 MandrakeSoft # # @@ -18,14 +20,14 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. #We only make good software ;-) -#use strict; +use strict; #use strict qw(subs vars refs); use URPM; use URPM::Resolve; use urpm; -my (@nextargv, $root, $test, $parallel, $auto, $matches, $verbose, $maymatch, $usedistrib, @l); +my (@nextargv, $root, $test, $parallel, $auto, $matches, $verbose, $maymatch, $usedistrib, $force, $bug, @l); my $askok = N("Is this OK?"); # Translator: Add here the keys which might be pressed in the "No"-case. my $noexpr = N("Nn"); -- cgit v1.2.1