From 94b0f241d792c105c85eb51b4af04cbf703f3408 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 13 Aug 2004 05:00:28 +0000 Subject: (device_name_to_entry) remove unused $variable --- perl-install/standalone/drakupdate_fstab | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab index 4a355cc14..31775ca43 100755 --- a/perl-install/standalone/drakupdate_fstab +++ b/perl-install/standalone/drakupdate_fstab @@ -73,7 +73,7 @@ sub device_name_to_entry { } } else { unless ($e = find { $name eq $_->{device} } @l) { - my ($prefix, $nb) = $name =~ m/^(.*?)(\d*)$/; + my ($prefix) = $name =~ m/^(.*?)\d*$/; $e = find { $prefix eq ($_->{prefix} || $_->{device}) } @l; $e->{device} = $name; } -- cgit v1.2.1