[OpenCA-Devel] little patch for CRL.pm

[Uwe Gansert]

Hi,

to avoid warning :

--- /usr/lib/perl5/site_perl/5.6.0/OpenCA/CRL.pm        Thu Aug 23 15:07:22 2001
+++ CRL.pm      Mon Aug 27 15:55:56 2001
@@ -97,7 +97,7 @@
        $self->{beginHeader} = "-----BEGIN HEADER-----";
        $self->{endHeader} = "-----END HEADER-----";
 
-        if ( $infile ne "" ) {
+        if ( defined($infile) && $infile ne "" ) {
                my $tmpLine;
                open( FD, "<$infile" ) or return;
                        while( $tmpLine = <FD> ) {


-- 
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