Author: mmaslano
Update of /cvs/pkgs/rpms/perl-WebService-Validator-CSS-W3C/devel
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv14204
Modified Files:
perl-WebService-Validator-CSS-W3C.spec
Added Files:
WebService-Validator-CSS-W3C-0.2-rt33039.patch
Log Message:
* Fri May 07 2010 Marcela Maslanova <mmaslano@xxxxxxxxxx> - 0.2-5
- Mass rebuild with perl-5.12.0
WebService-Validator-CSS-W3C-0.2-rt33039.patch:
W3C.pm | 16 +++++-----------
1 file changed, 5 insertions(+), 11 deletions(-)
--- NEW FILE WebService-Validator-CSS-W3C-0.2-rt33039.patch ---
diff -up WebService-Validator-CSS-W3C-0.2/lib/WebService/Validator/CSS/W3C.pm.old WebService-Validator-CSS-W3C-0.2/lib/WebService/Validator/CSS/W3C.pm
--- WebService-Validator-CSS-W3C-0.2/lib/WebService/Validator/CSS/W3C.pm.old 2010-06-03 13:56:02.896597605 +0200
+++ WebService-Validator-CSS-W3C-0.2/lib/WebService/Validator/CSS/W3C.pm 2010-06-03 14:03:36.441607281 +0200
@@ -20,7 +20,7 @@ our %MEDIA = map { $_ => 1 } qw/all a
print screen tty tv presentation/;
# warnings level currently supported by the W3C CSS Validator
-our $WARNINGS = map { $_ => 1 } qw/0 1 2 no/;
+our %WARNINGS = map { $_ => 1 } qw/0 1 2 no/;
__PACKAGE__->mk_accessors qw/user_agent validator_uri/;
__PACKAGE__->mk_ro_accessors qw/response request_uri som success/;
@@ -125,17 +125,11 @@ sub validate
$uri->query_param(profile => $parm{profile});
}
-
+
if (defined $parm{warnings}) {
- Carp::croak "warnings must be an integer 0 - 10\n"
- unless $parm{warnings} =~ /^[0-9]|10$/;
-
- if ($parm{warnings} == 0) {
- $uri->query_param(warning => "no");
- }
- else {
- $uri->query_param(warning => $parm{warnings});
- }
+ Carp::croak "warnings must be either \"no\" or an integer from 0 to 2\n"
+ unless $WARNINGS{$parm{warnings}};
+ $uri->query_param(warning => $parm{warnings});
}
# request SOAP 1.2 output
Index: perl-WebService-Validator-CSS-W3C.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-WebService-Validator-CSS-W3C/devel/perl-WebService-Validator-CSS-W3C.spec,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- perl-WebService-Validator-CSS-W3C.spec 7 May 2010 09:54:22 -0000 1.5
+++ perl-WebService-Validator-CSS-W3C.spec 3 Jun 2010 12:12:11 -0000 1.6
@@ -6,6 +6,7 @@ License: GPL+ or Artistic
Group: Development/Libraries
URL: http://search.cpan.org/dist/WebService-Validator-CSS-W3C/
Source0: http://www.cpan.org/authors/id/O/OL/OLIVIERT/WebService/WebService-Validator-CSS-W3C-%{version}.tar.gz
+Patch0: WebService-Validator-CSS-W3C-0.2-rt33039.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
BuildRequires: perl(Class::Accessor)
@@ -14,7 +15,6 @@ BuildRequires: perl(LWP::UserAgent)
BuildRequires: perl(SOAP::Lite) >= 0.65
BuildRequires: perl(URI)
BuildRequires: perl(URI::QueryParam)
-BuildRequires: dos2unix
Requires: perl(Class::Accessor)
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
@@ -25,9 +25,10 @@ It helps to find errors in Cascading Sty
%prep
%setup -q -n WebService-Validator-CSS-W3C-%{version}
+%patch0 -p1
-dos2unix Changes
-dos2unix README
+%{__sed} -i 's/\r//' Changes
+%{__sed} -i 's/\r//' README
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
