fix code escaping

diff --git a/sweavealike.pm b/sweavealike.pm
index 1808090cbc226404ebe083003c40e5064fe55e1f..16713a0092c64e57b0447872612caf093acd2c07 100644 (file)
--- 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;