-----BEGIN PGP SIGNED MESSAGE-----
Moin,
the attached patch fixes that problem:
However, after that I get:
null:/home/te/perl/game/Games-OpenGL-Font-2D-0.06 # valgrind perl t/font.t
==7805== Memcheck, a.k.a. Valgrind, a memory error detector for x86-linux.
==7805== Copyright (C) 2002-2003, and GNU GPL'd, by Julian Seward.
==7805== Using valgrind-20031012, a program supervision framework for
x86-linux.
==7805== Copyright (C) 2000-2003, and GNU GPL'd, by Julian Seward.
==7805== Estimated CPU clock rate is 2009 MHz
==7805== For more details, rerun with: -v
==7805==
1..10
==7805== Syscall param modify_ldt(ptr)(func=1 or 0x11) contains
uninitialised or unaddressable byte(s)
==7805== at 0x436948D8: (within /usr/lib/libGL.so.1.0.4496)
==7805== Address 0xBFFFE5A4 is on thread 1's stack
ok 1 - use Games::OpenGL::Font::2D;
ok 2 - Games::OpenGL::Font::2D->can(...)
Undefined subroutine &Games::OpenGL::Font::2D::glGenTextures called at ../
blib/lib/Games/OpenGL/Font/2D.pm line 89, <DATA> line 265.
# Looks like you planned 10 tests but only ran 2.
# Looks like your test died just after 2.
==7805==
==7805== ERROR SUMMARY: 1 errors from 1 contexts (suppressed: 62 from 1)
==7805== malloc/free: in use at exit: 4088416 bytes in 63179 blocks.
==7805== malloc/free: 111184 allocs, 48005 frees, 43878575 bytes allocated.
==7805== For a detailed leak analysis, rerun with: --leak-check=yes
==7805== For counts of detected errors, rerun with: -v
null:/home/te/perl/game/Games-OpenGL-Font-2D-0.06 #
Cheers,
Tels
- --
Signed on Sat Feb 21 15:04:26 2004 with key 0x93B84C15.
Visit my photo gallery at http://bloodgate.com/photos/
PGP key on http://bloodgate.com/tels.asc or per email.
"Some spammers have this warped idea that their freedom of speech is
guaranteed all the way into my hard drive, but it is my firm belief that
their rights end at my firewall." -- Nigel Featherston
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.2-rc1-SuSE (GNU/Linux)
Comment: When cryptography is outlawed, bayl bhgynjf jvyy unir cevinpl.
iQEVAwUBQDdl2HcLPEOTuEwVAQHAlwf8DPBwEEcfTvs6vHrIopTH9G38nwcVOiHP
79prS6uSUDRsWmlK1ZiBl+86ruOBhos+cAeVwkKLhrr+Zh3WsWIowbQqNpeWpCx4
bTqtlB7Ja8RfDro6R7+EXxf1fGIhEgG2y/BaxM7J86VESkQ0PAz4wgx+gPTvP8eX
CIckImmw2Q3XAwJVxJitPANIOB7hTdcgelDvxwa32kSnbzrPNq3HwpmIOKLVnQIV
QQB5AMxxJ//DMpeeU8SfM0ZVQNZHYywTRzeg5upYFHbOdY60AOdlRdL4hxLuuv4V
/juFqqyNjw6hsmLTYwg0zK0r3btN2xoDpHgSiILlv9lEW14AFpXLtw==
=aIXo
-----END PGP SIGNATURE-----
--- Surface.pm 2004-02-21 15:03:27.000000000 +0100
+++ /usr/local/lib/perl5/site_perl/5.8.2/i686-linux/SDL/Surface.pm 2004-02-21
15:05:24.000000000 +0100
@@ -24,7 +24,7 @@
-from -f /) if $SDL::DEBUG;
if ( defined($options{-name}) && $options{-name} ne "" && exists
$SDL::{IMGLoad} ) {
- $self = \SDL::IMGLoad($options{-name});
+ $self = \IMGLoad($options{-name});
} else {
my $f = $options{-flags} || $options{-fl} ||
SDL_ANYFORMAT();
my $w = $options{-width} || $options{-w} || 1;
