#!/usr/bin/perl

use 5.010;


use strict;
use warnings;

sub foo {
    my $x if 0;
    say ++$x;
}

sub bar {
    my $x if 0;
    say ++$x;
    bar() if @_;
}

foo;
foo;
bar(1);

__END__
Deprecated use of my() in false conditional at ./x line 10.
Deprecated use of my() in false conditional at ./x line 15.
1
2
1
1