Release v0.003

3 files changed, 11 insertions, 7 deletions

diff --git a/Changes b/Changes
index e1d8765..4679d69 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,10 @@
+0.003   2018-09-10 (PERLANCAR)
+
+	- Use re() to retrieve the patterns.
+
+	- [dist] Bump prereq to Regexp::Pattern 0.2.7.
+
+
 0.002   2018-09-10 (PERLANCAR)
 
 	- Fix test-regexp-pattern.
diff --git a/dist.ini b/dist.ini
index 0363dc4..4b03e90 100644
--- a/dist.ini
+++ b/dist.ini
@@ -1,4 +1,4 @@
-version=0.002
+version=0.003
 
 name=Test-Regexp-Pattern
 
@@ -18,4 +18,5 @@ Test::More=0
 [Prereqs / DevelopX_spec]
 -phase=develop
 -relationship=x_spec
-Regexp::Pattern=0.2.4
+Regexp::Pattern=0.2.7
+
diff --git a/lib/Test/Regexp/Pattern.pm b/lib/Test/Regexp/Pattern.pm
index a2ee4b5..a4e572d 100644
--- a/lib/Test/Regexp/Pattern.pm
+++ b/lib/Test/Regexp/Pattern.pm
@@ -51,15 +51,11 @@ sub _test_regexp_pattern {
                         return;
                     };
                     my %args;
-                    for (keys %$opts) {
-                        next unless /\A-/;
-                        $args{$_} = $opts->{$_};
-                    }
                     if ($eg->{gen_args}) {
                         $args{$_} = $eg->{gen_args}{$_} for keys %{$eg->{gen_args}};
                     }
 
-                    my $pat = re($fqname, \%args);
+                    my $pat = re($fqname, %args);
                     my $actual_match = $eg->{str} =~ $pat ? 1:0;
                     if (ref $eg->{matches} eq 'ARRAY') {
                         my $len = @{ $eg->{matches} };