From c8ff21c4b74246771574d2e2fbd62e53c146cf54 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 19 Aug 2003 22:33:02 +0000
Subject: help perl_checker somewhat

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 2746a480d..7f9a7d511 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -522,7 +522,7 @@ sub stringlist() {
 		$_->{media_type} ? sprintf(" [%s]", $_->{media_type}) : '',
 		$_->{subid} && $_->{subid} != 0xffff ? sprintf(" SubVendor=0x%04x SubDevice=0x%04x", $_->{subvendor}, $_->{subid}) : '',
 	       )
-    } probeall; 
+    } probeall(); 
 }
 
 sub tryOpen($) {
-- 
cgit v1.2.1