Nick Ing-Simmons <[EMAIL PROTECTED]> writes:
>>
>>    Tk804.025_beta1.tar.gz
>>
>>has entered CPAN as
>>
>>  file: $CPAN/authors/id/N/NI/NI-S/Tk804.025_beta1.tar.gz
>>  size: 5964983 bytes
>>   md5: beef525ecfc67c63f81ba749f1ef8a62
>>
>>No action is required on your part
>>Request entered by: NI-S (Nick Ing-Simmons)
>>Request entered on: Sun, 28 Sep 2003 18:00:16 GMT
>>Request completed:  Sun, 28 Sep 2003 18:01:57 GMT
>>
>
>Time has come for Tk804 series to get a more public testing.
>So 'tis in CPAN. Attached is the README.
>
>I _think_ the code itself is now in better shape than Tk800 series.
>The build and test stuff probably needs some work (but so does Tk800.025!).
>So I am calling it a beta.

So far only patches I have are as attached. 
They should fix the Win32 PNG/zlib build snag (the only real patch!)
the Makefile.PL MANIFEST gripes, and Slaven's latest worry about UNIVERSAL.pm

I don't believe that is all there is wrong with it.

I only get to work in this stuff in bursts (at weekends mostly) so 
if you can give me something to work on next weekend we can get this thing
out of beta.

Those of you with non-linux platforms (I suppose Steve has 
done Darwin testing [or is that selection?] too), and "odd" perl 
configurations give it a try please... 

(Merijn - a fresh set of winges from 64-bit HPUX would be good, 
 as would suggestions as to the right mantra to cast int/pointer 
 quietly. Does the PNG.sl get anywhere yet?)

Even confirmation or otherwise of "No hope with perl5.6" would be a help. 

Patches to pass (or even render as TODO test) the failing entry.t/listbox.t
tests on non-KDE/XFree86 configs welcome...

--
Nick

# strip everything before this and feed to /bin/sh
#
#
patch -p1 -N <<'__END_OF_PATCH__'

Index: JPEG/MANIFEST
--- Tk804.025_beta1/JPEG/MANIFEST       2003-08-24 17:46:50.000000000 +0100
+++ Tkutf8/JPEG/MANIFEST        2003-10-04 18:26:48.000000000 +0100
@@ -126,7 +126,6 @@
 jpeg/makefile.unix
 jpeg/makefile.v32
 jpeg/makefile.vc
-jpeg/makefile.vc.orig
 jpeg/makefile.vms
 jpeg/makefile.wat
 jpeg/makelib.ds

Index: PNG/MANIFEST
--- Tk804.025_beta1/PNG/MANIFEST        2003-09-25 19:37:06.000000000 +0100
+++ Tkutf8/PNG/MANIFEST 2003-10-04 18:25:46.000000000 +0100
@@ -76,7 +76,6 @@
 libpng/msvc/libpng.dsw
 libpng/msvc/png.rc
 libpng/msvc/png32ms.def
-libpng/msvc/png32ms.def.orig
 libpng/msvc/README.txt
 libpng/msvc/zlib.def
 libpng/msvc/zlib.dsp

Index: PNG/zlib/nt/Makefile.nt
--- Tk804.025_beta1/PNG/zlib/nt/Makefile.nt     2003-09-28 18:29:18.000000000 +0100
+++ Tkutf8/PNG/zlib/nt/Makefile.nt      2003-10-04 18:22:25.000000000 +0100
@@ -1,4 +1,7 @@
 # Makefile for zlib
+# This has been hacked for perl/Tk use by NI-S
+# Now builds zlib.lib rather than zlib.dll to avoid test/install issues
+# Makefile is also now dmake/nmake neutral (I think).
 
 #!include <ntwin32.mak>
 dlllflags = /INCREMENTAL:NO /PDB:NONE /RELEASE /NOLOGO \
@@ -16,7 +19,7 @@
 OBJ2 = zutil$(O) inflate$(O) infblock$(O) inftrees$(O) infcodes$(O) \
   infutil$(O) inffast$(O)
 
-all:  zlib.dll example.exe minigzip.exe
+all:  zlib.lib example.exe minigzip.exe
 
 adler32.obj: adler32.c zutil.h zlib.h zconf.h
        $(CC) -c $(cvarsdll) $(CFLAGS) $*.c

Index: Tixish/Balloon.pm
--- Tk804.025_beta1/Tixish/Balloon.pm   2003-08-27 21:18:08.000000000 +0100
+++ Tkutf8/Tixish/Balloon.pm    2003-10-06 20:15:38.000000000 +0100
@@ -11,7 +11,7 @@
 package Tk::Balloon;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
+$VERSION = sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev Exists);
 use Carp;
@@ -20,7 +20,7 @@
 Tk::Widget->Construct('Balloon');
 use base qw(Tk::Toplevel);
 
-use UNIVERSAL;
+# use UNIVERSAL; avoid the UNIVERSAL.pm file subs are XS in perl core
 
 use strict;
 

Index: Tk/Widget.pm
--- Tk804.025_beta1/Tk/Widget.pm        2003-09-26 19:51:57.000000000 +0100
+++ Tkutf8/Tk/Widget.pm 2003-10-06 20:15:38.000000000 +0100
@@ -3,7 +3,7 @@
 # modify it under the same terms as Perl itself.
 package Tk::Widget;
 use vars qw($VERSION @DefaultMenuLabels);
-$VERSION = sprintf '4.%03d', q$Revision: #26 $ =~ /\D(\d+)\s*$/;
+$VERSION = sprintf '4.%03d', q$Revision: #27 $ =~ /\D(\d+)\s*$/;
 
 require Tk;
 use AutoLoader;
@@ -272,7 +272,7 @@
  return $what;
 }
 
-require UNIVERSAL;
+# require UNIVERSAL; don't load .pm use XS code from perl core though
 
 sub AUTOLOAD
 {
__END_OF_PATCH__

Reply via email to