From 36ea3f82b342986eb3186b8b4b04b7507a9c4dd0 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Fri, 1 Mar 2002 16:32:44 +0000 Subject: Reduced the paths to search for Star/Open Office, on systems without these applications installed the search needed a significant time. --- perl-install/printer.pm | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) (limited to 'perl-install/printer.pm') diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 445e7aea8..1e6299100 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -2057,14 +2057,11 @@ sub removeopenofficeprinterentry { } sub findsofficeconfigfile { - my @configfilenames = ("/usr/lib/*/share/xp3/Xpdefaults", - "/usr/local/lib/*/share/xp3/Xpdefaults", - "/usr/local/*/share/xp3/Xpdefaults", - "/opt/*/share/xp3/Xpdefaults", - "/*/share/xp3/Xpdefaults", - "/*/*/share/xp3/Xpdefaults", - "/*/*/*/share/xp3/Xpdefaults", - "/*/*/*/*/share/xp3/Xpdefaults"); + my @configfilenames = + ("/usr/lib/*/share/xp3/Xpdefaults", + "/usr/local/lib/*/share/xp3/Xpdefaults", + "/usr/local/*/share/xp3/Xpdefaults", + "/opt/*/share/xp3/Xpdefaults"); my $configfilename = ""; for $configfilename (@configfilenames) { local *F; @@ -2082,11 +2079,7 @@ sub findopenofficeconfigfile { ("/usr/lib/*/share/psprint/psprint.conf", "/usr/local/lib/*/share/psprint/psprint.conf", "/usr/local/*/share/psprint/psprint.conf", - "/opt/*/share/psprint/psprint.conf", - "/*/share/psprint/psprint.conf", - "/*/*/share/psprint/psprint.conf", - "/*/*/*/share/psprint/psprint.conf", - "/*/*/*/*/share/psprint/psprint.conf"); + "/opt/*/share/psprint/psprint.conf"); my $configfilename = ""; for $configfilename (@configfilenames) { local *F; -- cgit v1.2.1