X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=sweavealike.pm;h=f802fa5957f78b476780ddd98ea51886eda7d8af;hb=66d9a79ab1e07d0c817b836c04e67f7bab2f6122;hp=16713a0092c64e57b0447872612caf093acd2c07;hpb=0480a392d8eb5ff892dcf71f293d86d2f51a32c6;p=ikiwiki_plugins.git

diff --git a/sweavealike.pm b/sweavealike.pm
index 16713a0..f802fa5 100644
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -124,7 +124,7 @@ sub preprocess {
 	error("There wasn't any R code supplied");
     }
 
-    my $image_loc
+    my $image_loc = '';
     if (exists $param{fig}) {
 	$param{width} = '400' unless exists $param{width} and defined $param{width};
 	$param{height} = '400' unless exists $param{height} and defined $param{height};
@@ -176,7 +176,7 @@ sub preprocess {
     }
     if (not exists $param{results} or
 	(defined $param{results} and
-	 $param{results} !~ /^(hide|false)$/i;)) {
+	 $param{results} !~ /^(hide|false)$/i)) {
 	$output .= $code_result;
     }
     if (exists $param{echo} or
@@ -204,7 +204,6 @@ sub savestate {
     # make sure we never try to save an R process
     for my $page (keys %pagestate) {
 	next unless exists $pagestate{$page}{$id};
-	next unless ;
 	if (exists $pagestate{$page}{$id}{R}) {
 	    if (defined $pagestate{$page}{$id}{R}
 		and $pagestate{$page}{$id}{R}->is_started()) {