73 |
{ |
{ |
74 |
my $errmsg = $EVAL_ERROR; |
my $errmsg = $EVAL_ERROR; |
75 |
my ($msg, $line, $col) = $errmsg =~ m/^(.*?)\s*at line (\d+), column (\d+), byte \d+:$/m; |
my ($msg, $line, $col) = $errmsg =~ m/^(.*?)\s*at line (\d+), column (\d+), byte \d+:$/m; |
76 |
$errmsg =~ s/^\s*//; |
if ($msg) |
77 |
$errmsg =~ s/^.*$//m; |
{ |
78 |
$errmsg =~ s/^.//s; |
$errmsg =~ s/^\s*//; |
79 |
$errmsg =~ s/^.*\Z//m; |
$errmsg =~ s/^.*$//m; |
80 |
my @context = split /\n/, $errmsg; |
$errmsg =~ s/^.//s; |
81 |
|
$errmsg =~ s/^.*\Z//m; |
82 |
|
my @context = split /\n/, $errmsg; |
83 |
|
|
84 |
$col -= $offset; |
$col -= $offset; |
85 |
|
|
86 |
throw $msg, $file, $line, $col, @context; |
throw $msg, $file, $line, $col, @context; |
87 |
|
} |
88 |
|
else |
89 |
|
{ |
90 |
|
confess "$errmsg (y neb necesita mejorar su error reporting)"; |
91 |
|
} |
92 |
} |
} |
93 |
} |
} |
94 |
|
|