From efaf9a78f6b4ace408a471d5e22cd5e07bdd2d4e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 12 Aug 2012 20:43:18 +0100
Subject: [PATCH] manual-gcode-generator: perl-mode fix

---
 manual-gcode-generator | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/manual-gcode-generator b/manual-gcode-generator
index 16a0c66..ba9a0cd 100755
--- a/manual-gcode-generator
+++ b/manual-gcode-generator
@@ -80,7 +80,7 @@ sub proc ($) {
 	    die "$pname ?" unless $procs{$pname};
 	    proc($procs{$pname});
 	} elsif (m/^\!draw\s+/) {
-	    my @coords = split /\s+/, $';
+	    my @coords = split /\s+/, $'; #';
 	    my @undefs = grep { !defined $c{$_} } qw(zprint);
 	    die "@undefs ?" if @undefs;
 	    @coords = map {
-- 
2.30.2