From 4e6ed1b32e68b966de65d9553d5b64120d9eccdb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 5 Oct 2004 06:41:22 +0000
Subject: (getUPS) typo fix

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 099b9ca45..2dc3e633a 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -581,7 +581,7 @@ sub getUPS() {
         $_;
     } grep { $_->{DESCRIPTION} =~ /MGE UPS/ } values %serialprobe),
       # USB UPSs;
-      (grep { $->{description} =~ /American Power Conversion\|Back-UPS/ } @usb_devices),
+      (grep { $_->{description} =~ /American Power Conversion\|Back-UPS/ } @usb_devices),
       (map {
           ($_->{name} = $_->{description}) =~ s/.*\|//;
           $_->{port} = "/dev/"; # FIXME
-- 
cgit v1.2.1