diff options
| -rw-r--r-- | perl-install/printer/main.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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 (<PTALINIT>) { 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; |