rpms/perl-WebService-Validator-CSS-W3C/devel WebService-Validator-CSS-W3C-0.2-rt33039.patch, NONE, 1.1 perl-WebService-Validator-CSS-W3C.spec, 1.5, 1.6

[Marcela Mašláňová]

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 at redhat.com> - 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