Accepting request 1270025 from devel:languages:perl

Fix build with gcc15
See also https://build.opensuse.org/requests/1269266 (forwarded request 1269956 from tinita)

OBS-URL: https://build.opensuse.org/request/show/1270025
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Tk?expand=0&rev=43

Tk-804-config-C99.diff

@@ -0,0 +1,50 @@
+Index: config/signedchar.c
+===================================================================
+--- config/signedchar.c.orig
++++ config/signedchar.c
+@@ -1,4 +1,4 @@
+-main()
++int main()
+ {
+  signed char x = 'a';
+  return (x - 'a');
+Index: config/unsigned.c
+===================================================================
+--- config/unsigned.c.orig
++++ config/unsigned.c
+@@ -1,3 +1,5 @@
++#include <stdlib.h>
++
+ int main()
+ {
+  char x[] = "\377";
+Index: pTk/config/Hstrdup.c
+===================================================================
+--- pTk/config/Hstrdup.c.orig
++++ pTk/config/Hstrdup.c
+@@ -1,4 +1,5 @@
+ #include <string.h>
++#include <stdlib.h>
+ 
+ #define STRING "Whatever"
+ 
+Index: pTk/config/Hstrtoul.c
+===================================================================
+--- pTk/config/Hstrtoul.c.orig
++++ pTk/config/Hstrtoul.c
+@@ -1,3 +1,4 @@
++#include <string.h>
+ #include <stdlib.h>
+ 
+ int main()
+Index: config/pregcomp2.c
+===================================================================
+--- config/pregcomp2.c.orig
++++ config/pregcomp2.c
+@@ -4,5 +4,5 @@
+ 
+ int main() {
+     SV* sv = newSViv(0);
+-    regexp* rx = pregcomp(sv, 0);
++    void *rx = (void *) pregcomp(sv, 0);
+ }

Tk-804.036-fix-strlen-vs-int-pointer-confusion.patch

@@ -0,0 +1,43 @@
+From a26233c844c52f49ef9cca5f88dd9063aac60d0f Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni@debian.org>
+Date: Thu, 11 Jan 2024 18:28:58 +0000
+Subject: [PATCH] Fix STRLEN vs int pointer confusion in Tcl_GetByteArrayFromObj()
+
+Perl 5.37.2, more precisely commit
+
+ https://github.com/Perl/perl5/commit/1ef9039bccbfe64f47f201b6cfb7d6d23e0b08a7
+
+changed the implementation of SvPV() et al., breaking t/balloon.t,
+t/canvas2.t and t/photo.t on big-endian 64-bit architectures such as
+ppc64 and s390x because StringMatchGIF() no longer recognized GIF files.
+
+This is because Tcl_GetByteArrayFromObj() was calling SvPV() with an int
+pointer instead of a correct STRLEN pointer, and the new implementation
+is more sensitive to this: it assigns the pointers as-is, resulting in
+the int pointer pointing at the wrong end of the 64-bit length.
+
+Other functions taking a length pointer, at least Tcl_GetStringFromObj()
+already seem to do things correctly, so presumably this is not a
+systematic issue.
+---
+ objGlue.c | 5 ++++-
+ 1 file changed, 4 insertions(+), 1 deletion(-)
+
+diff --git objGlue.c objGlue.c
+index d4927ea..dbd6a50 100644
+--- objGlue.c
++++ objGlue.c
+@@ -627,7 +627,10 @@ Tcl_GetByteArrayFromObj(Tcl_Obj * objPtr, int * lengthPtr)
+  sv_utf8_downgrade(objPtr, 0);
+  if (lengthPtr)
+   {
+-   return (unsigned char *) SvPV(objPtr, *lengthPtr);
++   STRLEN len;
++   unsigned char *s = SvPV(objPtr, len);
++   *lengthPtr = len;
++   return s;
+   }
+  else
+   {
+-- 
+2.30.2

Tk-804.036-gcc15.patch

@@ -0,0 +1,12 @@
+Index: pTk/mTk/additions/ClientWin.c
+===================================================================
+--- pTk/mTk/additions/ClientWin.c.orig
++++ pTk/mTk/additions/ClientWin.c
+@@ -30,7 +30,7 @@ in this Software without prior written a
+ #include <X11/Xlib.h>
+ #include <X11/Xatom.h>
+ 
+-static Window TryChildren();
++static Window TryChildren (Display* dpy, Window win, Atom WM_STATE);
+ 
+ /* Find a window with WM_STATE, else return win itself, as per ICCCM */

cpanspec.yml

@@ -1,7 +1,13 @@
 ---
 #description_paragraphs: 3
-#description: |-
-#  override description from CPAN
+description: |-
+ This a re-port of a perl interface to Tk8.4.
+ C code is derived from Tcl/Tk8.4.5.
+ It also includes all the C code parts of Tix8.1.4 from SourceForge.
+ The perl code corresponding to Tix's Tcl code is not fully implemented.
+ 
+ Perl API is essentially the same as Tk800 series Tk800.025 but has not
+ been verified as compliant. There ARE differences see pod/804delta.pod.
 #summary: override summary from CPAN
 #no_testing: broken upstream
 #sources:
@@ -12,12 +18,17 @@ patches:
   Tk-804.029-macro.diff: -p0
   Tk-804.029-null.diff: -p0
   Tk-804.029-refcnt.diff: -p0
+  Tk-804.036-fix-strlen-vs-int-pointer-confusion.patch: -p0
+  Tk-804-config-C99.diff: -p0 PATCH-FIX-UPSTREAM fix gcc14 build error https://github.com/eserte/perl-tk/issues/98
+  Tk-804.036-gcc15.patch: -p0 PATCH-FIX-UPSTREAM fix gcc15 build error https://github.com/eserte/perl-tk/issues/112
 preamble: |-
-  BuildRequires:  libX11-devel
-  BuildRequires:  libXft-devel
   BuildRequires:  liberation-fonts
   BuildRequires:  libjpeg-devel
   BuildRequires:  libpng-devel
+  BuildRequires:  pkgconfig(x11)
+  BuildRequires:  pkgconfig(xft)
+  BuildRequires:  pkgconfig(xproto)
+  BuildRequires:  pkgconfig(xt)
   BuildRequires:  xkeyboard-config
   %if 0%{?suse_version} >= 01550
   BuildRequires:  xvfb-run
@@ -25,10 +36,8 @@ preamble: |-
   BuildRequires:  perl(Test::More)
   BuildRequires:  perl(Test::Pod)
   %endif
-  BuildRequires:  xorg-x11
   BuildRequires:  xorg-x11-Xnest
   BuildRequires:  xorg-x11-Xvfb
-  BuildRequires:  xorg-x11-devel
   BuildRequires:  xorg-x11-fonts
   BuildRequires:  xorg-x11-fonts-100dpi
   BuildRequires:  xorg-x11-fonts-scalable
@@ -38,9 +47,9 @@ preamble: |-
   %ifnarch s390 s390x
   BuildRequires:  xorg-x11-server
   %endif
-#post_prep: |-
-# hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s,  *,,g'`
-# sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL 
+post_prep: |-
+  find . -type f -name "Tcl-pTk" -print0 | xargs -0 chmod +x
+  find . -type f -name "mkVFunc" -print0 | xargs -0 chmod +x
 #post_build: |-
 # rm unused.files
 #post_install: |-
@@ -48,6 +57,9 @@ preamble: |-
 license: (GPL-1.0-or-later OR Artistic-1.0) AND Zlib
 #skip_noarch: 1
 custom_build: |-
+  # Work around boo#1225909, see the bug for more details
+  %global optflags %{optflags} -fpermissive
+
   find -name "*.orig" -exec rm {} \;
   for file in `find -type f` ; do
     grep -q "%{_prefix}/local/bin/perl" $file && \
@@ -74,3 +86,18 @@ custom_test: |-
   %endif
 #startserver && make test
 #ignore_requires: Bizarre::Module
+misc: |-
+ %exclude %{perl_vendorarch}/Tk/pTk
+ %exclude %{perl_vendorarch}/Tk/*.h
+
+ %package devel
+ Summary:        Development files for perl-Tk
+ Requires:       %{name} = %{version}
+ 
+ %description devel
+ Development files for Tk - a graphical user interface toolkit for Perl
+
+ %files devel
+ %{perl_vendorarch}/Tk/pTk
+ %{perl_vendorarch}/Tk/*.h
+skip_doc: add_version build_ptk checklen check_source check_syms cleanup copydate db57 debug debug.bat dupsyms exetype fixfunc gdb.plx gedi generate hackMM keyWords menubug mkExt mkppm.bat myConfig needed perlfiles ptked ptksh r README-ActiveState.txt README.AIX README.cygwin README.darwin README.HPUX README.IRIX README.OpenBSD README.os2 README.OSF README.SCO README.Solaris README-Strawberry.txt README.SVR4 README.ultrix rebuild sm stripblib submethods symbols tcl2perl tkGlue.def tkGlue.exc tkGlue.m tkGlue.t TkXSUB.def uninstall vg vtab.def wal

perl-Tk.changes

@@ -1,3 +1,50 @@
+-------------------------------------------------------------------
+Tue Apr 15 21:47:41 UTC 2025 - Tina Müller <tina.mueller@suse.com>
+
+- Add Tk-804.036-gcc15.patch, https://github.com/eserte/perl-tk/issues/112
+
+-------------------------------------------------------------------
+Mon Jul  8 12:40:38 UTC 2024 - pgajdos@suse.com
+
+- mirror last changes in cpanspec.yml
+
+-------------------------------------------------------------------
+Wed Jul  3 18:38:05 UTC 2024 - Martin Jambor <mjambor@suse.com>
+
+- Compile with -fpermissive to work around issues which GCC 14
+  considers errors (and not warnings as before) and add
+  Tk-804-config-C99.diff to actually fix the problems in the
+  conffigury snippets (which are not compiled with the options
+  requested in optflags).  [boo#1225909]
+
+-------------------------------------------------------------------
+Fri Jan 12 10:31:19 UTC 2024 - Pedro Monreal <pmonreal@suse.com>
+
+- Fix an STRLEN vs int pointer confusion in function
+  Tcl_GetByteArrayFromObj(): [bsc#1218600]
+  * Perl 5.37.2, since commit github.com/Perl/perl5/commit/1ef9039b
+    changed the implementation of SvPV() et al., breaking
+    t/balloon.t, t/canvas2.t and t/photo.t on big-endian 64-bit
+    architectures such as ppc64 and s390x because StringMatchGIF()
+    no longer recognized GIF files.
+  * Add patch from Debian:
+    - Tk-804.036-fix-strlen-vs-int-pointer-confusion.patch
+
+-------------------------------------------------------------------
+Fri Dec  8 13:44:48 UTC 2023 - Frederic Crozat <fcrozat@suse.com>
+
+- Drop BuildRequires on xorg-x11, not needed anymore.
+
+-------------------------------------------------------------------
+Thu May 11 16:06:33 UTC 2023 - Dirk Stoecker <opensuse@dstoecker.de>
+
+- update cpanspec.yml and recreate spec file
+
+-------------------------------------------------------------------
+Sun May  7 10:49:47 UTC 2023 - Jan Engelhardt <jengelh@inai.de>
+
+- Replace xorg-x11 devel requires by pkgconfig(...)
+
 -------------------------------------------------------------------
 Tue May 18 15:14:28 UTC 2021 - Pedro Monreal <pmonreal@suse.com>
 

perl-Tk.spec

@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Tk
 #
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2025 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -18,39 +18,168 @@
 
 %define cpan_name Tk
 Name:           perl-Tk
-Version:        804.036
+Version:        804.36.0
 Release:        0
-Summary:        Graphical user interface toolkit for Perl
+# 804.036 -> normalize -> 804.36.0
+%define cpan_version 804.036
+#Upstream: SUSE-Public-Domain
 License:        (Artistic-1.0 OR GPL-1.0-or-later) AND Zlib
+Summary:        Tk - a Graphical User Interface Toolkit
 URL:            https://metacpan.org/release/%{cpan_name}
-Source0:        https://cpan.metacpan.org/authors/id/S/SR/SREZIC/%{cpan_name}-%{version}.tar.gz
+Source0:        https://cpan.metacpan.org/authors/id/S/SR/SREZIC/%{cpan_name}-%{cpan_version}.tar.gz
 Source1:        cpanspec.yml
-# MANUAL BEGIN
 Patch0:         Tk-804.029-event.diff
 Patch1:         Tk-804.029-macro.diff
 Patch2:         Tk-804.029-null.diff
 Patch3:         Tk-804.029-refcnt.diff
-# MANUAL END
+Patch4:         Tk-804.036-fix-strlen-vs-int-pointer-confusion.patch
+# PATCH-FIX-UPSTREAM fix gcc15 build error https://github.com/eserte/perl-tk/issues/112
+Patch5:         Tk-804.036-gcc15.patch
+# PATCH-FIX-UPSTREAM fix gcc14 build error https://github.com/eserte/perl-tk/issues/98
+Patch6:         Tk-804-config-C99.diff
 BuildRequires:  perl
 BuildRequires:  perl-macros
+Provides:       perl(Tie::Watch)
+Provides:       perl(Tk) = %{version}
+Provides:       perl(Tk::Adjuster) = 4.8.0
+Provides:       perl(Tk::After) = 4.8.0
+Provides:       perl(Tk::Animation) = 4.8.0
+Provides:       perl(Tk::Balloon) = 4.13.0
+Provides:       perl(Tk::Bitmap) = 4.4.0
+Provides:       perl(Tk::BrowseEntry) = 4.15.0
+Provides:       perl(Tk::Button) = 4.10.0
+Provides:       perl(Tk::Canvas) = 4.13.0
+Provides:       perl(Tk::Checkbutton) = 4.6.0
+Provides:       perl(Tk::Clipboard) = 4.9.0
+Provides:       perl(Tk::CmdLine) = 4.7.0
+Provides:       perl(Tk::ColorDialog) = 4.14.0
+Provides:       perl(Tk::ColorEditor) = 4.14.0
+Provides:       perl(Tk::ColorSelect) = 4.14.0
+Provides:       perl(Tk::Compound) = 4.4.0
+Provides:       perl(Tk::Configure) = 4.9.0
+Provides:       perl(Tk::Derived) = 4.11.0
+Provides:       perl(Tk::Dialog) = 4.5.0
+Provides:       perl(Tk::DialogBox) = 4.16.0
+Provides:       perl(Tk::DirTree) = 4.22.0
+Provides:       perl(Tk::DirTreeDialog)
+Provides:       perl(Tk::Dirlist) = 4.4.0
+Provides:       perl(Tk::DragDrop) = 4.15.0
+Provides:       perl(Tk::DragDrop::Common) = 4.5.0
+Provides:       perl(Tk::DragDrop::Local) = 4.4.0
+Provides:       perl(Tk::DragDrop::Rect) = 4.12.0
+Provides:       perl(Tk::DragDrop::SunConst) = 4.4.0
+Provides:       perl(Tk::DragDrop::SunDrop) = 4.6.0
+Provides:       perl(Tk::DragDrop::SunSite) = 4.7.0
+Provides:       perl(Tk::DragDrop::Win32Drop) = 4.4.0
+Provides:       perl(Tk::DragDrop::Win32Site) = 4.9.0
+Provides:       perl(Tk::DragDrop::XDNDDrop) = 4.7.0
+Provides:       perl(Tk::DragDrop::XDNDSite) = 4.7.0
+Provides:       perl(Tk::DropSite) = 4.8.0
+Provides:       perl(Tk::DummyEncode) = 4.7.0
+Provides:       perl(Tk::DummyEncode::X11ControlChars)
+Provides:       perl(Tk::DummyEncode::iso8859_1)
+Provides:       perl(Tk::English) = 4.6.0
+Provides:       perl(Tk::Entry) = 4.18.0
+Provides:       perl(Tk::ErrorDialog) = 4.8.0
+Provides:       perl(Tk::Event) = 4.40.0
+Provides:       perl(Tk::Event::IO) = 4.9.0
+Provides:       perl(Tk::FBox) = 4.21.0
+Provides:       perl(Tk::FileSelect) = 4.18.0
+Provides:       perl(Tk::FloatEntry) = 4.4.0
+Provides:       perl(Tk::Font) = 4.4.0
+Provides:       perl(Tk::Frame) = 4.10.0
+Provides:       perl(Tk::HList) = 4.15.0
+Provides:       perl(Tk::IO) = 4.6.0
+Provides:       perl(Tk::IconList) = 4.7.0
+Provides:       perl(Tk::Image) = 4.11.0
+Provides:       perl(Tk::InputO) = 4.4.0
+Provides:       perl(Tk::ItemStyle) = 4.4.0
+Provides:       perl(Tk::JPEG) = 4.3.0
+Provides:       perl(Tk::LabEntry) = 4.6.0
+Provides:       perl(Tk::LabFrame) = 4.10.0
+Provides:       perl(Tk::LabRadiobutton) = 4.4.0
+Provides:       perl(Tk::Label) = 4.6.0
+Provides:       perl(Tk::LabeledEntryLabeledRadiobutton) = 4.4.0
+Provides:       perl(Tk::Labelframe) = 4.3.0
+Provides:       perl(Tk::Listbox) = 4.15.0
+Provides:       perl(Tk::MMtry) = 4.11.0
+Provides:       perl(Tk::MMutil) = 4.26.0
+Provides:       perl(Tk::MainWindow) = 4.15.0
+Provides:       perl(Tk::MakeDepend) = 4.16.0
+Provides:       perl(Tk::Menu) = 4.23.0
+Provides:       perl(Tk::Menu::Button)
+Provides:       perl(Tk::Menu::Cascade)
+Provides:       perl(Tk::Menu::Checkbutton)
+Provides:       perl(Tk::Menu::Item) = 4.6.0
+Provides:       perl(Tk::Menu::Radiobutton)
+Provides:       perl(Tk::Menu::Separator)
+Provides:       perl(Tk::Menubar) = 4.6.0
+Provides:       perl(Tk::Menubutton) = 4.5.0
+Provides:       perl(Tk::Message) = 4.6.0
+Provides:       perl(Tk::MsgBox) = 4.2.0
+Provides:       perl(Tk::Mwm) = 4.4.0
+Provides:       perl(Tk::NBFrame) = 4.4.0
+Provides:       perl(Tk::NoteBook) = 4.12.0
+Provides:       perl(Tk::Optionmenu) = 4.14.0
+Provides:       perl(Tk::PNG) = 4.4.0
+Provides:       perl(Tk::Pane) = 4.7.0
+Provides:       perl(Tk::Panedwindow) = 4.4.0
+Provides:       perl(Tk::Photo) = 4.6.0
+Provides:       perl(Tk::Pixmap) = 4.4.0
+Provides:       perl(Tk::Pretty) = 4.6.0
+Provides:       perl(Tk::ProgressBar) = 4.15.0
+Provides:       perl(Tk::ROText) = 4.11.0
+Provides:       perl(Tk::Radiobutton) = 4.6.0
+Provides:       perl(Tk::Region) = 4.6.0
+Provides:       perl(Tk::Reindex) = 4.6.0
+Provides:       perl(Tk::ReindexedROText) = 4.4.0
+Provides:       perl(Tk::ReindexedText) = 4.4.0
+Provides:       perl(Tk::Scale) = 4.4.0
+Provides:       perl(Tk::Scrollbar) = 4.10.0
+Provides:       perl(Tk::Spinbox) = 4.7.0
+Provides:       perl(Tk::Stats) = 4.4.0
+Provides:       perl(Tk::Submethods) = 4.5.0
+Provides:       perl(Tk::TList) = 4.6.0
+Provides:       perl(Tk::Table) = 4.16.0
+Provides:       perl(Tk::Text) = 4.31.0
+Provides:       perl(Tk::Text::Tag) = 4.4.0
+Provides:       perl(Tk::TextEdit) = 4.5.0
+Provides:       perl(Tk::TextList) = 4.6.0
+Provides:       perl(Tk::TextUndo) = 4.15.0
+Provides:       perl(Tk::Tiler) = 4.13.0
+Provides:       perl(Tk::TixGrid) = 4.10.0
+Provides:       perl(Tk::Toplevel) = 4.6.0
+Provides:       perl(Tk::Trace) = 4.9.0
+Provides:       perl(Tk::Tree) = 4.720.0
+Provides:       perl(Tk::Widget) = 4.37.0
+Provides:       perl(Tk::WinPhoto) = 4.5.0
+Provides:       perl(Tk::Wm) = 4.15.0
+Provides:       perl(Tk::X) = 4.5.0
+Provides:       perl(Tk::X11Font) = 4.7.0
+Provides:       perl(Tk::Xlib) = 4.4.0
+Provides:       perl(Tk::Xrm) = 4.5.0
+Provides:       perl(Tk::install) = 4.4.0
+Provides:       perl(Tk::widgets) = 4.5.0
+Provides:       perl(WidgetDemo) = 4.12.0
+%undefine       __perllib_provides
 %{perl_requires}
 # MANUAL BEGIN
-BuildRequires:  libX11-devel
-BuildRequires:  libXft-devel
 BuildRequires:  liberation-fonts
 BuildRequires:  libjpeg-devel
 BuildRequires:  libpng-devel
 BuildRequires:  xkeyboard-config
+BuildRequires:  pkgconfig(x11)
+BuildRequires:  pkgconfig(xft)
+BuildRequires:  pkgconfig(xproto)
+BuildRequires:  pkgconfig(xt)
 %if 0%{?suse_version} >= 01550
 BuildRequires:  xvfb-run
 BuildRequires:  perl(Devel::Leak)
 BuildRequires:  perl(Test::More)
 BuildRequires:  perl(Test::Pod)
 %endif
-BuildRequires:  xorg-x11
 BuildRequires:  xorg-x11-Xnest
 BuildRequires:  xorg-x11-Xvfb
-BuildRequires:  xorg-x11-devel
 BuildRequires:  xorg-x11-fonts
 BuildRequires:  xorg-x11-fonts-100dpi
 BuildRequires:  xorg-x11-fonts-scalable
@@ -71,22 +200,26 @@ The perl code corresponding to Tix's Tcl code is not fully implemented.
 Perl API is essentially the same as Tk800 series Tk800.025 but has not
 been verified as compliant. There ARE differences see pod/804delta.pod.
 
-%package devel
-Summary:        Development files for perl-Tk
-Group:          Development/Libraries/Perl
-Requires:       %{name} = %{version}
-
-%description devel
-Development files for Tk - a graphical user interface toolkit for Perl
-
 %prep
-%autosetup  -n %{cpan_name}-%{version} -p0
+%autosetup  -n %{cpan_name}-%{cpan_version} -N
 
-find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -path "*/scripts/*" ! -name "configure" -print0 | xargs -0 chmod 644
+%patch -P0 -p0
+%patch -P1 -p0
+%patch -P2 -p0
+%patch -P3 -p0
+%patch -P4 -p0
+%patch -P5 -p0
+%patch -P6 -p0
+# MANUAL BEGIN
 find . -type f -name "Tcl-pTk" -print0 | xargs -0 chmod +x
 find . -type f -name "mkVFunc" -print0 | xargs -0 chmod +x
+# MANUAL END
 
 %build
+# Work around boo#1225909, see the bug for more details
+%global optflags %{optflags} -fpermissive
+
 find -name "*.orig" -exec rm {} \;
 for file in `find -type f` ; do
   grep -q "%{_prefix}/local/bin/perl" $file && \
@@ -100,7 +233,6 @@ for file in `find -type f` ; do
   grep -q "%{_prefix}/local/bin/new/perl" $file && \
       sed -i -e "s@%{_prefix}/local/bin/new/perl@%{_bindir}/perl@g" "$file"
 done
-
 perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" XFT=1
 make %{?_smp_mflags} CFLAGS="%{optflags} -Wall -fpic"
 
@@ -117,28 +249,22 @@ DISPLAY=:95 make test %{?_smp_mflags}
 %install
 %perl_make_install
 %perl_process_packlist
-rm -f %{buildroot}/%{perl_vendorarch}/fix_4_os2.pl
-find %{buildroot} -type f -name '*.bs' -size 0 -delete
+%perl_gen_filelist
 
-%files
-%defattr(-,root,root,755)
-%license COPYING pTk/*license*
-%doc Changes Change.log Funcs.doc PPM-HowTo README README.linux ToDo demos/widget VERSIONS
-%doc blib/man1/widget.1
-%{_mandir}/man?/*
-%{_bindir}/p*
-%{_bindir}/tkjpeg
-%{_bindir}/gedi
-%{_bindir}/widget
-%{perl_vendorarch}/Tie
-%{perl_vendorarch}/Tk
-%{perl_vendorarch}/Tk.*
-%{perl_vendorarch}/auto/Tk
+%files -f %{name}.files
+%doc Change.log Changes examples Funcs.doc PPM-HowTo README README.linux ToDo VERSIONS
+%license COPYING
 %exclude %{perl_vendorarch}/Tk/pTk
 %exclude %{perl_vendorarch}/Tk/*.h
 
+%package devel
+Summary:        Development files for perl-Tk
+Requires:       %{name} = %{version}
+
+%description devel
+Development files for Tk - a graphical user interface toolkit for Perl
+
 %files devel
-%defattr(-,root,root)
 %{perl_vendorarch}/Tk/pTk
 %{perl_vendorarch}/Tk/*.h