Also undef %fetched when clones.pl is unloaded

[perl/scripts/xchat.git] / clones.pl

diff --git a/clones.pl b/clones.pl
index 46ca4d648815aada8713f28f8c029bbc70d5adcd..c1e0dd950ebc47c5a3666179c6906cbc7a72d2ec 100755 (executable)
--- a/clones.pl
+++ b/clones.pl
@@ -314,7 +314,10 @@ $ph = Xchat::XPI->new(
  author => 'Vincent Pit (VPIT)',
  email  => 'perl@profvince.com',
  url    => 'http://www.profvince.com',
  author => 'Vincent Pit (VPIT)',
  email  => 'perl@profvince.com',
  url    => 'http://www.profvince.com',

- unload => sub { undef %users },
+ unload => sub {
+  undef %users;
+  undef %fetched;
+ },

 );
 
 1;
 );
 
 1;