Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DB_File CPAN distribution.

Report information
The Basics
Id:
79287
Status:
resolved
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
jdhedden [...] cpan.org
Cc:
AdminCc:

BugTracker
Severity:
Normal
Broken in:
1.826
Fixed in:
1.827



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 /);
Thanks, applied. Just uploaded DB_File-1.827 to CPAN Paul


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.