diff --git a/modules/util/Util/Linux_lvm.pm b/modules/util/Util/Linux_lvm.pm
index 2d8df644594c07063cf47dd174b6b3fecc46b26e..1e5bb50a789671b4fce97dda2ad27642a332c450 100755
--- a/modules/util/Util/Linux_lvm.pm
+++ b/modules/util/Util/Linux_lvm.pm
@@ -28,7 +28,7 @@ my @paths= qw(/usr/sbin /sbin);
 my @caller= caller ();
 # print "caller=[",join (':', @caller),"]\n";
 # __PACKAGE__->main if (!defined (@caller) || ($caller[0] eq 'main' && $caller[1] eq '-'));
-__PACKAGE__->main if (!defined (@caller));
+__PACKAGE__->main unless (@caller);
 __PACKAGE__->test if (($caller[0] eq 'main' && $caller[1] eq '-'));
 
 sub new