[perl #53034] [PATCH] Sensible error message for missing config step test

[via RT]

# New Ticket Created by  Geoffrey Broadwell 
# Please include the string:  [perl #53034]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=53034 >


The attached small patch makes Configure give a sensible error message
when a config step has no associated test files, rather than exploding
obtusely.


-'f


=== lib/Parrot/Configure/Options/Test.pm
==================================================================
--- lib/Parrot/Configure/Options/Test.pm	(revision 4781)
+++ lib/Parrot/Configure/Options/Test.pm	(local)
@@ -36,8 +36,9 @@
 
 foreach my $step (@steps) {
     my @temp = split /::/, $step;
-    my %these_tests = %{ $steps_tests{$temp[0]}{$temp[1]} };
-    foreach my $k (sort keys %these_tests) {
+    my $these_tests = $steps_tests{$temp[0]}{$temp[1]}
+        or croak "No tests exist for configure step $step";
+    foreach my $k (sort keys %$these_tests) {
         push @steps_tests, qq{$steps_dir/$temp[0]_$temp[1]-$k.t};
     }
 }