summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-13 05:00:28 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-13 05:00:28 +0000
commit94b0f241d792c105c85eb51b4af04cbf703f3408 (patch)
treef8d2038f548fa3d07c8399168ef699bff9be7c11 /perl-install
parentf5d46f4cf39ffec28c9f626c6f4595bac78193a3 (diff)
downloaddrakx-94b0f241d792c105c85eb51b4af04cbf703f3408.tar
drakx-94b0f241d792c105c85eb51b4af04cbf703f3408.tar.gz
drakx-94b0f241d792c105c85eb51b4af04cbf703f3408.tar.bz2
drakx-94b0f241d792c105c85eb51b4af04cbf703f3408.tar.xz
drakx-94b0f241d792c105c85eb51b4af04cbf703f3408.zip
(device_name_to_entry) remove unused $variable
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakupdate_fstab2
1 files changed, 1 insertions, 1 deletions
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;
}