[Savannah-cvs] administration/infra/bin install-log-accum.pl

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        04/11/25 23:43:16

Modified files:
        infra/bin      : install-log-accum.pl 

Log message:
        Fixed use of the diff option

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/bin/install-log-accum.pl.diff?tr1=1.10&tr2=1.11&r1=text&r2=text

Patches:
Index: administration/infra/bin/install-log-accum.pl
diff -u administration/infra/bin/install-log-accum.pl:1.10 
administration/infra/bin/install-log-accum.pl:1.11
--- administration/infra/bin/install-log-accum.pl:1.10  Sun Aug 22 16:26:59 2004
+++ administration/infra/bin/install-log-accum.pl       Thu Nov 25 23:43:15 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # -*- perl -*-
 #
-# $Id: install-log-accum.pl,v 1.10 2004/08/22 16:26:59 beu Exp $
+# $Id: install-log-accum.pl,v 1.11 2004/11/25 23:43:15 Beuc Exp $
 
 use strict;
 use warnings;
@@ -66,7 +66,6 @@
 # If we don't have enough arguments moan at the user.
 my $project = shift @ARGV or &usage_error ("missing project argument");
 my $log_email = shift @ARGV or &usage_error ("missing log email address 
argument");
-my $diff_email = shift @ARGV || '';
 
 # `$opt_regex' defaults to ``DEFAULT'' ;-)
 $opt_regex = 'DEFAULT' if $opt_regex eq '';
@@ -111,7 +110,7 @@
 
 # Finaly, write out the `commitinfo' and `loginfo' files
 &write_commitinfo ($project, $cvsroot_dir, $opt_regex, $opt_text);
-&write_loginfo ($project, $cvsroot_dir, $opt_regex, $opt_text, $opt_module, 
$log_email, $opt_context_diffs, $diff_email);
+&write_loginfo ($project, $cvsroot_dir, $opt_regex, $opt_text, $opt_module, 
$log_email, $opt_context_diffs, $opt_diff_email);
 
 # usage_error($msg)
 #