diff options<package c; # $Id$
use vars qw($AUTOLOAD);
use c::stuff;
use MDK::Common;
sub AUTOLOAD() {
$AUTOLOAD =~ /::(.*)/ or return;
my @l = eval { &{$c::stuff::{$1}} };
if (my $err = $@) {
$err =~ /Undefined subroutine &main::/ ?
die("can not find function $AUTOLOAD\n" . backtrace()) :
die($err);
}
wantarray() ? @l : $l[0];
}
1;
 |
index : drakx | |
| Mageia Installer and base platform for many utilities | Thierry Vignaud [tv] |
| summaryrefslogtreecommitdiffstats |