Smart::Comments only if $ENV{DEBUG}
authorheiko
Tue, 30 Dec 2014 15:02:36 +0100
changeset 7 f027886d3617
parent 6 eac6751d5bff
child 8 a220ea51b60b
Smart::Comments only if $ENV{DEBUG}
plugins/check_dns-serial
--- a/plugins/check_dns-serial	Tue Dec 30 14:46:29 2014 +0100
+++ b/plugins/check_dns-serial	Tue Dec 30 15:02:36 2014 +0100
@@ -44,7 +44,7 @@
 use Getopt::Long qw(GetOptionsFromArray);
 use Net::DNS;
 use Pod::Usage;
-use Smart::Comments;
+use if $ENV{DEBUG} => 'Smart::Comments';
 
 sub uniq { my %h; @h{@_} = (); return keys %h; }