diff options
| -rw-r--r-- | perl-install/printer.pm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/XFdrake | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index c655e3a8a..d3d54c478 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -1467,7 +1467,7 @@ sub configure_hpoj { die "unable to open /usr/sbin/ptal-init"; }; my @ptalinitfunctions; # subroutine definitions in /usr/sbin/ptal-init - while(<PTALINIT>) { + while (<PTALINIT>) { if (m!sub main!) { last; } elsif (m!^[^\#]!) { diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake index 635fd0324..eca0f6cad 100755 --- a/perl-install/standalone/XFdrake +++ b/perl-install/standalone/XFdrake @@ -25,8 +25,10 @@ use Xconfig::main; use Xconfig::xfree; use Xconfig::default; use interactive; +use any; use c; + $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; local $_ = join '', @ARGV; |