summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/printer/main.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 2d49a7d00..c6209b98e 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -2139,7 +2139,7 @@ sub configure_hpoj {
while (<PTALINIT>) {
if (m!sub main!) {
last;
- } elsif (m!^[^#]!) {
+ } elsif (m!^[^\#]!) {
# Make the subroutines also working during installation
if ($::isInstall) {
s!\$::prefix!\$hpoj_prefix!g;
@@ -2391,7 +2391,8 @@ qq(
# The format version of this file:
# ptal-init ignores devices with incorrect/missing versions.
-init.version=2\n");
+init.version=2
+);
# Write model string.
if ($model_long !~ /\S/) {