From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 12 Aug 2012 19:43:18 +0000 (+0100)
Subject: manual-gcode-generator: perl-mode fix
X-Git-Tag: filamentspool-v2-release~945
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=efaf9a78f6b4ace408a471d5e22cd5e07bdd2d4e

manual-gcode-generator: perl-mode fix
---

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 {