/[papo]/papo/neb/neb.pm
ViewVC logotype

Diff of /papo/neb/neb.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by mhepp, Fri Apr 25 18:34:30 2003 UTC revision 1.8 by jlenton, Tue Apr 29 21:20:04 2003 UTC
# Line 73  sub parse Line 73  sub parse
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    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26