Changeset 19050

Show
Ignore:
Timestamp:
19.04.2009 17:47:23 (10 years ago)
Author:
davidb
Message:

No need to set filecontents_cache to undef first

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/textcat.pm

    r17214 r19050  
    287287    my $self = shift (@_); 
    288288 
    289     %filename_cache = undef; # does this suffice to release memory? 
    290289    %filename_cache = (); 
    291290} 
     
    295294    my $self = shift (@_); 
    296295 
    297     %filecontents_cache = undef; # does this suffice to release memory? 
    298296    %filecontents_cache = (); 
    299297}