Missing /g in a Quoter regex

bin/pt-online-schema-change

@@ -2712,7 +2712,7 @@ sub split_unquote {
       next unless $_;
       s/\A`//;
       s/`\z//;
-      s/``/`/;
+      s/``/`/g;
    }
    
    return ($db, $tbl);

lib/Quoter.pm

@@ -102,7 +102,7 @@ sub split_unquote {
       next unless $_;
       s/\A`//;
       s/`\z//;
-      s/``/`/;
+      s/``/`/g;
    }
    
    return ($db, $tbl);

t/lib/Quoter.t

@@ -89,6 +89,21 @@ is_deeply(
    'splits with a db',
 );
 
+is_deeply(
+   [$q->split_unquote("`db`.`tb``l```")],
+   [qw(db tb`l`)],
+   'splits with a quoted db.tbl ad embedded quotes',
+);
+
+TODO: {
+   local $::TODO = "Embedded periods not yet supported";
+   is_deeply(
+      [$q->split_unquote("`d.b`.`tbl`")],
+      [qw(d.b tbl)],
+      'splits with embedded periods: `d.b`.`tbl`',
+   );
+}
+
 is( $q->literal_like('foo'), "'foo'", 'LIKE foo');
 is( $q->literal_like('foo_bar'), "'foo\\_bar'", 'LIKE foo_bar');
 is( $q->literal_like('foo%bar'), "'foo\\%bar'", 'LIKE foo%bar');