diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-13 15:32:59 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-13 15:32:59 +0000 |
commit | 36facb03004c3db54dcf9c803d0a190b0b947cbb (patch) | |
tree | e092c7a00b9dc15438aa7668be4159306bbef262 /perl-install | |
parent | b7661719bc1f1ebd078c7e7adb2eb25c83526c27 (diff) | |
download | drakx-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.pm | 4 |
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>; |