--- lib/TWiki/Plugins/CalendarPlugin.pm Sun Feb 29 14:01:00 2004
+++ CalendarPlugin.pm   Fri Apr 23 16:24:14 2004
@@ -346,7 +346,7 @@
     our $weekly_rx = "E\\s+($wdays_rx)";
     our $periodic_rx = "E([0-9]+)\\s+$full_date_rx";
     our $numdaymon_rx = "([0-9L])\\s+($wdays_rx)\\s+($months_rx)";
-    $text = getTopicText(%options, $theTopic, $theWeb, $refText);
+    $text = getTopicText(\%options, $theTopic, $theWeb, $refText);

     # recursively expand includes
     # (don't rely on TWiki::Func::expandCommonVariables to avoid deep recursion)
@@ -519,7 +519,8 @@
     return $cal->as_HTML;
 }
 sub getTopicText {
-    my (%options, $theTopic, $theWeb, $refText) = @_;
+    my ($optionsref, $theTopic, $theWeb, $refText) = @_;
+    my %options=%$optionsref;
     my $topics = $options{topic};
 #   return "   * 1 Mar 2002 - foo ". $topics."\n";