blob: 7a5fc908c7c7052f5d6d2c8dade83dac5be766cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
use diagnostics;
use strict;
use lib qw(/usr/lib/libDrakX .);
use common;
use install::commands;
$::isInstall = 1;
$::prefix = '/mnt';
my $progname = basename($0);
eval {
# hack as some functions are defined by perl... so chmod -> chmod_
&{$install::commands::{$progname} || $install::commands::{$progname . "_"} || \&err}(@ARGV), exit 0;
};
die formatError($@) . "\n";
sub err() { die "$0: unknown program (unimplemented)\n" }
|
