[Debian-med-packaging] Bug#1151888: [Help] Re: Bug#1151888: vcftools: Possible attempt to escape whitespace in qw() list with Perl 5.44

[Roland Rosenfeld]

Hi Andreas!

On Sat, 24 Oct 2026, Andreas Tille wrote:

> I would love to help the Perl transistion.  It would help me a lot if
> you could provide a patch - even pushing directly to Debian Med
> repository + team upload (Debian Med team shares the same open
> development model as Perl team) would be fine if this saves your time.

> >   $ perl -we 'use Vcf'
> >   Possible attempt to escape whitespace in qw() list at /usr/share/perl5/Vcf.pm line 2844.

The following patch should do the trick to get rid of the above
warning with perl 5.44:

--- a/src/perl/Vcf.pm
+++ b/src/perl/Vcf.pm
@@ -2841,7 +2841,7 @@ sub new
         regex_gtsep => qr{[\\|/]},
         regex_gt    => qr{^(\.|\d+)([\\|/]?)(\.?|\d*)$},
         regex_gt2   => qr{^(\.|[0-9ACGTNIDacgtn]+)([\\|/]?)}, # . 0/1 0|1 A/A A|A D4/IACGT
-        gt_sep => [qw(\ | /)],
+        gt_sep => [qw(\\ | /)],
     };
 
     for my $key (keys %{$$self{_defaults}}) 

Greetings
Roland