avoid borging XSLoader errors

ilmari · Apr 21, 2010 · f615b0f · f615b0f
1 parent e7a04eb
commit f615b0f
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/lib/Devel/GlobalDestruction.pm b/lib/Devel/GlobalDestruction.pm
@@ -10,17 +10,14 @@ use vars qw($VERSION @ISA);
 BEGIN {
 	$VERSION = '0.02';
 
-	local $@;
 
-	eval {
-		require XSLoader;
+	if ( do { local $@; eval { require XSLoader; 1 } } ) {
 		__PACKAGE__->XSLoader::load($VERSION);
-		1;
-	} or do {
+	} else {
 		require DynaLoader;
 		push @ISA, 'DynaLoader';
 		__PACKAGE__->bootstrap($VERSION);
-	};
+	}
 }
 
 use Sub::Exporter -setup => {