cvs commit: qpsmtpd/lib/Qpsmtpd Transaction.pm

cvsuser     04/06/27 16:39:32

  Modified:    lib/Qpsmtpd Transaction.pm
  Log:
  When creation of spool_dir fails, report what dir it was trying to make.
  
  Revision  Changes    Path
  1.12      +1 -1      qpsmtpd/lib/Qpsmtpd/Transaction.pm
  
  Index: Transaction.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/Transaction.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -w -r1.11 -r1.12
  --- Transaction.pm	16 Jun 2004 20:28:57 -0000	1.11
  +++ Transaction.pm	27 Jun 2004 23:39:32 -0000	1.12
  @@ -84,7 +84,7 @@
          die "Permissions on the spool_dir are not 0700" if $mode & 07077;
        }
   
  -     -d $spool_dir or mkdir($spool_dir, 0700) or die "Could not create spool_dir: $!";
  +     -d $spool_dir or mkdir($spool_dir, 0700) or die "Could not create spool_dir $spool_dir: $!";
        $self->{_filename} = $spool_dir . join(":", time, $$, $transaction_counter++);
        $self->{_filename} =~ tr!A-Za-z0-9:/_-!!cd;
       $self->{_body_file} = IO::File->new($self->{_filename}, O_RDWR|O_CREAT, 0600)