cvsreport-commit
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[cvsreport] fixed command line hash bug (included in 0.3.3)


From: Vincent Caron <address@hidden>
Subject: [cvsreport] fixed command line hash bug (included in 0.3.3)
Date: Mon, 22 Sep 2003 19:18:34 -0400

Commit from zerodeux 2003-09-22 19:18 EDT
fixed command line hash bug (included in 0.3.3)
Module File name Revision
cvsreport ChangeLog 1.38 >>> 1.39
cvsreport cvsreport 1.37 >>> 1.38

cvsreport/ChangeLog   1.38 >>> 1.39
Line 1
- 2003/09/23 00:47  zerodeux
+ 2003/09/23 01:19  zerodeux
  - releasing 0.3.3
+
+ 2003/09/23 01:18  zerodeux
+ - fixed command line hash discrimant bug
 
  2003/09/22 17:01  zerodeux
  - get_short_message

cvsreport/cvsreport   1.37 >>> 1.38
Line 292
      my $cvs_pid = getpgrp(0);
 
      # We need a lock wich is specific to our driver ($cvs_pid will do), and can discriminate
-     # simultaneous calls from the same filter invocation (a hash on args will do).
+     # simultaneous calls from the same filter invocation (a hash on parsed args will do).
      my $hash = md5_hex $ARGS;
      my $cvs_lock = "$tmp_path/cvsreport.lock.$cvs_pid.$hash";
 
Line 308
          debug "  lock already held by previous instance, exiting\n";
          myexit 0;
      }
-     cleanup_add $cvs_lock;
      debug "  acquired lock" ;
 
      # Fork ourselves as a background child process, CVS will believe that this
Line 320
          error("could not fork background commit polling process.", 3) unless defined $child;
      }
 
+     # From here we are the longer lasting process, we'll do the cleanup.
+     cleanup_add $cvs_lock;
+
      # If we don't close these streams, parent 'cvs server' will select() on them indefinitely.
      # We could also reopen them but we won't use them, we don't have any tty to attach to.
      close STDOUT;
Line 1828
      my $help = 0;
      my $version = 0;
 
-     $ARGS = join ' ', @ARGV;  # Save args as a string for possible later use.
      fix_cvs_args();
 
      GetOptions('all|a'       => \$all_users,
Line 1856
      debug "  do_debug  : $do_debug";
      debug "  execute   : ". join(', ', @execute);
      debug "  args      : @ARGV (". (scalar @ARGV) .")";
+
+     # Save parsed args as a string for later hashing.
+     $ARGS = "a:$all_users c:@configfiles d:$cvsroot D:$do_debug e:@execute f:$cset_from l:$localconfig n:$cset_max";
  }
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]