summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 9d1a82e11..012e443cd 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -1449,10 +1449,19 @@ sub configure_hpoj {
if (m!sub main!) {
last;
} elsif (m!^[^\#]!) {
+ # Make the subroutines also working during installation
+ if ($::isInstall) {
+ s!\$prefix!\$hpoj_prefix!g;
+ s!prefix=\"/usr\"!prefix=\"$prefix/usr\"!g;
+ s!etcPtal=\"/etc/ptal\"!etcPtal=\"$prefix/etc/ptal\"!g;
+ s!varLock=\"/var/lock\"!varLock=\"$prefix/var/lock\"!g;
+ s!varRunPrefix=\"/var/run\"!varRunPrefix=\"$prefix/var/run\"!g;
+ }
push (@ptalinitfunctions, $_);
}
}
close PTALINIT;
+
eval "@ptalinitfunctions
sub getDevnames {
return (%devnames)
@@ -1610,7 +1619,7 @@ sub configure_hpoj {
# Open configuration file
local *CONFIG;
- open(CONFIG,"> /etc/ptal/$ptaldevice") ||
+ open(CONFIG,"> $prefix/etc/ptal/$ptaldevice") ||
die "Could not open /etc/ptal/$ptaldevice for writing!\n";
# Write file header.