blob: e00f215de71ac321ade0e23cf06a1828d86e9841 (
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 . c c/blib/arch);
use common qw(:file);
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"; }
|
