'say;' ungeeignet für Zeilenumbrüche

Reports enthalten dauerhaft pro Set eine uninitialized (string) Warnung.

• Use of uninitialized value $_ in say at /usr/share/perl5/SLUB/LZA/TA/Command/report.pm line 586.
• Code-Stellen:
  • https://git.slub-dresden.de/digital-preservation/tools-for-technical-analysts/-/blob/master/lib/SLUB/LZA/TA/Command/report.pm?ref_type=heads#L585
  • https://git.slub-dresden.de/digital-preservation/tools-for-technical-analysts/-/blob/master/lib/SLUB/LZA/TA/Command/report.pm?ref_type=heads#L607

say benötigt immer einen definierten String, sonst meldet Perl diese Warnung (wenn $_ nicht initialisiert wurde durch ein Kommando davor)

Beispiel:

$ perl -e 'use v5.36; say "#1"x10; my $x="TEST"; say $x; say "#2"x10; my $x=""; say $x; say "#3"x10; undef $x; say $x; say "#4"x10; say;'
"my" variable $x masks earlier declaration in same scope at -e line 1.
#1#1#1#1#1#1#1#1#1#1
TEST
#2#2#2#2#2#2#2#2#2#2

#3#3#3#3#3#3#3#3#3#3
Use of uninitialized value $x in say at -e line 1.

#4#4#4#4#4#4#4#4#4#4
Use of uninitialized value $_ in say at -e line 1.