wip

diff --git a/parse-input-graph b/parse-input-graph
index b6d267c7a531a1668d00d2c8ee24371ea949f453..36314ffaf5f1f620bddd2ebe50fc3a1dc38c3a29 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -17,8 +17,7 @@ sub read_in () {
   while (<>) {
     next if m{^\s*\#};
     next unless m{\S};
-    s{\s+$}{};
-    chomp or confess;
+    s{\s+$}{} or confess;
     if (m{^\w+}) {
       $ccolour = $&;
       next;
@@ -33,7 +32,7 @@ sub read_in () {
     }
     if (my ($aref, $adykes) = m{^\t\t(\S.*\S)(?: (\+\+?))$}) {
       my $adj = { Dykes => length $adykes };
-      if ($aref =~ {\.}) {
+      if ($aref =~ m{\.}) {
        $aref =~ s{\-}{[^- ]*-};
        $aref =~ s{\.}{[^- ]* ?};
        $adj->{Regexp} = $aref;
@@ -49,8 +48,8 @@ sub read_in () {
 
 sub unique_aref ($$) {
   my ($ra, $adja) = @_;
-  my $re = $adj->{Regexp};
-  return $adj->{Name} unless defined $re;
+  my $re = $adja->{Regexp};
+  return $adja->{Name} unless defined $re;
   my @found;
   foreach my $rb (sort keys %region) {
     next unless $rb =~ m{^$re$};
@@ -66,18 +65,18 @@ sub unique_aref ($$) {
 }   
 
 sub resolve_arefs () {
-  foreach my $ra (sort keys $region) {
+  foreach my $ra (sort keys %region) {
     foreach my $adj (@{ $region{$ra}{Adj} }) {
       next if defined $adj->{Name};
       $adj->{ProspectiveName} = unique_aref $ra, $adj;
     }
   }
-  foreach my $ra (sort keys $region) {
+  foreach my $ra (sort keys %region) {
     foreach my $adj (@{ $region{$ra}{Adj} }) {
       $adj->{Name} //= $adj->{ProspectiveName};
     }
   }
-  foreach my $ra (sort keys $region) {
+  foreach my $ra (sort keys %region) {
     foreach my $adj (@{ $region{$ra}{Adj} }) {
       confess unless $adj->{Name} eq unique_aref $ra, $adj;
     }