[libtest-bdd-cucumber-perl] 50/52: Weird 5.16.2 behaviour around $1. ENOTIME, this is a nicer solution anyway.

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.19
in repository libtest-bdd-cucumber-perl.

commit 0468cfa4919b1e7d67186a559256827295084a73
Author: Peter Sergeant <p...@clueball.com>
Date:   Tue Jun 3 07:34:24 2014 +0100

    Weird 5.16.2 behaviour around $1. ENOTIME, this is a nicer solution anyway.
---
 examples/digest/features/step_definitions/basic_steps.pl       | 10 +++++++---
 .../tagged-digest/features/step_definitions/basic_steps.pl     | 10 +++++++---
 2 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/examples/digest/features/step_definitions/basic_steps.pl 
b/examples/digest/features/step_definitions/basic_steps.pl
index be571a9..ab060a6 100755
--- a/examples/digest/features/step_definitions/basic_steps.pl
+++ b/examples/digest/features/step_definitions/basic_steps.pl
@@ -25,7 +25,11 @@ When "I've added the following to the object", sub {
 };
 
 Then qr/the (.+) output is "(.+)"/, sub {
-    my $method = {base64 => 'b64digest', 'hex' => 'hexdigest' }->{ $1 } ||
-        do { fail("Unknown output type $1"); return };
-    is( S->{'object'}->$method, $2 );
+    my ( $type, $expected ) = @{ C->matches };
+    my $method = {
+        'base64' => 'b64digest',
+        'hex' => 'hexdigest'
+    }->{ $type };
+
+    is( S->{'object'}->$method, $expected );
 };
diff --git a/examples/tagged-digest/features/step_definitions/basic_steps.pl 
b/examples/tagged-digest/features/step_definitions/basic_steps.pl
index 64f1589..2c2e040 100755
--- a/examples/tagged-digest/features/step_definitions/basic_steps.pl
+++ b/examples/tagged-digest/features/step_definitions/basic_steps.pl
@@ -23,7 +23,11 @@ When "I've added the following to the object", sub {
 };
 
 Then qr/the (.+) output is "(.+)"/, sub {
-    my $method = {base64 => 'b64digest', 'hex' => 'hexdigest' }->{ $1 } ||
-        do { fail("Unknown output type $1"); return };
-    is( S->{'object'}->$method, $2 );
+    my ( $type, $expected ) = @{ C->matches };
+    my $method = {
+        'base64' => 'b64digest',
+        'hex' => 'hexdigest'
+    }->{ $type };
+
+    is( S->{'object'}->$method, $expected );
 };

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libtest-bdd-cucumber-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits