Hi Monks,

This one escapes me:

#!/usr/bin/perl
use strict;

my $debug=1;
if ($debug > 0) { use warnings; print "Using warnings\n"; }

run_sub();
sub run_sub { print "Running\n"; }
sub run_sub { print "Ran\n"; }
[download]

Am expecting a warning...? Thanks for considering.

~