%define pkg_name Test-Taint
%define pkg_version 1.04
%define rpm_pkg_version 1.04
%define rpm_pkg_release 4.n0i.2

Summary: Tools to test taintedness
Name: perl-%{pkg_name}
Version: %{rpm_pkg_version}
%if "%{pkg_version}" == "%{rpm_pkg_version}"
Release: %{rpm_pkg_release}
%else
Release: %{rpm_pkg_release}.%(echo %{pkg_version} | tr - _)
%endif

Group: Development/Libraries
License: GPL or Artistic
URL: http://search.cpan.org/dist/%{pkg_name}/
Source0: ftp://ftp.cpan.org/authors/id/P/PE/PETDANCE/%{pkg_name}-%{pkg_version}.tar.gz

BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)

Requires: perl(:MODULE_COMPAT_%(%{__perl} -le 'printf "%%vd", $^V'))
Requires: %(perl -MConfig -le '$out = $Config{useithreads} ? "" : "OUT"; print "perl(:WITH${out}_ITHREADS)"')
Requires: %(perl -MConfig -le '$out = $Config{usethreads} ? "" : "OUT"; print "perl(:WITH${out}_THREADS)"')
Requires: %(perl -MConfig -le '$out = $Config{uselargefiles} ? "" : "OUT"; print "perl(:WITH${out}_LARGEFILES)"')
%{!?_without_test:BuildRequires: perl(Scalar::Util)}
%{!?_without_test:BuildRequires: perl(Test::More)}
%{!?_without_test:BuildRequires: perl(Tie::Scalar)}
%{!?_without_test:BuildRequires: perl(Test::Builder)}
%{!?_without_test:BuildRequires: perl(overload)}
%{!?_without_test:BuildRequires: perl(Tie::Array)}
%{!?_without_test:BuildRequires: perl(Tie::Hash)}

%description
Tainted data is data that comes from an unsafe source, such as the command
line, or, in the case of web apps, any GET or POST transactions. Read the
perlsec man page for details on why tainted data is bad, and how to untaint
the data.
When you're writing unit tests for code that deals with tainted data, you'll
want to have a way to provide tainted data for your routines to handle, and
easy ways to check and report on the taintedness of your data, in standard
Test::More style.

%prep
%setup -n %{pkg_name}-%{pkg_version}
find . -type f | xargs -r chmod 0644

%build
PERL_MM_USE_DEFAULT=1 CFLAGS="$RPM_OPT_FLAGS" %{__perl} Makefile.PL INSTALLDIRS=vendor
%{__make} %{?_smp_mflags} OPTIMIZE="$RPM_OPT_FLAGS"
%{!?_without_test:%{__make} test}

%install
%{__rm} -rf $RPM_BUILD_ROOT
%{__make} pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
find $RPM_BUILD_ROOT -name .packlist -delete || :
find $RPM_BUILD_ROOT -type f -name '*.bs' -a -empty -delete || :
find $RPM_BUILD_ROOT -depth -type d -a -empty -delete || :
%{__chmod} -R u+w $RPM_BUILD_ROOT/*
find $RPM_BUILD_ROOT | xargs -r touch

%clean
rm -rf $RPM_BUILD_ROOT

%files
%defattr(-,root,root,-)
%doc Changes
%{perl_vendorarch}/*
%exclude %dir %{perl_vendorarch}/auto
%{_mandir}/man*/*

%changelog
* Sat Mar 04 2006 Marius Feraru <altblue@n0i.net> - 1.04-4.n0i.2
- automatic rebuild (perl 5.8.8)

* Sat Jul 23 2005 Marius Feraru <altblue@n0i.net> 1.04-3.n0i.1
- spec file (re)created using N0i::CPAN::RPMizer/1.01
- rebuild on perl 5.8.7

* Sun Mar 20 2005 Marius Feraru <altblue@n0i.net> 0:1.04-2.n0i.2
- automatic rebuild (perl 5.8.6)

* Fri Dec 03 2004 Marius Feraru <altblue@n0i.net> 0:1.04-2.n0i.1
- version 1.04

* Fri Apr 30 2004 Marius Feraru <altblue@n0i.net> 0:1.02-1.n0i.1
- version 1.02

* Wed Apr 21 2004 Marius Feraru <altblue@n0i.net> 0:1.00-1.n0i.2
- automatic rebuild

* Wed Apr 07 2004 Marius Feraru <altblue@n0i.net> 0:1.00-1.n0i.1
- version 1.00
- spec file (re?)created using N0i::CPAN::RPMizer/2004032101