X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=Tagtools.pm;h=10a242be8da1b317d7f7d43cf5ef4768988f922d;hb=7767c51977a235b2f9205da1a94b07ba55ad2f52;hp=292e6e517a33c821e5f53bffd6efa2e3faea6a71;hpb=41009314e922f5a0d484bf5c8482950a454b08d7;p=memories.git

diff --git a/Tagtools.pm b/Tagtools.pm
index 292e6e5..10a242b 100644
--- 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}, @_) }
     }
 
 }