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); ...@@ -28,7 +28,7 @@ my @paths= qw(/usr/sbin /sbin);
my @caller= caller (); my @caller= caller ();
# print "caller=[",join (':', @caller),"]\n"; # print "caller=[",join (':', @caller),"]\n";
# __PACKAGE__->main if (!defined (@caller) || ($caller[0] eq 'main' && $caller[1] eq '-')); # __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 '-')); __PACKAGE__->test if (($caller[0] eq 'main' && $caller[1] eq '-'));
sub new sub new
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment