Index: ossp-pkg/shiela/shiela.pl
RCS File: /v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v
rcsdiff -q -kk '-r1.23' '-r1.24' -u '/v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v' 2>/dev/null
--- 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");