From 1c9b13091cbbd6bcc8a161db93588993f2b8b84d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 4 Jul 2001 17:32:53 +0000
Subject: added missing last Card read from Cards+ file.

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

(limited to 'perl-install')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index a4412a3ed..cbe24f5d9 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -67,7 +67,7 @@ sub readCardsDB {
 	s/\s+$//;
 	/^#/ and next;
 	/^$/ and next;
-	/^END/ and last;
+	/^END/ and do { $cards{$card->{type}} = $card if $card; last };
 
 	($cmd, $val) = /(\S+)\s*(.*)/ or next; #log::l("bad line $lineno ($_)"), next;
 
-- 
cgit v1.2.1