Recognise underscores in version markers

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index db8b807..59f9b83 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -2277,7 +2277,7 @@ sub _parse_generated_file {
             my $mark_md5 = $2;
 
             # Pull out the version and timestamp from the line above
-            ($ver, $ts) = $gen =~ m/^# Created by DBIx::Class::Schema::Loader( v[\d.]+)?( @ [\d-]+ [\d:]+)?\r?\Z/m;
+            ($ver, $ts) = $gen =~ m/^# Created by DBIx::Class::Schema::Loader( v[\d._]+)?( @ [\d-]+ [\d:]+)?\r?\Z/m;
             $ver =~ s/^ v// if $ver;
             $ts =~ s/^ @ // if $ts;
 

diff --git a/t/23dumpmore.t b/t/23dumpmore.t
index 82c731d..dd0ec93 100644 (file)
--- a/t/23dumpmore.t
+++ b/t/23dumpmore.t
@@ -620,7 +620,7 @@ $t->dump_test(
     },
     regexes => {
         Foo => [
-            qr/^\# Created by DBIx::Class::Schema::Loader v[\d.]+$/m,
+            qr/^\# Created by DBIx::Class::Schema::Loader v[\d._]+$/m,
         ],
     },
 );