Do not pass special variables to subroutines directly

[KES777]

Why:

#!/usr/bin/env perl

sub test {
	'asdf' =~ m/.*/; # This destroys received arguments
	print ">>@_<<\n";

}

my $z =  'abcd';
$z =~ m/(ab)(cd)/;
test( $1, $2 );                # >> <<
test( my $x=$1, my $y=$2 );    # >>ab cd<<

How regular expression could be executed when sub is called? This could occur under debugger. For example some module define sub sub and used regex inside that sub

[perlpunk]

This is an issue tracker for the perl module YAML.pm.
How is your code related to that?

[KES777]

https://github.com/ingydotnet/yaml-pm/blob/master/lib/YAML/Loader.pm#L391
https://github.com/ingydotnet/yaml-pm/blob/master/lib/YAML/Loader.pm#L793

[perlpunk]

I have the habit to quote these variables when passing them. I did that in #223 too.
Not sure what you mean with sub sub, though.

[KES777]

@perlpunk I mean this sub: https://perldoc.perl.org/perldebguts#Environment-Variables

{
  package DB;
  sub DB  {}
  sub sub {
     # At this debugger sub 
     # call_something(); # we can call something that uses regex
     'asdf' =~ /.*/; # or use regex directrly. And this will break parameter passed to subroutine
     &$sub
  }
}

[KES777]

Thank you for fixing.