summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/main.pm5
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;