[libtest-bdd-cucumber-perl] 33/52: Step defining keywords are now anchored ^$ in case a verb contains another, different verb

[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 e03797f9f201f761e11e43f1f433758b6906807f
Author: glauschwuffel <glauschwuffel at nomaden.org>
Date:   Thu May 29 20:34:24 2014 +0200

    Step defining keywords are now anchored ^$ in case a verb contains another, different verb
---
 lib/Test/BDD/Cucumber/Parser.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Test/BDD/Cucumber/Parser.pm b/lib/Test/BDD/Cucumber/Parser.pm
index 6dbf254..d3b2d6e 100644
--- a/lib/Test/BDD/Cucumber/Parser.pm
+++ b/lib/Test/BDD/Cucumber/Parser.pm
@@ -206,10 +206,10 @@ sub _extract_steps {
 		if ( $line->content =~ m/^((?:$self->{langdef}->{given})|(?:$self->{langdef}->{and})|(?:$self->{langdef}->{when})|(?:$self->{langdef}->{then})|(?:$self->{langdef}->{but})) (.+)/ ) {
 			my ( $verb, $text ) = ( $1, $2 );
 			my $original_verb = $verb;
-			$verb = 'Given' if $verb =~ m/($self->{langdef}->{given})/;
-			$verb = 'When' if  $verb =~ m/($self->{langdef}->{when})/;
-			$verb = 'Then' if  $verb =~ m/($self->{langdef}->{then})/;
-			$verb = $last_verb if $verb =~ m/^($self->{langdef}->{and})/ or $verb =~ m/^($self->{langdef}->{but})/;
+			$verb = 'Given' if $verb =~ m/^($self->{langdef}->{given}$)/;
+			$verb = 'When' if  $verb =~ m/^($self->{langdef}->{when}$)/;
+			$verb = 'Then' if  $verb =~ m/^($self->{langdef}->{then}$)/;
+			$verb = $last_verb if $verb =~ m/^($self->{langdef}->{and}$)/ or $verb =~ m/^($self->{langdef}->{but}$)/;
             $last_verb = $verb;
 
 			my $step = Test::BDD::Cucumber::Model::Step->new({

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