Perl6: Wie kann ich alle Warnungen fatal machen?
Wie kann ich alle Warnungen in Perl6 zum Scheitern verleiten, sodass das Skript abstürzt, sobald eine Warnung auf dem Bildschirm angezeigt wird?
CONTROL { when CX::Warn { note $_; exit 1 } } stirbt öfter.
Dieses Skript stirbt mitCONTROL { when CX::Warn { note $_; exit 1 } } aber nicht mituse fatal:
#!/usr/bin/env perl6
use v6;
my @a = 1 .. 4;
@a[5] = 6;
my @b;
for @a -> $i {
@b.push( ~$i );
}
say "=====\n" x 3;