From 126777bc019a54afb4ec51299f2cf9d2841698aa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 25 Apr 2007 12:26:16 +0000 Subject: re-sync after the big svn loss --- perl-install/commands | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100755 perl-install/commands (limited to 'perl-install/commands') 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" } -- cgit v1.2.1