Skip to content

Commit 1b1634f

Browse files
committed
make it better fit the screen
1 parent 8d2a2b9 commit 1b1634f

1 file changed

Lines changed: 2 additions & 1 deletion

File tree

books/perl-advanced/src/examples/advanced-perl/caller_more.pl

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,8 @@ sub g {
1313

1414
sub h {
1515
for my $i (0..2) {
16-
my ($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash) = caller($i);
16+
my ($package, $filename, $line, $subroutine, $hasargs, $wantarray,
17+
$evaltext, $is_require, $hints, $bitmask, $hinthash) = caller($i);
1718
print "$i: $package $filename $line $subroutine\n";
1819
}
1920
}

0 commit comments

Comments
 (0)