summaryrefslogtreecommitdiffstats
path: root/perl-install/commands
blob: c37a180c73a89ec62edb34bbf6c9145efa5355cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl

use diagnostics;
use strict;

use lib qw(/usr/bin/perl-install .);
use common;
use commands;

my $progname = basename($0);

# hack as some functions are defined by perl... so chmod -> chmod_
&{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0;

sub err { die "$0: unknown program (unimplemented)\n" }