Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
} else {
   print "Not equal\n";
}

Select or download this

SV = PV(0x22608c) at 0x225f9c
  REFCNT = 1
...
Does not match                                        <-- WTF?
Does not match                                        <-- WTF?
Equal                                                 <-- That's good