From 48b07f0bbeb0dce66633c37c2bf683f8652bb6f6 Mon Sep 17 00:00:00 2001 From: Renee Date: Sun, 11 Jan 2015 11:19:09 +0100 Subject: avoid Perl 5.21.x sprintf warning In Perl 5.21 a new warning was introduced for too many arguments for printf/sprintf. --- t/addsub.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/addsub.t b/t/addsub.t index 4889d59..19de8be 100644 --- a/t/addsub.t +++ b/t/addsub.t @@ -30,7 +30,7 @@ ok(defined($Foo::{funk}), '... the &funk slot was created successfully'); is((Foo->funk())[0], 'Foo::funk', '... got the right value from the function'); my $line = (Foo->funk())[1]; -is $DB::sub{'Foo::funk'}, sprintf "%s:%d-%d", __FILE__, $line, $line, +is $DB::sub{'Foo::funk'}, sprintf( "%s:%d-%d", __FILE__, $line, $line ), '... got the right %DB::sub value for funk default args'; $foo_stash->add_symbol( @@ -40,7 +40,7 @@ $foo_stash->add_symbol( last_line_num => 199 ); -is $DB::sub{'Foo::dunk'}, sprintf "%s:%d-%d", "FileName", 100, 199, +is $DB::sub{'Foo::dunk'}, sprintf( "%s:%d-%d", "FileName", 100, 199 ), '... got the right %DB::sub value for dunk with specified args'; done_testing; -- cgit v1.2.3