Attachment 312400 Details for Bug 454565 – patch to fix

[patch] patch to fix

patch (text/plain), 1.39 KB, created by Ade Lee on 2008-07-22 22:00:14 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Ade Lee

Created: 2008-07-22 22:00:14 UTC

Size: 1.39 KB

patch

obsolete

>Index: pki/base/ra/lib/perl/PKI/RA/Modutil.pm
>===================================================================
>--- pki/base/ra/lib/perl/PKI/RA/Modutil.pm      (revision 72)
>+++ pki/base/ra/lib/perl/PKI/RA/Modutil.pm      (working copy)
>@@ -104,8 +104,9 @@
> 
>                my $moduledetail = `modutil -force -dbdir '$self->{dir}' -nocertdb -list "$m->{modulename}" 2> /dev/null`;
>                my @details= split "\n\n", $moduledetail;
>-               shift @details;
>-
>+               while ($details[0] !~ /.*Name:.*/)  {
>+                       shift @details;
>+               };
>                $m->{detail} = makehash(shift @details);
>                foreach $d (@details) {
>                        my $sdh = makehash($d);
>
>Index: pki/base/tps/lib/perl/PKI/TPS/Modutil.pm
>===================================================================
>--- pki/base/tps/lib/perl/PKI/TPS/Modutil.pm    (revision 72)
>+++ pki/base/tps/lib/perl/PKI/TPS/Modutil.pm    (working copy)
>@@ -104,7 +104,9 @@
> 
>                my $moduledetail = `modutil -force -dbdir '$self->{dir}' -nocertdb -list "$m->{modulename}" 2> /dev/null`;
>                my @details= split "\n\n", $moduledetail;
>-               shift @details;
>+               while ($details[0] !~ /.*Name:.*/)  {
>+                       shift @details;
>+               };
> 
>                $m->{detail} = makehash(shift @details);
>                foreach $d (@details) {
>

Actions: View | Diff

Attachments on bug 454565: 312400 | 313485