cvs commit: modperl-2.0/lib/Apache compat.pm

[dougm]

dougm       01/12/05 11:18:08

  Modified:    lib/Apache compat.pm
  Log:
  untabify and better fit for tmpfile error message
  
  Revision  Changes    Path
  1.29      +5 -4      modperl-2.0/lib/Apache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
  retrieving revision 1.28
  retrieving revision 1.29
  diff -u -r1.28 -r1.29
  --- compat.pm 2001/12/05 19:11:34     1.28
  +++ compat.pm 2001/12/05 19:18:08     1.29
  @@ -302,8 +302,9 @@
       my $r = Apache->request;
   
       unless ($r) {
  -        die "cannot use Apache::File->tmpfile ".
  -          "without 'SetHandler perl-script' or 'PerlOptions +GlobalRequest'";
  +        die "cannot use Apache::File->tmpfile ",
  +            "without 'SetHandler perl-script' ",
  +            "or 'PerlOptions +GlobalRequest'";
       }
   
       while ($limit--) {
  @@ -314,8 +315,8 @@
           $r->pool->cleanup_register(sub { unlink $tmpfile });
   
           if ($fh) {
  -         return wantarray ? ($tmpfile, $fh) : $fh;
  -     }
  +            return wantarray ? ($tmpfile, $fh) : $fh;
  +        }
       }
   }