On Wed, Apr 07, 2004 at 02:53:07AM -0400, Mason Loring Bliss wrote:
> I was wondering if anyone's had any success with Perl/Tk. Was it tested
> before the latest version was committed? It seems unlikely.

I did run 'make test' before I committed it, and it still works for me,
see below.

That is on a 1.6L/i386 (no native threads) with perl-5.8.3, p5-Tk-804.026,
tk-8.4.6nb2, and tcl-8.4.6nb2.

t/after......................ok                                              
t/autoload...................ok                                              
t/balloon....................ok                                              
t/browseentry-grabtest.......ok                                              
t/browseentry-subclassing....ok                                              
t/browseentry................ok                                              
t/browseentry2...............ok                                              
t/button.....................ok                                              
t/create.....................ok                                              
t/cursor.....................ok                                              
t/dash.......................ok                                              
t/dialogbox..................ok                                              
t/entry......................ok                                              
        15/336 skipped: various reasons
t/fbox.......................ok                                              
t/fileevent..................ok                                              
t/fileselect.................ok                                              
t/font.......................ok                                              
t/geomgr.....................ok                                              
t/iso8859-1..................ok                                              
t/JP.........................ok                                              
t/KR.........................ok                                              
t/leak.......................ok                                              
t/list.......................ok                                              
t/listbox....................ok                                              
        4/437 skipped: various reasons, 3/437 unexpectedly succeeded
t/listvar....................ok                                              
t/magic......................ok                                              
t/mega.......................ok                                              
t/mwm........................ok                                              
t/optmenu....................ok                                              
t/photo......................ok                                              
        4/100 skipped: various reasons
t/pixmap.....................ok                                              
t/progbar....................ok                                              
t/regexp.....................ok                                              
t/Require....................ok                                              
t/slaves.....................ok                                              
t/Trace......................ok                                              
t/trace1.....................ok                                              
t/widget.....................ok                                              
t/wm-time....................ok                                              
t/wm.........................ok                                              
t/X..........................ok                                              
t/zzHList....................ok                                              
t/zzPhoto....................ok                                              
t/zzScrolled.................ok                                              
t/zzText.....................ok                                              
t/zzTixGrid..................ok                                              
All tests successful (3 subtests UNEXPECTEDLY SUCCEEDED), 23 subtests skipped.
Files=46, Tests=2618, 61 wallclock secs (26.65 cusr +  2.46 csys = 29.11 CPU)
cd zlib && /usr/bin/make libz.a "CC=gcc -DPIC -fPIC " RANLIB=":"
`libz.a' is up to date.
PERL_DL_NONLAZY=1 /usr/pkg/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, '../blib/lib', '../blib/arch')" t/*.t
t/basic....ok                                                                
All tests successful.
Files=1, Tests=4,  1 wallclock secs ( 0.31 cusr +  0.03 csys =  0.34 CPU)
./pngtest
Testing libpng version 1.2.5
   with zlib   version 1.1.4

 libpng version 1.2.5 - October 3, 2002
   Copyright (c) 1998-2002 Glenn Randers-Pehrson
   Copyright (c) 1996-1997 Andreas Dilger
   Copyright (c) 1995-1996 Guy Eric Schalnat, Group 42, Inc.
 library (10205): libpng version 1.2.5 - October 3, 2002 (header)
 pngtest (10205): libpng version 1.2.5 - October 3, 2002 (header)
 sizeof(png_struct)=596, sizeof(png_info)=288
Testing pngtest.png:
 Pass 0: rwrwrwrwrwrwrwrwrw
 Pass 1: rwrwrwrwrwrwrwrwrw
 Pass 2: rwrwrwrwrwrwrwrw
 Pass 3: rwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrw
 Pass 4: rwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrw
 Pass 5: rwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrw
         rwrwrwrw
 Pass 6: rwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrwrw
         rwrwrwrwrw
 PASS (9782 zero samples)
 Filter 0 was used 21 times
 Filter 1 was used 15 times
 Filter 2 was used 52 times
 Filter 3 was used 10 times
 Filter 4 was used 33 times
 tIME = 7 Jun 1996 17:58:08 +0000
 Current memory allocation:          0 bytes
 Maximum memory allocation:     337354 bytes
 Total   memory allocation:    1023540 bytes
     Number of allocations:        198
libpng passes test
hello world
uncompress(): hello, hello!
gzread(): hello, hello!
gzgets() after gzseek: hello!
inflate(): hello, hello!
large_inflate(): OK
after inflateSync(): hello, hello!
inflate with dictionary: hello, hello!
                *** zlib test OK ***
cd jpeg && /usr/bin/make libjpeg.a
`libjpeg.a' is up to date.
PERL_DL_NONLAZY=1 /usr/pkg/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, '../blib/lib', '../blib/arch')" t/*.t
t/more....ok                                                                 
t/Read....ok                                                                 
All tests successful.
Files=2, Tests=42,  3 wallclock secs ( 0.77 cusr +  0.15 csys =  0.92 CPU)
rm -f testout*
./djpeg -dct int -ppm -outfile testout.ppm  ./testorig.jpg
./djpeg -dct int -bmp -colors 256 -outfile testout.bmp  ./testorig.jpg
./cjpeg -dct int -outfile testout.jpg  ./testimg.ppm
./djpeg -dct int -ppm -outfile testoutp.ppm ./testprog.jpg
./cjpeg -dct int -progressive -opt -outfile testoutp.jpg ./testimg.ppm
./jpegtran -outfile testoutt.jpg ./testprog.jpg
cmp ./testimg.ppm testout.ppm
cmp ./testimg.bmp testout.bmp
cmp ./testimg.jpg testout.jpg
cmp ./testimg.ppm testoutp.ppm
cmp ./testimgp.jpg testoutp.jpg
cmp ./testorig.jpg testoutt.jpg
PERL_DL_NONLAZY=1 /usr/pkg/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, '../blib/lib', '../blib/arch')" t/*.t
t/basic....ok                                                                
All tests successful.
Files=1, Tests=1,  0 wallclock secs ( 0.08 cusr +  0.00 csys =  0.08 CPU)


On what platform is your problem?
 Thomas