http://www.perlmonks.org?node_id=11103184

Pascal666 has asked for the wisdom of the Perl Monks concerning the following question:

Why am I not getting an error message for line 10?
#!/usr/bin/perl -W use strict; use warnings; use feature 'say'; say 'one' until my $one = 1; say $one; ############# this is line 10 until (my $two = 2) { say 'two'; } say $two;
Output:
Global symbol "$two" requires explicit package name at ./strict.pl lin +e 16. Execution of ./strict.pl aborted due to compilation errors.
Commenting out line 16 gives me:
Use of uninitialized value $one in say at ./strict.pl line 10.
This is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-linux-thread-multi