home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / commands < prev    next >
Encoding:
Text File  |  2000-01-12  |  332 b   |  16 lines
  1. #!/usr/bin/perl
  2.  
  3.  
  4.  
  5.  
  6. use lib qw(/usr/bin/perl-install .);
  7. use common qw(:file);
  8. use commands;
  9.  
  10. my $progname = basename($0);
  11.  
  12. # hack as some functions are defined by perl... so chmod -> chmod_
  13. &{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0;
  14.  
  15. sub err { die "$0: unknown program (unimplemented)\n"; }
  16.