Your message dated Sun, 18 Jan 2026 20:08:19 +0100
with message-id <aW0vowdUOv1kNBfQ@end>
and subject line Re: Bug#767664: libsdl-perl: FTBFS on hurd-i386
has caused the Debian Bug report #767664,
regarding libsdl-perl: FTBFS on hurd-i386
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact [email protected]
immediately.)
--
767664: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=767664
Debian Bug Tracking System
Contact [email protected] with problems
--- Begin Message ---
Source: libsdl-perl
Version: 2.546-2
Severity: important
Tags: patch
Usertags: hurd
User: [email protected]
Hello,
Currently libsdl-cdrom FTBFS on GNU/Hurd since the test
SDL::CDROM::num_drives() in t/core_cd.t returns -1. This return value is
expected when the SDL_INIT_CDROM flag is not used for SDL_init(). From
/usr/include/SDL/SDL_cdrom.h:
/**
* Returns the number of CD-ROM drives on the system, or -1 if
* SDL_Init() has not been called with the SDL_INIT_CDROM flag.
*/
Note: This is confusing since the test i t/core_cd.t succeeds:
plan( skip_all => 'Failed to init cdrom' )
unless SDL::TestTool->init(SDL_INIT_CDROM);
Anyway, the attached patch, fix-core_cd-tests, fixes the test when
SDL::CDROM::num_drives() returns a number <= 0.
Thanks!
Index: libsdl-perl-2.546/t/core_cd.t
===================================================================
--- libsdl-perl-2.546.orig/t/core_cd.t
+++ libsdl-perl-2.546/t/core_cd.t
@@ -37,12 +37,13 @@ is( SDL_DATA_TRACK, 4, 'SDL_DATA_TRAC
is( SDL_DATA_TRACK(), 4, 'SDL_DATA_TRACK() should also be available' );
my $num_drives = SDL::CDROM::num_drives();
-ok( $num_drives >= 0, "[SDL::CDROM::num_drives] is $num_drives" );
SKIP:
{
- skip( "no drives available or SDL_RELEASE_TESTING not set", 17 )
+ skip( "no drives available or SDL_RELEASE_TESTING not set", 18 )
if $num_drives <= 0 || !$ENV{SDL_RELEASE_TESTING};
+
+ ok( $num_drives > 0, "[SDL::CDROM::num_drives] is $num_drives" );
for ( 0 .. $num_drives - 1 ) {
my $name = SDL::CDROM::name($_);
ok( $name, "[SDL::CDROM::name] for drive $_ is $name" );
--- End Message ---
--- Begin Message ---
Hello,
João Pedro Malhado, le dim. 18 janv. 2026 18:57:14 +0000, a ecrit:
> X-Debbugs-cc: [email protected]
>
> This bug report is tagged as fixed-upstream and the latest versions of
> libsdl-perl seem to build fine according to the build logs.
> Should this bug therefore be closed?
It seems so indeed, doing so.
Samuel
--- End Message ---
