changeset 311:356e7f4c70a2

impl check not found header
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Thu, 06 Feb 2020 16:04:16 +0900
parents ba8687746ff6
children cd9092628a63
files src/gearsTools/lib/Gears/Context.pm
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/lib/Gears/Context.pm	Thu Feb 06 12:25:34 2020 +0900
+++ b/src/gearsTools/lib/Gears/Context.pm	Thu Feb 06 16:04:16 2020 +0900
@@ -48,6 +48,14 @@
       }
     }
   }
+
+  for my $kind (keys %$dgs) {
+    map {
+      if ($new_dgs->{$kind}->{$_} =~ /^\d+$/) {
+        croak "failed: not found $_.(h|dg)\n";
+      }
+    } keys %{$new_dgs->{$kind}};
+  }
   return $new_dgs;
 }