Ignore ordinal suffixes on numbers (bug #15210)

diff --git a/ext/standard/parsedate.y b/ext/standard/parsedate.y
index 84ee81356cb786239b80ea1eab92f5e327d2c0f7..7112b611b76cf83af2ad26d9c8950442ec167e07 100644 (file)
--- a/ext/standard/parsedate.y
+++ b/ext/standard/parsedate.y
@@ -862,6 +862,16 @@ yylex ()
          yyInput--;
          if (sign < 0)
            yylval.Number = -yylval.Number;
+         /* Ignore ordinal suffixes on numbers */
+         c = *yyInput;
+         if (c == 's' || c == 'n' || c == 'r' || c == 't') {
+           c = *++yyInput;
+           if (c == 't' || c == 'd' || c == 'h') {
+             yyInput++;
+           } else {
+             yyInput--;
+           }
+         }
          return sign ? tSNUMBER : tUNUMBER;
        }
       if (ISALPHA (c))