Changeset 197
- Timestamp:
- Dec 6, 2004, 10:26:58 PM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dasscm/dasscm
r196 r197 22 22 # command line options get stored in options hash 23 23 my %options = (); 24 # subcommand, that gets executed (add, commit, ...) 24 25 my $command; 25 26 … … 241 242 242 243 my $number_arguments = @ARGV; 243 #print "$number_arguments\n";244 244 245 245 if ($number_arguments > 0) { … … 251 251 # get command line options and store them in options hash 252 252 my $result = GetOptions ( \%options, 'message=s' ); 253 # print options 253 254 foreach my $option (keys %options) { 254 255 print $option.": ".$options{$option}."\n";
Note:
See TracChangeset
for help on using the changeset viewer.