package c; # $Id$ use vars qw($AUTOLOAD); use c::stuff; use MDK::Common; sub AUTOLOAD { $AUTOLOAD =~ /::(.*)/; my @l = eval { &{$c::stuff::{$1}} }; if (my $err = $@) { $err =~ /Undefined subroutine &main::/ ? die("can't find function $AUTOLOAD\n" . backtrace()) : die($err); } wantarray ? @l : $l[0]; } 1; ='git://git.mageia.org/software/drakx' title='drakx Git repository'/>
summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/sq.po
diff options
context:
space:
mode:
authorYuri Chornoivan <yurchor@ukr.net>2014-12-28 14:14:11 +0200
committerYuri Chornoivan <yurchor@ukr.net>2014-12-28 14:14:11 +0200
commit820c257a1a375ea716590b9d62365af01031d2be (patch)
tree697dc0e1eb8abd07983c06c039f2e360ef3548db /perl-install/share/po/sq.po
parent13e7728b70dc07f26a7123a65c58dbd523b4ea90 (diff)
downloaddrakx-820c257a1a375ea716590b9d62365af01031d2be.tar
drakx-820c257a1a375ea716590b9d62365af01031d2be.tar.gz
drakx-820c257a1a375ea716590b9d62365af01031d2be.tar.bz2
drakx-820c257a1a375ea716590b9d62365af01031d2be.tar.xz
drakx-820c257a1a375ea716590b9d62365af01031d2be.zip