[OpenCA-Devel] another warning in OpenSSL

[Uwe Gansert]

Hi,

a patch to avoid another warning in OpenSSL.pm

--- /usr/lib/perl5/site_perl/5.6.0/OpenCA/OpenSSL.pm    Tue Aug 28 10:15:08 2001
+++ OpenSSL.pm  Tue Aug 28 10:18:23 2001
@@ -686,7 +686,7 @@
                 $command .= "-engine $engine ";
         }
 
-       if ( $outfile eq "" ){
+       if ( not(defined($outfile)) || $outfile eq "" ){
                $tmpfile = $self->{tmpDir} . "/${$}_crl.tmp";
        } else {
                $tmpfile = $outfile;


-- 
tschau , Uwe Gansert
-------------------------------------------------------------------------------
echo '$e=5;$p=3;$q=13;$h=$p*$q;while(($e*++$d)%($h-$p-$q+1)-1){};while($t=subst
r("82758c1b8939c7ef5c5d0°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°1eaa4aa38516aed5559fe
27fd0f5b0b464474b2316eac~~~~        [EMAIL PROTECTED]        ~~~~390a03",$i,3)){$_.=pa
ck"I",(hex($t)%$h)**$d%$°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°h+95;s/_/ /g;$_=($i+=
3)%2?uc:lc;print"$_\n";}'|perl -ne"chomp;s/°|~|\s*ug@[^~]*//g;print"|perl

PGP signature