Package: libsdl-perl
Version: 1.20.3dfsg-2
Severity: normal
Tags: patch
the call to TEXT_SHADED (and several other methods) in
/usr/lib/perl5/SDL/TTFont.pm should call
SDL::Event::TEXT_SHADED as defined in /usr/lib/perl5/SDL/Constants.pm instead of
main::TEXT_SHADED.
-- System Information:
Debian Release: lenny/sid
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'stable')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.20.3
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages libsdl-perl depends on:
ii libc6 2.6.1-1 GNU C Library: Shared libraries
ii libgcc1 1:4.2.1-4 GCC support library
ii libgl1-mesa-glx [lib 7.0.1-2 A free implementation of the OpenG
ii libglu1-mesa [libglu 7.0.1-2 The OpenGL utility library (GLU)
ii libjpeg62 6b-13 The Independent JPEG Group's JPEG
ii libpng12-0 1.2.15~beta5-2 PNG library - runtime
ii libsdl-console 1.3-4 console that can be added to any S
ii libsdl-gfx1.2-4 2.0.13-3 drawing and graphical effects exte
ii libsdl-image1.2 1.2.6-1 image loading library for Simple D
ii libsdl-mixer1.2 1.2.6-3 mixer library for Simple DirectMed
ii libsdl-net1.2 1.2.5-7+b1 network library for Simple DirectM
ii libsdl-ttf2.0-0 2.0.9-1 ttf library for Simple DirectMedia
ii libsdl1.2debian 1.2.11-9 Simple DirectMedia Layer
ii libsmpeg0 0.4.5+cvs20030824-2 SDL MPEG Player Library - shared l
ii libstdc++6 4.2.1-4 The GNU Standard C++ Library v3
ii perl 5.8.8-7 Larry Wall's Practical Extraction
ii perl-base [perlapi-5 5.8.8-7 The Pathologically Eclectic Rubbis
libsdl-perl recommends no packages.
-- no debconf information
26c26
< $self->{-mode} = $options{-mode} || $options{-m} || main::TEXT_SHADED();
---
> $self->{-mode} = $options{-mode} || $options{-m} || SDL::Event::TEXT_SHADED();
90c90
< SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_NORMAL());
---
> SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_NORMAL());
95c95
< SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_BOLD());
---
> SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_BOLD());
100c100
< SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_ITALIC());
---
> SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_ITALIC());
106c106
< SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_UNDERLINE());
---
> SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_UNDERLINE());
111c111
< $$self{-mode} = main::TEXT_SHADED();
---
> $$self{-mode} = SDL::Event::TEXT_SHADED();
116c116
< $$self{-mode} = main::TEXT_SOLID();
---
> $$self{-mode} = SDL::Event::TEXT_SOLID();
121c121
< $$self{-mode} = main::TEXT_BLENDED();
---
> $$self{-mode} = SDL::Event::TEXT_BLENDED();
126c126
< $$self{-mode} = main::UTF8_SHADED();
---
> $$self{-mode} = SDL::Event::UTF8_SHADED();
131c131
< $$self{-mode} = main::UTF8_SOLID();
---
> $$self{-mode} = SDL::Event::UTF8_SOLID();
136c136
< $$self{-mode} = main::UTF8_BLENDED();
---
> $$self{-mode} = SDL::Event::UTF8_BLENDED();
141c141
< $$self{-mode} = main::UNICODE_SHADED();
---
> $$self{-mode} = SDL::Event::UNICODE_SHADED();
146c146
< $$self{-mode} = main::UNICODE_SOLID();
---
> $$self{-mode} = SDL::Event::UNICODE_SOLID();
151c151
< $$self{-mode} = main::UNICODE_BLENDED();
---
> $$self{-mode} = SDL::Event::UNICODE_BLENDED();
