diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 06:53:15 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 06:53:15 +0000 |
| commit | 5958cf1a7d33507f531c6322dd8f2eac903ae1d5 (patch) | |
| tree | 46710716f3fb5b425fdb9d28404d29ec53357bf8 /perl-install | |
| parent | 8a4b29f7b0c727357677ad2c6d476a19770b082f (diff) | |
| download | drakx-backup-do-not-use-5958cf1a7d33507f531c6322dd8f2eac903ae1d5.tar drakx-backup-do-not-use-5958cf1a7d33507f531c6322dd8f2eac903ae1d5.tar.gz drakx-backup-do-not-use-5958cf1a7d33507f531c6322dd8f2eac903ae1d5.tar.bz2 drakx-backup-do-not-use-5958cf1a7d33507f531c6322dd8f2eac903ae1d5.tar.xz drakx-backup-do-not-use-5958cf1a7d33507f531c6322dd8f2eac903ae1d5.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 <install@mandrakesoft.com> ', $::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 ###'); |