| Subject: | [PATCH] Don't use "@_" construct |
Currently, under blead, DB_File.pm is producing the following warning:
t/op/coreamp ..................................................
Possible unintended interpolation of @_ in string at ../lib/DB_File.pm
line 172.
ok
The attached patch replaces "@_" with join(' ', @_) constructs.
| Subject: | DB_File.patch |
--- DB_File-1.826/DB_File.pm-orig 2012-08-29 11:13:26.061185300 -0400
+++ DB_File-1.826/DB_File.pm 2012-08-29 11:14:00.389310300 -0400
@@ -169,13 +169,13 @@
$VERSION = eval $VERSION; # needed for dev releases
{
- local $SIG{__WARN__} = sub {$splice_end_array_no_length = "@_";};
+ local $SIG{__WARN__} = sub {$splice_end_array_no_length = join(' ', @_);};
my @a =(1); splice(@a, 3);
$splice_end_array_no_length =
($splice_end_array_no_length =~ /^splice\(\) offset past end of array at /);
}
{
- local $SIG{__WARN__} = sub {$splice_end_array = "@_";};
+ local $SIG{__WARN__} = sub {$splice_end_array = join(' ', @_);};
my @a =(1); splice(@a, 3, 1);
$splice_end_array =
($splice_end_array =~ /^splice\(\) offset past end of array at /);