Select Code to Download

#!/usr/bin/perl -w
use strict;
...
while(readline($sym)){
    print;
}

_________________________________________________________________
[  3349] By: gsar                         on 1999/05/09  20:23:07
...
     Branch: perl
           ! pp_hot.c

    readline(${$sym})
    readline(*{$sym})
...

    readline(*{$data[$i]->{FH}})

# change this:
print $_, ' 'x($data[$i]->{w}-1-length);
...
# to this:
print $_, ' 'x($data[$i]->{w}-1-length(expand($_)));