summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-13 15:32:59 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-13 15:32:59 +0000
commit36facb03004c3db54dcf9c803d0a190b0b947cbb (patch)
treee092c7a00b9dc15438aa7668be4159306bbef262 /perl-install
parentb7661719bc1f1ebd078c7e7adb2eb25c83526c27 (diff)
downloaddrakx-36facb03004c3db54dcf9c803d0a190b0b947cbb.tar
drakx-36facb03004c3db54dcf9c803d0a190b0b947cbb.tar.gz
drakx-36facb03004c3db54dcf9c803d0a190b0b947cbb.tar.bz2
drakx-36facb03004c3db54dcf9c803d0a190b0b947cbb.tar.xz
drakx-36facb03004c3db54dcf9c803d0a190b0b947cbb.zip
fix files lookup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/office.pm4
1 files 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>;