How to ignore an exit(1) on a perl subroutine - tried eval but didn't work

Question

I\'m trying to make a small fix on a legacy code, so I can\'t change the subroutine method (&my_subroutine). The problem is that there are some situations that the subro