From 36facb03004c3db54dcf9c803d0a190b0b947cbb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 13 Nov 2002 15:32:59 +0000
Subject: fix files lookup

---
 perl-install/printer/office.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/printer/office.pm b/perl-install/printer/office.pm
index ce00489a5..4ab60bcca 100644
--- a/perl-install/printer/office.pm
+++ b/perl-install/printer/office.pm
@@ -340,8 +340,8 @@ sub removeopenofficeprinterentry {
 
 sub find_config_file {
     my ($suite) = @_;
-    my @configfilenames = $suites{$suite}{files};
-    foreach my $configfilename (@configfilenames) {
+    my $configfilenames = $suites{$suite}{files};
+    foreach my $configfilename (@$configfilenames) {
 	local *F;
 	if (open F, "ls -r $::prefix$configfilename 2> /dev/null |") {
 	    my $filename = <F>;
-- 
cgit v1.2.1