It’s easy enough to test–

perl -Mstrict -wE 'my ( $v1, $v2, $v1 ) = ( 1 .. 3 ); say $v1'
"my" variable $v1 masks earlier declaration in same statement at -e li
+ne 1.
3
[download]

I would not rely on the behavior though. Definitely fix it by cutting out the duplicates.

I am addressing the code issue, yes. Since we're running this on Linux and Solaris, I really don't want to rely on a "quirk" that the code run the same. Thank you!

You could make this explicit by using:

my (undef, $var2, $var3, $var1) = someFunction($var4);
[download]

or refactoring someFunction() if that makes sense.

use strict;
use warnings;

sub someFunction { return @{$_[0]} }

my ($var1, $var2, $var3);
my $var4 = [qw(1 2 3 4)];

($var1, $var2, $var3, $var1) = someFunction($var4);


print "$var1 $var2 $var3\n";



OUTPUT: 4 2 3
[download]

This was more for knowing the way Perl handled the situation, in case I need an immediate fix. I am changing the function itself. No errors/warnings given as the code was NUWNUS.