backreferencing perl code

Hi all,

In the code below, the if condition generates OP_AND. Inside perl
interpreter, is there a way to know that the OP_AND was generated
by the statement "if ($a==1)".  I could not figure if it was possible to use
PL_op to backreference the actual source code.

$a = 1;
if($a == 1) {
  print "\$a == 1";
}

Any pointers would be helpful.

thanks,
Kamal

• backreferencing perl code by Kamal Khatri
• Re: backreferencing perl code by Nicholas Clark
• Re: backreferencing perl code by Kamal Khatri