From 5958cf1a7d33507f531c6322dd8f2eac903ae1d5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 11 Aug 2004 06:53:15 +0000 Subject: perl_checker cleanups --- perl-install/standalone.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 0a24c4cf5..04b373955 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -152,7 +152,7 @@ foreach (@ARGV) { @ARGV = @new_ARGV; -sub version { +sub version() { print 'Drakxtools version 10 Copyright (C) 1999-2004 Mandrakesoft by ', $::license, "\n"; @@ -170,7 +170,7 @@ our @drakx_modules = qw(Xconfig::card Xconfig::default Xconfig::main Xconfig::mo $SIG{SEGV} = sub { my $progname = $0; $progname =~ s|.*/||; exec("drakbug --incident $progname") }; -sub import { +sub import() { ($standalone_name = $0) =~ s|.*/||; c::openlog($standalone_name . "[$$]"); explanations('### Program is starting ###'); -- cgit v1.2.1