/[meteor]/trunk/Meteor/Config.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Meteor/Config.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 32 by andrew.betts, Thu Dec 20 21:24:24 2007 UTC revision 42 by knops.gerd, Sun Feb 3 23:10:24 2008 UTC
# Line 198  sub valueForKey { Line 198  sub valueForKey {
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(@_);
Legend:
Removed from v.32  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26