Changeset 2875

Show
Ignore:
Timestamp:
08/01/08 00:46:03 (4 months ago)
Author:
bchoate
Message:

Fix to eliminate warnings when loading object subclasses (thanks, Jay!). BugId:79441

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/release-42/lib/MT/Object.pm

    r2615 r2875  
    362362            return $package; 
    363363        } else { 
    364             eval "# line " . __LINE__ . " " . __FILE__ . "\nno warnings 'all';use $package;"; 
     364            eval "# line " . __LINE__ . " " . __FILE__ . "\nno warnings 'all';require $package;"; 
    365365            return $package unless $@; 
    366             eval "# line " . __LINE__ . " " . __FILE__ . "\nno warnings 'all';use $pkg; $package->new;"; 
     366            eval "# line " . __LINE__ . " " . __FILE__ . "\nno warnings 'all';require $pkg; $package->new;"; 
    367367            return $package unless $@; 
    368368        } 
    …… 
    10361036    my $obj_id = $obj->id; 
    10371037    for my $class (@classes) { 
    1038         eval "# line " . __LINE__ . " " . __FILE__ . "\nno warnings 'all';use $class;"; 
     1038        eval "# line " . __LINE__ . " " . __FILE__ . "\nno warnings 'all';require $class;"; 
    10391039        $class->remove({ $key => $obj_id }); 
    10401040    }