198 |
sub setCommandLineParameters { |
sub setCommandLineParameters { |
199 |
my $class=shift; |
my $class=shift; |
200 |
|
|
201 |
|
# |
202 |
|
# Quick check if we should show the version, if so ignore everything else |
203 |
|
# Accept -v, -version, and everything in between |
204 |
|
# |
205 |
|
foreach my $p (@_) |
206 |
|
{ |
207 |
|
if(index($p,'-v')==0 && index('-version',$p)==0) |
208 |
|
{ |
209 |
|
print "$::PGM $::VERSION\n"; |
210 |
|
exit(0); |
211 |
|
} |
212 |
|
} |
213 |
|
|
214 |
while(my $cnt=scalar(@_)) |
while(my $cnt=scalar(@_)) |
215 |
{ |
{ |
216 |
my $k=shift(@_); |
my $k=shift(@_); |