diff options
| -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>; |