Hi!
clusterssh doesn't work very well, it eats cpu, logs "TclObj_get <some ID>
int 0" rapidly to stderr and control window is empty(without menus). There is
similar report in archlinux bug database. Upgrading p5-Tk from 804.030 to
804.031 fixes this me and archlinux.
Following updates p5-Tk to lastest 804.032 version. Most of the patches are
included in newer upstream version.
I'm not subscribed to the list, so please keep me in to/cc.
--
rix
Index: Makefile
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/Makefile,v
retrieving revision 1.50
diff -u -p -r1.50 Makefile
--- Makefile 25 Mar 2014 17:07:22 -0000 1.50
+++ Makefile 24 Apr 2014 13:16:40 -0000
@@ -6,8 +6,7 @@ COMMENT-main= Tk 8.4 bindings for Perl
COMMENT-demo= demonstrate the features of ptk
MODULES= cpan
-VERSION= 804.030
-REVISION= 2
+VERSION= 804.032
DISTNAME= Tk-${VERSION}
PKGNAME-main= p5-Tk-${VERSION}
PKGNAME-demo= p5-Tk-demo-${VERSION}
Index: distinfo
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/distinfo,v
retrieving revision 1.9
diff -u -p -r1.9 distinfo
--- distinfo 1 Feb 2013 11:30:31 -0000 1.9
+++ distinfo 24 Apr 2014 13:16:40 -0000
@@ -1,2 +1,2 @@
-SHA256 (Tk-804.030.tar.gz) = iz1Vri6a6VChcM1GOZZgBkkg1tfDuhZ7ykDlM9JujXg=
-SIZE (Tk-804.030.tar.gz) = 6928048
+SHA256 (Tk-804.032.tar.gz) = gAP6gmcjZwk9j9JtidysaVr62S9K1AahBtVuB+ndWUk=
+SIZE (Tk-804.032.tar.gz) = 6933200
Index: patches/patch-IO_IO_xs
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/patches/patch-IO_IO_xs,v
retrieving revision 1.1
diff -u -p -r1.1 patch-IO_IO_xs
--- patches/patch-IO_IO_xs 21 Mar 2014 13:07:34 -0000 1.1
+++ patches/patch-IO_IO_xs 24 Apr 2014 13:16:40 -0000
@@ -1,22 +0,0 @@
-$OpenBSD: patch-IO_IO_xs,v 1.1 2014/03/21 13:07:34 jasper Exp $
-
-From 2333fa35c99aae1db1cb8d3ebce31fc21bc66e0a Mon Sep 17 00:00:00 2001
-From: Slaven Rezic <[email protected]>
-Date: Sat, 23 Mar 2013 14:00:58 +0100
-Subject: [PATCH] * fix for 5.17.7 and newer: SvUPGRADE() is no longer an
expression
-
---- IO/IO.xs.orig Fri Mar 21 14:00:03 2014
-+++ IO/IO.xs Fri Mar 21 14:03:56 2014
-@@ -207,11 +207,7 @@ int offset
- info.count = 0;
- info.error = 0;
- info.eof = 0;
-- if (!SvUPGRADE(buf, SVt_PV))
-- {
-- RETVAL = &PL_sv_undef;
-- return;
-- }
-+ (void)SvUPGRADE(buf, SVt_PV);
- SvPOK_only(buf); /* validate pointer */
- Tcl_CreateFileHandler(fd, TCL_READABLE, read_handler, (ClientData)
&info);
- do
Index: patches/patch-PNG_Makefile_PL
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/patches/patch-PNG_Makefile_PL,v
retrieving revision 1.5
diff -u -p -r1.5 patch-PNG_Makefile_PL
--- patches/patch-PNG_Makefile_PL 4 Jun 2013 15:41:27 -0000 1.5
+++ patches/patch-PNG_Makefile_PL 24 Apr 2014 13:16:40 -0000
@@ -1,23 +0,0 @@
-$OpenBSD: patch-PNG_Makefile_PL,v 1.5 2013/06/04 15:41:27 naddy Exp $
---- PNG/Makefile.PL.orig Sun Nov 23 08:57:09 2008
-+++ PNG/Makefile.PL Thu Sep 2 12:10:16 2010
-@@ -16,7 +16,7 @@ foreach my $file (qw(zlib/Makefile.PL libpng/Makefile.
- }
-
- if ($Tk::MMtry::VERSION ge '4.007' &&
-- try_run("config/has_png.c",['-I/usr/local/include'],['-lpng -lz -lm']))
-+
try_run("config/has_png.c",['-I${LOCALBASE}/include'],['-L${LOCALBASE}/lib
-lpng -lz -lm']))
- {
- Tk::MMutil::TkExtMakefile(
- NAME => 'Tk::PNG',
-@@ -24,8 +24,8 @@ if ($Tk::MMtry::VERSION ge '4.007' &&
- XS_VERSION => $Tk::Config::VERSION,
- dist => { COMPRESS => 'gzip -f9', SUFFIX => '.gz' },
- OBJECT => '$(O_FILES)',
-- INC => '-I/usr/local/include',
-- LIBS => ['-lpng -lz -lm'],
-+ INC => '-I${LOCALBASE}/include',
-+ LIBS => ['-L${LOCALBASE}/lib -lpng -lz -lm'],
- );
- }
- else
Index: patches/patch-pTk_mTk_generic_tkBind_c
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/patches/patch-pTk_mTk_generic_tkBind_c,v
retrieving revision 1.1
diff -u -p -r1.1 patch-pTk_mTk_generic_tkBind_c
--- patches/patch-pTk_mTk_generic_tkBind_c 4 Nov 2008 10:08:03 -0000
1.1
+++ patches/patch-pTk_mTk_generic_tkBind_c 24 Apr 2014 13:16:40 -0000
@@ -1,15 +0,0 @@
-fix with new xproto, from http://bugs.gentoo.org/show_bug.cgi?id=225999
-
-$OpenBSD: patch-pTk_mTk_generic_tkBind_c,v 1.1 2008/11/04 10:08:03 sthen Exp $
---- pTk/mTk/generic/tkBind.c.orig Tue Nov 4 09:10:19 2008
-+++ pTk/mTk/generic/tkBind.c Tue Nov 4 09:12:11 2008
-@@ -629,6 +629,9 @@ static int flagArray[TK_LASTEVENT] = {
- /* ColormapNotify */ COLORMAP,
- /* ClientMessage */ 0,
- /* MappingNotify */ 0,
-+#ifdef GenericEvent
-+ /* GenericEvent */ 0,
-+#endif
- /* VirtualEvent */ VIRTUAL,
- /* Activate */ ACTIVATE,
- /* Deactivate */ ACTIVATE,
Index: patches/patch-tkGlue_c
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/patches/patch-tkGlue_c,v
retrieving revision 1.1
diff -u -p -r1.1 patch-tkGlue_c
--- patches/patch-tkGlue_c 21 Mar 2014 13:07:34 -0000 1.1
+++ patches/patch-tkGlue_c 24 Apr 2014 13:16:40 -0000
@@ -1,21 +0,0 @@
-$OpenBSD: patch-tkGlue_c,v 1.1 2014/03/21 13:07:34 jasper Exp $
-
-From 2333fa35c99aae1db1cb8d3ebce31fc21bc66e0a Mon Sep 17 00:00:00 2001
-From: Slaven Rezic <[email protected]>
-Date: Sat, 23 Mar 2013 14:00:58 +0100
-Subject: [PATCH] * fix for 5.17.7 and newer: SvUPGRADE() is no longer an
expression
-
---- tkGlue.c.orig Fri Mar 21 13:57:53 2014
-+++ tkGlue.c Fri Mar 21 14:01:36 2014
-@@ -3830,10 +3830,7 @@ ClientData clientData;
- return EXPIRE((interp, "Cannot trace readonly variable"));
- }
- }
-- if (!SvUPGRADE(sv, SVt_PVMG))
-- {
-- return EXPIRE((interp, "Trace SvUPGRADE failed"));
-- }
-+ (void)SvUPGRADE(sv, SVt_PVMG);
-
- if (SvTYPE(sv) == SVt_PVAV)
- {
Index: pkg/PLIST-demo
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/pkg/PLIST-demo,v
retrieving revision 1.8
diff -u -p -r1.8 PLIST-demo
--- pkg/PLIST-demo 19 Aug 2010 21:54:42 -0000 1.8
+++ pkg/PLIST-demo 24 Apr 2014 13:16:40 -0000
@@ -111,3 +111,5 @@ ${P5ARCH}/Tk/demos/widtrib/plop.pl
@man man/man1/widget.1
@man man/man3p/Tk::Widget.3p
@man man/man3p/Tk::WidgetDemo.3p
+@man man/man3p/Tk::demos::widget_lib::slide.3p
+@man man/man3p/Tk::demos::widget_lib::trace2.3p
Index: pkg/PLIST-main
===================================================================
RCS file: /OpenBSD/ports/x11/p5-Tk/pkg/PLIST-main,v
retrieving revision 1.4
diff -u -p -r1.4 PLIST-main
--- pkg/PLIST-main 2 Sep 2010 11:53:32 -0000 1.4
+++ pkg/PLIST-main 24 Apr 2014 13:16:40 -0000
@@ -32,10 +32,11 @@ ${P5ARCH}/Tk/Clipboard.pm
${P5ARCH}/Tk/Clipboard.pod
${P5ARCH}/Tk/CmdLine.pm
${P5ARCH}/Tk/CmdLine.pod
+${P5ARCH}/Tk/ColorDialog.pm
${P5ARCH}/Tk/ColorEdit.xpm
${P5ARCH}/Tk/ColorEditor.pm
${P5ARCH}/Tk/ColorEditor.pod
-${P5ARCH}/Tk/Common.pod
+${P5ARCH}/Tk/ColorSelect.pm
${P5ARCH}/Tk/Compound.pm
${P5ARCH}/Tk/Compound.pod
${P5ARCH}/Tk/Config.pm
@@ -55,9 +56,11 @@ ${P5ARCH}/Tk/Dirlist.pm
${P5ARCH}/Tk/DragDrop/
${P5ARCH}/Tk/DragDrop.pm
${P5ARCH}/Tk/DragDrop/Common.pm
+${P5ARCH}/Tk/DragDrop/Common.pod
${P5ARCH}/Tk/DragDrop/LocalDrop.pm
${P5ARCH}/Tk/DragDrop/Rect.pm
${P5ARCH}/Tk/DragDrop/SunConst.pm
+${P5ARCH}/Tk/DragDrop/SunConst.pod
${P5ARCH}/Tk/DragDrop/SunDrop.pm
${P5ARCH}/Tk/DragDrop/SunSite.pm
${P5ARCH}/Tk/DragDrop/XDNDDrop.pm
@@ -160,7 +163,6 @@ ${P5ARCH}/Tk/Spinbox.pod
${P5ARCH}/Tk/Stats.pm
${P5ARCH}/Tk/Submethods.pm
${P5ARCH}/Tk/Submethods.pod
-${P5ARCH}/Tk/SunConst.pod
${P5ARCH}/Tk/TList.pm
${P5ARCH}/Tk/TList.pod
${P5ARCH}/Tk/Table.pm
@@ -604,7 +606,6 @@ ${P5ARCH}/auto/Tk/updateWidgets.al
@man man/man3p/Tk::Clipboard.3p
@man man/man3p/Tk::CmdLine.3p
@man man/man3p/Tk::ColorEditor.3p
-@man man/man3p/Tk::Common.3p
@man man/man3p/Tk::Compound.3p
@man man/man3p/Tk::ConfigSpecs.3p
@man man/man3p/Tk::DItem.3p
@@ -612,6 +613,8 @@ ${P5ARCH}/auto/Tk/updateWidgets.al
@man man/man3p/Tk::Dialog.3p
@man man/man3p/Tk::DialogBox.3p
@man man/man3p/Tk::DirTree.3p
+@man man/man3p/Tk::DragDrop::Common.3p
+@man man/man3p/Tk::DragDrop::SunConst.3p
@man man/man3p/Tk::DropSite.3p
@man man/man3p/Tk::Entry.3p
@man man/man3p/Tk::Error.3p
@@ -655,7 +658,6 @@ ${P5ARCH}/auto/Tk/updateWidgets.al
@man man/man3p/Tk::Scrolled.3p
@man man/man3p/Tk::Spinbox.3p
@man man/man3p/Tk::Submethods.3p
-@man man/man3p/Tk::SunConst.3p
@man man/man3p/Tk::TList.3p
@man man/man3p/Tk::Table.3p
@man man/man3p/Tk::Tcl-perl.3p
