summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2015-01-17 16:28:52 -0800
committerJesse Luehrs <doy@tozt.net>2015-01-17 16:28:52 -0800
commit377c1cb44d1273dfa792e446ce8b3d344bbf2c94 (patch)
treed09f848180fec3a663f3fca76e5a4891f3fa1fa2
parent8bb2a7fbb29cf51df1bc5d5d9526463e4ae97085 (diff)
parent48b07f0bbeb0dce66633c37c2bf683f8652bb6f6 (diff)
downloadpackage-stash-377c1cb44d1273dfa792e446ce8b3d344bbf2c94.tar.gz
package-stash-377c1cb44d1273dfa792e446ce8b3d344bbf2c94.zip
Merge pull request #14 from reneeb/patch-1HEADmaster
avoid Perl 5.21.x sprintf warning
-rw-r--r--t/addsub.t4
1 files 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;