Select Code to Download

(gdb) where
#0  0xff082ce0 in clean_store_context ()
...
#7  0x23734 in perl_run (sv_interp=0x13c00c) at perl.c:1095
#8  0x1f230 in main (argc=2, argv=0xffbefd0c, env=0xffbefd18) at perlm
+ain.c:51
(gdb)

sub read
{
...
        }
        return $hash;
}