diff options
author | Jesse Luehrs <doy@tozt.net> | 2015-01-17 16:28:52 -0800 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2015-01-17 16:28:52 -0800 |
commit | 377c1cb44d1273dfa792e446ce8b3d344bbf2c94 (patch) | |
tree | d09f848180fec3a663f3fca76e5a4891f3fa1fa2 | |
parent | 8bb2a7fbb29cf51df1bc5d5d9526463e4ae97085 (diff) | |
parent | 48b07f0bbeb0dce66633c37c2bf683f8652bb6f6 (diff) | |
download | package-stash-master.tar.gz package-stash-master.zip |
avoid Perl 5.21.x sprintf warning
-rw-r--r-- | t/addsub.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |