Eval changes the behaviour of shift() ?

[Orton, Yves]

I don't know if this is a bug or not, it seems sorta reasonable although
entirely _not_ dwim:

  C:\>perl -e "sub X { print eval 'shift' } X(1)" A
  A

Is this correct? I would have expected it to print out '1' and not 'A'.

Yves