Changeset 197


Ignore:
Timestamp:
Dec 6, 2004, 10:26:58 PM (20 years ago)
Author:
joergs
Message:

added comments. cleanup

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dasscm/dasscm

    r196 r197  
    2222# command line options get stored in options hash
    2323my %options = ();
     24# subcommand, that gets executed (add, commit, ...)
    2425my $command;
    2526
     
    241242
    242243my $number_arguments = @ARGV;
    243 #print "$number_arguments\n";
    244244
    245245if ($number_arguments > 0) {
     
    251251        # get command line options and store them in options hash
    252252        my $result = GetOptions ( \%options, 'message=s' );
     253        # print options
    253254        foreach my $option (keys %options) {
    254255                print $option.": ".$options{$option}."\n";
Note: See TracChangeset for help on using the changeset viewer.