X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=NPTest.pm;h=54a535e77808b167741ba30ca744fcb3266acc5c;hb=d16f3fb0a9bb37cc1ce73ef14b5de83e907ef23c;hp=d4542ddc2cc5348c4b41a1b13b3e879b6e53be30;hpb=e3e581e9a1d845cd82146f1825960004289b1ef0;p=nagiosplug.git

diff --git a/NPTest.pm b/NPTest.pm
index d4542dd..54a535e 100644
--- a/NPTest.pm
+++ b/NPTest.pm
@@ -21,7 +21,7 @@ use Data::Dumper;
 use Test;
 
 use vars qw($VERSION);
-$VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
+$VERSION = "1556."; # must be all one line, for MakeMaker
 
 =head1 NAME
 
@@ -625,10 +625,10 @@ sub testCmd {
 	chomp $output;
 	$object->output($output);
 
+	my ($pkg, $file, $line) = caller(0);
+	print "Testing: $command", $/;
 	if ($ENV{'NPTEST_DEBUG'}) {
-		my ($pkg, $file, $line) = caller(0);
 		print "testCmd: Called from line $line in $file", $/;
-		print "Testing: $command", $/;
 		print "Output:  ", $object->output, $/;
 		print "Return code: ", $object->return_code, $/;
 	}