From 19dba2789be12d69311ffec10189c1de05586dc3 Mon Sep 17 00:00:00 2001 From: Elijah Perrault Date: Tue, 8 Feb 2011 11:17:03 -0700 Subject: [PATCH] Revert to old way of initialization and voiding. --- src/API/Std.pm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/API/Std.pm b/src/API/Std.pm index ca70171..899c29d 100644 --- a/src/API/Std.pm +++ b/src/API/Std.pm @@ -34,9 +34,7 @@ sub mod_init } # Run the module's _init sub. - my $mi = eval { - &{ $pkg.'::_init' }(); - }; + my $mi = eval($pkg.'::_init();'); if ($mi) { # If successful, add to hash. @@ -86,9 +84,7 @@ sub mod_void } # Run the module's _void sub. - my $mi = eval { - &{ $MODULE{$module}{pkg}.'::_void' }(); - }; + my $mi = eval($MODULE{$module}{pkg}.'::_void();'); if ($mi) { # If successful, delete class from program and delete module from hash.