ossp-pkg/shiela/shiela.pl 1.23 -> 1.24
--- shiela.pl 2002/12/21 11:29:22 1.23
+++ shiela.pl 2002/12/21 11:40:34 1.24
@@ -131,7 +131,7 @@
$RT->{userid} = $ENV{CVSUSER} || $ENV{LOGNAME} || $ENV{LOGUSER} || $ENV{USER} || die 'unknown CVS user';
# various directory paths
- $RT->{tmpdir} = $ENV{TMPDIR} || $ENV{TEMPDIR} || '/tmp';
+ $RT->{tmpdir} = $ENV{TMPDIR} || $ENV{TEMPDIR} || '/tmp';
$RT->{cvstmpdir} = (-w "$RT->{cvsroot}/CVSTMP" ? "$RT->{cvsroot}/CVSTMP" : $RT->{tmpdir});
$RT->{cvsadmdir} = "$RT->{cvsroot}/CVSROOT";
$RT->{cvslogdir} = (-w "$RT->{cvsroot}/CVSLOG" ? "$RT->{cvsroot}/CVSLOG" : $RT->{cvsadmdir});
@@ -729,7 +729,7 @@
"From: \"".$RT->{username}."\" <".$RT->{usermail}.">\n" .
"To: $toaddr\n" .
"User-Agent: ".uc(substr($RT->{name}, 0, 1)).substr($RT->{name}, 1)."/$RT->{vers} " .
- "CVS/".$RT->{cvsvers}.($RT->{cvsrse} ? "+RSE" : "")."\n";
+ "CVS/".$RT->{cvsvers}.($RT->{cvsrse} ? "+RSE" : "")."\n" .
"Precedence: bulk\n" .
"Mime-Version: 1.0\n" .
"Content-Type: text/plain; charset=iso-8859-1\n" .
@@ -806,8 +806,8 @@
# append to or override a file with lines from an array
if ($op eq 'append' or $op eq 'write') {
- my $io = new IO::File ($op eq 'append' ? ">>" : ">").$file
- || die "unable to open `$file' for $op";
+ my $io = new IO::File ($op eq 'append' ? ">>$file" : ">$file")
+ || die "unable to open `$file' for operation `$op'";
foreach my $line (@lines) {
$line =~ s|\n+$||s;
$io->print($prefix . $line . "\n");
|
|
