summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-29 19:42:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-29 19:42:22 +0000
commit7173354fa6334e1f006af3eda4963a60ad42615d (patch)
tree145efbb6126c5aa848cd18987990923c29a68b0d
parent6e23dc5807f4251b35ef37550b3ef58b88c6dc10 (diff)
downloaddrakx-7173354fa6334e1f006af3eda4963a60ad42615d.tar
drakx-7173354fa6334e1f006af3eda4963a60ad42615d.tar.gz
drakx-7173354fa6334e1f006af3eda4963a60ad42615d.tar.bz2
drakx-7173354fa6334e1f006af3eda4963a60ad42615d.tar.xz
drakx-7173354fa6334e1f006af3eda4963a60ad42615d.zip
make perl_checker happy
-rw-r--r--perl-install/printer.pm2
-rwxr-xr-xperl-install/standalone/XFdrake2
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;