Changeset 19050 for gsdl/trunk/perllib

Timestamp:

2009-04-19T17:47:23+12:00 (15 years ago)

Author:

davidb

Message:

No need to set filecontents_cache to undef first

File:

• gsdl/trunk/perllib/textcat.pm (modified) (2 diffs)

gsdl/trunk/perllib/textcat.pm

@@ -287 +287 @@
     my $self = shift (@_);
 
-    %filename_cache = undef; # does this suffice to release memory?
     %filename_cache = ();
 }
@@ -295 +294 @@
     my $self = shift (@_);
 
-    %filecontents_cache = undef; # does this suffice to release memory?
     %filecontents_cache = ();
 }