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

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        05/02/05 08:39:21

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

Log message:
        Use proper file name for commitinfo

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

Patches:
Index: administration/infra/bin/install-log-accum.pl
diff -u administration/infra/bin/install-log-accum.pl:1.14 
administration/infra/bin/install-log-accum.pl:1.15
--- administration/infra/bin/install-log-accum.pl:1.14  Sat Feb  5 08:37:28 2005
+++ administration/infra/bin/install-log-accum.pl       Sat Feb  5 08:39:21 2005
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # -*- perl -*-
 #
-# $Id: install-log-accum.pl,v 1.14 2005/02/05 08:37:28 Beuc Exp $
+# $Id: install-log-accum.pl,v 1.15 2005/02/05 08:39:21 Beuc Exp $
 
 use strict;
 use warnings;
@@ -233,7 +233,7 @@
     my $commitinfo_file = "$cvsroot/CVSROOT/commitinfo";
 
     # Checks out the file for editing
-    system('co', '-q', '-l', "$cvsroot/CVSROOT/loginfo");
+    system('co', '-q', '-l', $commitinfo_file);
 
     # Make sure `$commitinfo_file' exists
     die "File `$commitinfo_file' doesn't exist!" if ! -f $commitinfo_file;
@@ -249,7 +249,7 @@
     close CINFO;
 
     # Checks in the file
-    system('ci', '-q', 'u', '-mInstalled commit notification', 
"$cvsroot/CVSROOT/loginfo");
+    system('ci', '-q', 'u', '-mInstalled commit notification', 
$commitinfo_file);
 }
 
 # write_loginfo($project, $cvsroot, $regex, $text, $module, $log_email, 
$context_diffs, $diff_email)
@@ -273,7 +273,7 @@
     my $loginfo_file = "$cvsroot/CVSROOT/loginfo";
 
     # Checks out the file for editing
-    system('co', '-q', '-l', "$cvsroot/CVSROOT/loginfo");
+    system('co', '-q', '-l', $loginfo_file);
 
     # Make sure `$loginfo_file' exists
     die "File `$loginfo_file' doesn't exist!" if ! -f $loginfo_file;
@@ -294,7 +294,7 @@
     close LINFO;
 
     # Checks in the file
-    system('ci', '-q', 'u', '-mInstalled commit notification', 
"$cvsroot/CVSROOT/loginfo");
+    system('ci', '-q', 'u', '-mInstalled commit notification', $loginfo_file);
 }
 
 1;