Commit 5d6c1ce4 authored by Gerhard Gonter's avatar Gerhard Gonter
Browse files

fixed minor syntax complaint

parent 21f1a47d
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment