Finding intersection of two curves using mesh functions

Question

I have the following code which finds intersection of two curves using mesh functions:

y[x_] := x^2
z[x_] := 1
P1 = Plot[y[x], {x, 0, 2}];
P2 = Plot[z[x], {x, 0, 2}];
Test = Show[P1, P2]
Graphics`Mesh`FindIntersections[Test // DiscretizeGraphics, 
 Graphics`Mesh`AllPoints -> False]

This works well in all versions of Mathematica including Mathematica 13.3. But if I modify the code a little bit like this:

y[x_] := x^2
z[x_] := 1
P1 = Plot[y[x], {x, 0, 2}];
P2 = Graphics[{InfiniteLine[{{0, 1}, {2, 1}}]}];
Test = Show[P1, P2]
Graphics`Mesh`FindIntersections[Test // DiscretizeGraphics, 
 Graphics`Mesh`AllPoints -> False]

It works well on all Mathematica versions except Mathematica 13.3. Is this a bug in the latest version?

Answer 1

This maybe works like before:

Block[{Annotation = # &},
 Graphics`Mesh`FindIntersections[Test // DiscretizeGraphics, 
  Graphics`Mesh`AllPoints -> False]
 ]

(* {{0.999811, 1.}} *)

Darned annotations.

My guess is that it's DiscretizeGraphics that behaves different, but prior behavior not given in OP.