From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 22 Mar 2012 20:07:09 +0000 (-0700)
Subject: fix code escaping
X-Git-Url: https://git.donarmstrong.com/?p=ikiwiki_plugins.git;a=commitdiff_plain;h=0480a392d8eb5ff892dcf71f293d86d2f51a32c6

fix code escaping
---

diff --git a/sweavealike.pm b/sweavealike.pm
index 1808090..16713a0 100644
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -142,10 +142,10 @@ sub preprocess {
 	$image_loc_esc =~ s/"/\\"/g;
 	will_render($param{page},$image_loc);
 	eval {
-	    $pagestate{$param{page}}{$id}{R}->run(qq{png(filename="$image_loc_esc",width=$param{width},height=$param{height});});
+	    $pagestate{$param{page}}{$id}{R}->run(qq|png(filename="$image_loc_esc",width=$param{width},height=$param{height});|);
 	};
 	if ($@) {
-	    error("code 'png(filename="$image_loc_esc",width=$param{width},height=$param{height});' (from internal figure handling) produced error '$@'");
+	    error(qq|code 'png(filename="$image_loc_esc",width=$param{width},height=$param{height});' (from internal figure handling) produced error '$@'|);
 	}
     }
     my $code_result;