[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Savannah-cvs] administration/infra/bin install-log-accum.pl
From: |
Sylvain Beucler |
Subject: |
[Savannah-cvs] administration/infra/bin install-log-accum.pl |
Date: |
Sat, 05 Feb 2005 03:39:22 -0500 |
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;