X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-obj.t;h=49f3dc7e5e11d5518205ceb6bad7d9f895ec9688;hb=f0596ac13a537630fc7421d5d21249a603bd0375;hp=1a2695ec00493c728c83110903269e7554f3fc58;hpb=e531c89b3ecbc5d58156f71c5324f5f253459864;p=perl%2Fmodules%2FB-RecDeparse.git

diff --git a/t/10-obj.t b/t/10-obj.t
index 1a2695e..49f3dc7 100644
--- a/t/10-obj.t
+++ b/t/10-obj.t
@@ -22,5 +22,5 @@ ok(defined $brd3, 'BRD::new called as a function works ');
 is(ref $brd3, 'B::RecDeparse', 'BRD::new called as a functions returns a B::RecDeparse object');
 ok($brd3->isa('B::Deparse'), 'BRD is a BD');
 
-eval { $brd2 = new B::RecDeparse qw/a b c/ };
+eval { $brd2 = new B::RecDeparse qw<a b c> };
 like($@, qr/Optional\s+arguments/, 'BRD::new gets parameters as key => value pairs');