diff options
Diffstat (limited to 'perl-install/commands')
-rwxr-xr-x | perl-install/commands | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/perl-install/commands b/perl-install/commands deleted file mode 100755 index 442da9ed3..000000000 --- a/perl-install/commands +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/perl - -use diagnostics; -use strict; - -use lib qw(/usr/lib/libDrakX .); -use common; -use commands; - -$::isInstall = 1; -$::prefix = '/mnt'; -my $progname = basename($0); - -eval { - # hack as some functions are defined by perl... so chmod -> chmod_ - &{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0; -}; -die formatError($@) . "\n"; - -sub err() { die "$0: unknown program (unimplemented)\n" } |