Update _DEBUG sub to be more efficient.

juster · May 8, 2010 · f4545d9 · f4545d9
1 parent f4ee0d5
commit f4545d9
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/lib/CPANPLUS/Dist/Arch.pm b/lib/CPANPLUS/Dist/Arch.pm
@@ -137,12 +137,11 @@ problem.
 our ($Is_dependency, $PKGDEST, $PACKAGER, $DEBUG);
 
 $PACKAGER = 'Anonymous';
-$DEBUG    = $ENV{DIST_ARCH_DEBUG};
 
-sub _DEBUG
-{
-    print STDERR '***DEBUG*** ', @_, "\n" if $DEBUG;
-}
+sub _DEBUG;
+*_DEBUG = ( $ENV{DIST_ARCH_DEBUG}
+            ? sub { print STDERR '***DEBUG*** ', @_, "\n" }
+            : sub { return } );
 
 #---HELPER FUNCTION---
 # Purpose: Expand environment variables and tildes like bash would.