How about:
if ($using[$i] =~ /::/) {
eval "use $using[$i]";
}
else {
eval "use Inline::${language}::$using[$i]";
}
- if ($using[$i] =~ /::/) {
+ if ($using[$i] =~ /^::/) {
So an expanding $using[$i] package name can contain "::".
While an explicit arbitrary package Foo::Bar is referred to as ::Foo::Bar.
Mitchell
