[svn:parrot] r47231 - branches/tt1452_configure_debug/config/gen

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Mon May 31 14:58:00 2010
New Revision: 47231
URL: https://trac.parrot.org/parrot/changeset/47231

Log:
Move a 'die' statement closer to where its death condition is determined.

Modified:
   branches/tt1452_configure_debug/config/gen/opengl.pm

Modified: branches/tt1452_configure_debug/config/gen/opengl.pm
==============================================================================
--- branches/tt1452_configure_debug/config/gen/opengl.pm	Mon May 31 14:43:23 2010	(r47230)
+++ branches/tt1452_configure_debug/config/gen/opengl.pm	Mon May 31 14:58:00 2010	(r47231)
@@ -532,7 +532,10 @@
     my @header_files = sort map {File::Glob::bsd_glob($_)} @header_globs;
 
     my %skip = map {($_ => 1)} @SKIP;
-    @header_files = grep {my ($file) = m{([^/]+)$}; !$skip{$file}} @header_files;
+    @header_files =
+        grep {my ($file) = m{([^/]+)$}; !$skip{$file}} @header_files;
+    die "OpenGL enabled and detected, but no OpenGL headers found!"
+        unless @header_files;
 
     my $files_str = join("\n\t", @header_files) . "\n";
     $conf->debug(
@@ -541,9 +544,6 @@
         "\t$files_str\n",
     );
 
-    die "OpenGL enabled and detected, but no OpenGL headers found!"
-        unless @header_files;
-
     my $autogen_header = <<'HEADER';
 # DO NOT EDIT THIS FILE.
 #