Changeset 11254

Show
Ignore:
Timestamp:
05/08/08 00:25:16 (5 years ago)
Author:
topia
Message:

* kill redefine and prototype warning, instead of undef funcname GLOB.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/tiarra/trunk/main/Tiarra/Utils/DefineHelper.pm

    r3004 r11254  
    7575    my $funcname; 
    7676    no strict 'refs'; 
     77    no warnings qw(redefine prototype); 
    7778    foreach (@_) { 
    7879        $funcname = $package.'::'.$_; 
    79         undef *{$funcname}; 
     80        #undef *{$funcname}; 
    8081        *{$funcname} = $code; 
    8182    }