From 749904a5f805a52fd1092a242de950035a15484a Mon Sep 17 00:00:00 2001
From: Jakub Bogusz <qboosh@pld-linux.org>
Date: Sat, 1 Nov 2003 18:47:55 +0000
Subject: [PATCH] - up to 800.025, updated paths and man_section patches -
 added informative summaries

Changed files:
    perl-Tk-man_section.patch -> 1.2
    perl-Tk-paths.patch -> 1.4
    perl-Tk.spec -> 1.46
---
 perl-Tk-man_section.patch |  4 ++--
 perl-Tk-paths.patch       | 27 ---------------------------
 perl-Tk.spec              | 35 +++++++++++------------------------
 3 files changed, 13 insertions(+), 53 deletions(-)

diff --git a/perl-Tk-man_section.patch b/perl-Tk-man_section.patch
index 62f7593..8c074e8 100644
--- a/perl-Tk-man_section.patch
+++ b/perl-Tk-man_section.patch
@@ -4,8 +4,8 @@
   local $_ = $self->MM::manifypods;
   if ($] >= 5.00565)
    {
--   s/(POD2MAN_EXE.*pod2man)/$1 --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
-+   s/(POD2MAN_EXE.*pod2man)/$1 --section=3pm --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
+-   s/(POD2MAN_EXE.*pod2man.*)/$1 --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
++   s/(POD2MAN_EXE.*pod2man.*)/$1 --section=3pm --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
    }
   elsif ($] >= 5.003)
    {
diff --git a/perl-Tk-paths.patch b/perl-Tk-paths.patch
index 84c4a39..06cfa5b 100644
--- a/perl-Tk-paths.patch
+++ b/perl-Tk-paths.patch
@@ -475,15 +475,6 @@ diff -Nru Tk800.023/compile/splitfunc Tk800.023.new/compile/splitfunc
  use IO::File;
  
  while (<>)
-diff -Nru Tk800.023/copydate Tk800.023.new/copydate
---- Tk800.023/copydate	Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/copydate	Sat Sep  1 07:05:34 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl 
-+#!/usr/bin/perl 
- 
- use File::Find;
- use Time::Local;
 diff -Nru Tk800.023/cursor_demo Tk800.023.new/cursor_demo
 --- Tk800.023/cursor_demo	Sat Dec 30 17:12:37 2000
 +++ Tk800.023.new/cursor_demo	Sat Sep  1 07:05:34 2001
@@ -799,24 +790,6 @@ diff -Nru Tk800.023/geom Tk800.023.new/geom
  
  use Tk;
  
-diff -Nru Tk800.023/grepc Tk800.023.new/grepc
---- Tk800.023/grepc	Sat Dec 30 13:16:02 2000
-+++ Tk800.023.new/grepc	Sat Sep  1 07:05:34 2001
-@@ -1,4 +1,4 @@
--#!/tools/local/perl -w
-+#!/usr/bin/perl -w
- use strict;
- use vars qw($file);
- use Data::Dumper;
-diff -Nru Tk800.023/grepperl Tk800.023.new/grepperl
---- Tk800.023/grepperl	Thu Mar 29 10:42:59 2001
-+++ Tk800.023.new/grepperl	Sat Sep  1 07:08:10 2001
-@@ -1,4 +1,4 @@
--#!/tools/local/perl -w
-+#!/usr/bin/perl -w
- 
- use Getopt::Std;
- 
 diff -Nru Tk800.023/grid_adj Tk800.023.new/grid_adj
 --- Tk800.023/grid_adj	Sat Dec 30 17:12:37 2000
 +++ Tk800.023.new/grid_adj	Sat Sep  1 07:05:34 2001
diff --git a/perl-Tk.spec b/perl-Tk.spec
index ddd177c..3566642 100644
--- a/perl-Tk.spec
+++ b/perl-Tk.spec
@@ -7,36 +7,21 @@
 %include	/usr/lib/rpm/macros.perl
 %define	pdir	Tk
 %define	pnam	Tk
-Summary:	Tk Perl module
-Summary(cs):	Modul Tk pro Perl
-Summary(da):	Perlmodul Tk
-Summary(de):	Tk Perl Modul
-Summary(es):	Módulo de Perl Tk
-Summary(fr):	Module Perl Tk
-Summary(it):	Modulo di Perl Tk
-Summary(ja):	Tk Perl ¥â¥¸¥å¡¼¥ë
-Summary(ko):	Tk ÆÞ ¸ðÁÙ
-Summary(no):	Perlmodul Tk
-Summary(pl):	Modu³ Perla Tk
-Summary(pt):	Módulo de Perl Tk
-Summary(pt_BR):	Módulo Perl Tk
-Summary(ru):	íÏÄÕÌØ ÄÌÑ Perl Tk
-Summary(sv):	Tk Perlmodul
-Summary(uk):	íÏÄÕÌØ ÄÌÑ Perl Tk
-Summary(zh_CN):	Tk Perl Ä£¿é
+Summary:	Tk module - a graphical user interface toolkit for Perl
+Summary(pl):	Modu³ Tk - toolkit graficznego interfejsu u¿ytkownika dla Perla
 Name:		perl-Tk
-Version:	800.024
-Release:	2
+Version:	800.025
+Release:	1
 License:	GPL
 Group:		Development/Languages/Perl
-Source0:	http://www.cpan.org/modules/by-module/%{pdir}/%{pnam}-%{version}.tar.gz
-# Source0-md5: 63049c71b467344c565e5c53fd309bb7
+Source0:	http://www.cpan.org/modules/by-module/%{pdir}/%{pnam}%{version}.tar.gz
+# Source0-md5:	9907e608addd2e3f004d45f13dfb181e
 Patch0:		%{name}-paths.patch
 Patch1:		%{name}-misc.patch
 Patch2:		%{name}-man_section.patch
 BuildRequires:	XFree86-devel
 BuildRequires:	perl-Tie-Watch
-BuildRequires:	perl-devel >= 5.6.1
+BuildRequires:	perl-devel >= 5.8.0
 BuildRequires:	rpm-perlprov >= 4.1-13
 Provides:	perl(Tk::LabRadio)
 BuildRoot:	%{tmpdir}/%{name}-%{version}-root-%(id -u -n)
@@ -61,13 +46,15 @@ wykorzystaniem GUI Tk.
 %{__perl} Makefile.PL \
 	INSTALLDIRS=vendor
 %{__perl} -pi -e 's/<default.h>/"default.h"/g' pTk/tixDef.h
-%{__make} OPTIMIZE="%{rpmcflags}"
+%{__make} \
+	OPTIMIZE="%{rpmcflags}"
 
 %install
 rm -rf $RPM_BUILD_ROOT
 install -d $RPM_BUILD_ROOT%{perl_vendorlib}/Tk
 
-%{__make} install DESTDIR=$RPM_BUILD_ROOT
+%{__make} install \
+	DESTDIR=$RPM_BUILD_ROOT
 
 rm -f	$RPM_BUILD_ROOT%{perl_vendorarch}/{auto/Tk/.packlist,Tk/reindex.pl} \
 	$RPM_BUILD_ROOT%{_mandir}/man3/Tie::Watch.3pm \
-- 
2.44.0