/[smeserver]/rpms/perl-CGI-FormMagick/sme7/perl-CGI-FormMagick-0.92-quotemeta.patch
ViewVC logotype

Contents of /rpms/perl-CGI-FormMagick/sme7/perl-CGI-FormMagick-0.92-quotemeta.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Tue Jun 12 16:51:59 2007 UTC (17 years, 4 months ago) by slords
Branch: MAIN
CVS Tags: perl-CGI-FormMagick-0_92-11_el4_sme, perl-CGI-FormMagick-0_92-18_el4_sme, perl-CGI-FormMagick-0_92-12_el4_sme, perl-CGI-FormMagick-0_92-17_el4_sme, perl-CGI-FormMagick-0_92-14_el4_sme, perl-CGI-FormMagick-0_92-13_el4_sme, perl-CGI-FormMagick-0_92-10_el4_sme, perl-CGI-FormMagick-0_92-15_el4_sme, perl-CGI-FormMagick-0_92-16_el4_sme, perl-CGI-FormMagick-0_92-19_el4_sme, HEAD
Import on branch sme7 of package perl-CGI-FormMagick-0.92-10.el4.sme.src.rpm

1 diff -Nur -x '*.orig' -x '*.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm
2 --- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2005-10-31 12:24:02.000000000 -0500
3 +++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2006-05-01 13:00:56.000000000 -0400
4 @@ -455,10 +455,12 @@
5 # nasty hack required here to select the desired value if it's preset
6 if (ref($value) eq 'ARRAY') {
7 foreach (@$value) {
8 + $_ = quotemeta;
9 $inputfield =~ s/(<OPTION VALUE="$_")/$1 SELECTED/;
10 }
11 } else {
12 foreach (split /\s*[;,]\s*/, $value) {
13 + $_ = quotemeta;
14 $inputfield =~ s/(<OPTION VALUE="$_")/$1 SELECTED/;
15 }
16 }
17 @@ -472,7 +474,8 @@
18 text => \@labels
19 );
20 # nasty hack required here to select the desired value if it's preset
21 - $inputfield =~ s/(VALUE="$info->{value}")/$1 CHECKED/;
22 + my $value = quotemeta $info->{value};
23 + $inputfield =~ s/(VALUE="$value")/$1 CHECKED/;
24
25 } elsif ($info->{type} eq "checkbox") {
26

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed