X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=sweavealike.pm;h=2989c83e2bc131accf5fc748fbfbd4d35a51377c;hb=29ed5e3ea90b75c7b7c0f5f9b60098c8dc157710;hp=c98c07304a463384fdc4e19f41efd571ac2d4e26;hpb=cf1231554134a1038649d30a04e617abb063d545;p=ikiwiki_plugins.git

diff --git a/sweavealike.pm b/sweavealike.pm
index c98c073..2989c83 100644
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -62,8 +62,8 @@ sub preprocess {
     if ($@) {
 	error($@);
     }
-    my $output;
-    if ($param{verbatim}) {
+    my $output = "sweave output\n\n";
+    if (exists $param{verbatim}) {
 	$output = $param{code};
 	$output =~ s/^/> /mg;
     }
@@ -92,7 +92,7 @@ sub savestate {
 	next unless exists $pagestate{$page}{$id};
 	next unless exists $pagestate{$page}{$id}{R};
 	if (defined $pagestate{$page}{$id}{R}
-	    and $pagestate{$param{page}}{$id}{R}->is_started()) {
+	    and $pagestate{$page}{$id}{R}->is_started()) {
 	    $pagestate{$page}{$id}{R}->stop;
 	}
 	delete $pagestate{$page}{$id}{R};