From bb8ff5a0723124de9ed8d08bb747352afdd766d7 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Mon, 1 Mar 2004 13:05:43 +0000 Subject: Fixed bug of installer crashing when an HP multi-function device is detected and set up. --- perl-install/printer/main.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm index c6209b98e..bf09563af 100644 --- a/perl-install/printer/main.pm +++ b/perl-install/printer/main.pm @@ -2139,7 +2139,10 @@ sub configure_hpoj { while () { if (m!sub main!) { last; - } elsif (m!^[^\#]!) { + } elsif ((m!^[^\#]!) && !(m!^\s*exec\b!)){ + # Comment lines and the "exec" line (probably obsolete + # Red Hat workaround) are skipped. + # Make the subroutines also working during installation if ($::isInstall) { s!\$::prefix!\$hpoj_prefix!g; -- cgit v1.2.1