[Bps-public-commit] r18251 - Lorzy/trunk/lib/Lorzy

[clkao at bestpractical.com]

Author: clkao
Date: Thu Feb  5 07:27:36 2009
New Revision: 18251

Modified:
   Lorzy/trunk/lib/Lorzy/Evaluator.pm

Log:
allow package to be loaded from specified file.

Modified: Lorzy/trunk/lib/Lorzy/Evaluator.pm
==============================================================================
--- Lorzy/trunk/lib/Lorzy/Evaluator.pm	(original)
+++ Lorzy/trunk/lib/Lorzy/Evaluator.pm	Thu Feb  5 07:27:36 2009
@@ -139,8 +139,8 @@
 }
 
 sub load_package {
-    my ($self, $package) = @_;
-    my $pkg = "Lorzy::Package::".$package;
+    my ($self, $package, $pkg) = @_;
+    $pkg ||= "Lorzy::Package::".$package;
     $pkg->require or die $!;
     while (my ($name, $def) = each %{$pkg->functions}) {
         my $func = $def->{native}