]>
Commit | Line | Data |
---|---|---|
1 | with Perl 5.12.3 we changed $self->{"nametemplate_pem"} via $file modification | |
2 | ||
3 | with such config: | |
4 | nametemplate_pem = @ALIAS@.r@R@.pem | |
5 | infodir = /etc/pki/esteid | |
6 | cadir = /etc/pki/esteid | |
7 | output = /etc/pki/esteid/crl | |
8 | formats = openssl, pem | |
9 | ||
10 | it tried to: | |
11 | VERBOSE(3) Writing PEM file /etc/pki/esteid/crl//etc/pki/esteid/crl/ESTEID-SK_2007.r0.pem | |
12 | should had been: | |
13 | VERBOSE(3) Writing PEM file /etc/pki/esteid/crl/ESTEID-SK_2007.r0.pem | |
14 | ||
15 | 16:21:09 SamChi> glen: foreach does not copy the value, it assigns each value of the list to the variable | |
16 | 16:21:31 SamChi> glen: unless it is not a valid lvalue, then it may have to be copied | |
17 | 16:22:12 SamChi> $ perl -le '@a = qw(a b); foreach (@a) { $_ .= "foobar" }; print "@a"' | |
18 | 16:22:12 SamChi> afoobar bfoobar | |
19 | 16:22:55 SamChi> glen: oh, I was wrong about the second part | |
20 | 16:23:03 SamChi> $ perl -le '@a = qw(a b); foreach my $v (@a, "c") { $v .= "foobar" }; print "@a"' | |
21 | 16:23:03 SamChi> Modification of a read-only value attempted at -e line 1. | |
22 | ||
23 | --- fetch-crl-3.0.6/fetch-crl 2011-03-20 05:01:20.000000000 +0200 | |
24 | +++ fetch-crl-3.0.6/fetch-crl 2011-06-11 11:30:58.731040625 +0300 | |
25 | @@ -1873,13 +1879,14 @@ | |
26 | $::cnf->{_}->{"output_der"}, $::cnf->{_}->{"output_pem"}, | |
27 | $::cnf->{_}->{"output_nss"}, $::cnf->{_}->{"output_openssl"}) ) { | |
28 | defined $output and $output or next; | |
29 | - foreach my $file ( | |
30 | + foreach my $ref ( | |
31 | $self->{"nametemplate_der"}, | |
32 | $self->{"nametemplate_pem"}, | |
33 | $self->{"alias"}.".r\@R\@", | |
34 | $self->{"anchorname"}.".r\@R\@", | |
35 | ) { | |
36 | - next unless $file; | |
37 | + next unless $ref; | |
38 | + my $file = $ref; # copy, not to change original | |
39 | $file =~ s/\@R\@/$i/g; | |
40 | $file = join "/", $output, $file; | |
41 | next if ! -e $file; |