SPECS: perl-Hook-WrapSub.spec - pl, URL, md5, missing dir

[qboosh]

Author: qboosh                       Date: Mon Nov  6 21:32:10 2006 GMT
Module: SPECS                         Tag: HEAD
---- Log message:
- pl, URL, md5, missing dir

---- Files affected:
SPECS:
   perl-Hook-WrapSub.spec (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: SPECS/perl-Hook-WrapSub.spec
diff -u SPECS/perl-Hook-WrapSub.spec:1.1 SPECS/perl-Hook-WrapSub.spec:1.2
--- SPECS/perl-Hook-WrapSub.spec:1.1	Thu Nov  2 14:49:03 2006
+++ SPECS/perl-Hook-WrapSub.spec	Mon Nov  6 22:32:05 2006
@@ -4,44 +4,55 @@
 %bcond_without	tests		# do not perform "make test"
 #
 %include	/usr/lib/rpm/macros.perl
-%define	pdir	Hook
-%define	pnam	WrapSub
+%define		pdir	Hook
+%define		pnam	WrapSub
 Summary:	Hook::WrapSub - wrap subs with pre- and post-call hooks
-#Summary(pl):	
+Summary(pl):	Hook::WrapSub - obudowanie procedur w wywołania przed i po wywołaniu
 Name:		perl-Hook-WrapSub
 Version:	0.03
 Release:	0.1
 # same as perl
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
-Source0:	http://www.cpan.org/modules/by-module/%{pdir}/%{pdir}-%{pnam}-%{version}.tar.gz
+Source0:	http://www.cpan.org/modules/by-module/Hook/%{pdir}-%{pnam}-%{version}.tar.gz
+# Source0-md5:	7a5e42aca06d6ba06dcbd5e2cb5769bf
+URL:		http://search.cpan.org/dist/Hook-WrapSub/
 BuildRequires:	perl-devel >= 1:5.8.0
 BuildRequires:	rpm-perlprov >= 4.1-13
-%if %{with tests}
-%endif
 BuildArch:	noarch
 BuildRoot:	%{tmpdir}/%{name}-%{version}-root-%(id -u -n)
 
 %description
-This function enables intercepting a call to any named
-function; handlers may be added both before and after
-the call to the intercepted function.
+This function enables intercepting a call to any named function;
+handlers may be added both before and after the call to the
+intercepted function.
 
 For example:
 
   wrap_subs \&before, 'some_func', \&after;
 
-In this case, whenever the sub named 'some_func' is called,
-the &before sub is called first, and the &after sub is called
-afterwards.  These are both optional.  If you only want
-to intercept the call beforehand:
+In this case, whenever the sub named 'some_func' is called, the
+&before sub is called first, and the &after sub is called afterwards.
+These are both optional. If you only want to intercept the call
+beforehand:
 
   wrap_subs \&before, 'some_func';
 
+%description -l pl
+Ta funkcja umożliwia przechwytywanie wywołania dowolnej nazwanej
+funkcji; można dodać procedury obsługi zarówno przed jak i po
+wywołaniu przechwytywanej funkcji.
 
+Na przykład:
 
-# %description -l pl
-# TODO
+  wrap_subs \&przed, 'jakas_funkcja', \&po
+
+W tym przypadku, kiedy wywoływana jest 'jakas_funkcja', najpierw
+wywoływana jest procedura &przed, a procedura &po jest wywoływana po
+powrocie. Obie są opcjonalne. Aby przechwycić tylko punkt przed
+wywołaniem można użyć:
+
+  wrap_subs \&przed, 'jakas_funkcja';
 
 %prep
 %setup -q -n %{pdir}-%{pnam}-%{version}
@@ -65,6 +76,7 @@
 %files
 %defattr(644,root,root,755)
 %doc Changes README
+%dir %{perl_vendorlib}/Hook
 %{perl_vendorlib}/Hook/*.pm
 %{_mandir}/man3/*
 
@@ -74,6 +86,8 @@
 All persons listed below can be reached at <cvs_login>@pld-linux.org
 
 $Log$
+Revision 1.2  2006/11/06 21:32:05  qboosh
+- pl, URL, md5, missing dir
+
 Revision 1.1  2006/11/02 13:49:03  mguevara
 - initial
-
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/SPECS/perl-Hook-WrapSub.spec?r1=1.1&r2=1.2&f=u