From: ian <ian>
Date: Sun, 3 May 2009 17:02:17 +0000 (+0000)
Subject: correctly detect unspecified initial H
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=690d6094989048801b246ca25635230cbe15fef7;p=trains.git

correctly detect unspecified initial H
---

diff --git a/layout/slopecalc b/layout/slopecalc
index 2c113e9..4fb1145 100755
--- a/layout/slopecalc
+++ b/layout/slopecalc
@@ -100,7 +100,7 @@ sub complete_current_point ($) {
     my $say_why= 0;
 
     my $this= $cp[$#cp];
-    my $last= $cp[$#cp-1];
+    my $last= @cp > 1 ? $cp[$#cp-1] : undef;
     foreach my $k2 (qw(S L H)) {
 	if (defined $last) {
 	    no strict 'refs';
@@ -136,8 +136,11 @@ sub arg_item ($$) {
     push @cp, $this;
 }
 
+#use Data::Dumper;
+
 sub parse_args () {
     foreach $_ (@ARGV) {
+#print STDERR ">$_<\n", Dumper(\@cp);
 	if (m/^\=([-+]?$numre)$/o) {
 	    arg_item(H, $1);
 	} elsif (m/^([-+]?$numre)\%$/o) {