Mercurial > hg > Members > menikon > CbC_xv6
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; }