use the public API rather than the literal regexp

metacpan · Apr 29, 2012 · 1824c3b · 1824c3b
1 parent 00b52f5
commit 1824c3b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Test/CPAN/Changes.pm b/lib/Test/CPAN/Changes.pm
@@ -58,7 +58,7 @@ sub changes_file_ok {
             $Test->diag( '  ERR: ' . $_->date );
             return;
         }
-        if ( $_->version !~ m{^$version::LAX$} ) {
+        if ( not version::is_lax($_->version) ) {
             $Test->ok( 0, "$file contains an invalid version number" );
             $Test->diag( '  ERR: ' . $_->version );
             return;