Shift things into Tagtools, to tidy up.

[memories.git] / Tagtools.pm

diff --git a/Tagtools.pm b/Tagtools.pm
index 292e6e517a33c821e5f53bffd6efa2e3faea6a71..10a242be8da1b317d7f7d43cf5ef4768988f922d 100644 (file)
--- a/Tagtools.pm
+++ b/Tagtools.pm
@@ -1,4 +1,5 @@
 package Tagtools;
+use URI::Escape;
 use HTML::TagCloud;
 use Carp;
 use Cache::FileCache;
@@ -53,7 +54,7 @@ sub import {
         return \@month;
     };
     for my $thing (qw(tagcloud calendar)) {
-        *{$whence."::$thing"} = sub { shift->do_cached($thing, @_) }
+        *{$whence."::$thing"} = sub { shift->do_cached(\&{$whence."::_".$thing}, @_) }
     }
 
 }