Skip to content
Snippets Groups Projects
Commit 5d6c1ce4 authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

fixed minor syntax complaint

parent 21f1a47d
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment