From aa6f1ef097c6e9a1909daad52ff664cff371983a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 14 Dec 2011 19:35:59 +0000
Subject: (format_bus_ids) perl_checker cleanup

---
 perl-install/standalone/harddrake2 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 4a1cc87fb..ff945dda6 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -488,7 +488,7 @@ foreach (@classes) {
 undef $flush_guard;
 
 sub format_bus_ids {
-    my ($device) = $_;
+    my ($device) = @_;
     # do not vivify ids:
     return if !($device->{vendor} && $device->{id});
     foreach my $field (qw(vendor id subvendor subid)) {
-- 
cgit v1.2.1