From 7173354fa6334e1f006af3eda4963a60ad42615d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 29 Jul 2002 19:42:22 +0000 Subject: make perl_checker happy --- perl-install/printer.pm | 2 +- perl-install/standalone/XFdrake | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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() { + while () { 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; -- cgit v1.2.1