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
