From 0480a392d8eb5ff892dcf71f293d86d2f51a32c6 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 22 Mar 2012 13:07:09 -0700
Subject: [PATCH] fix code escaping

---
 sweavealike.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.39.2