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