46 |
|
$inc=$self->{includesdesc}[$i]; |
47 |
|
$startline=$inc->startline(); |
48 |
|
last if ( $line <= $startline ); |
49 |
< |
if ( $line >= ($inc->lines()+$startline+2) ) { |
49 |
> |
if ( $line >= ($inc->lines()+$startline+2) ) { |
50 |
> |
# take out the 2 carriage returns added |
51 |
|
$line=$line-($inc->lines()+$startline-$inc->endline())-2; |
52 |
|
#+($inc->endline()-$startline); |
53 |
|
# n lines in original map to m lines in expanded |
74 |
|
my $self=shift; |
75 |
|
|
76 |
|
if ( @_ ) { |
77 |
< |
my $url=shift; |
78 |
< |
($self->{url}, $file)=$self->{urlhandler}->get($url); |
79 |
< |
} |
80 |
< |
else { |
81 |
< |
$self->{url}; |
82 |
< |
} |
77 |
> |
my $url=shift; |
78 |
> |
($self->{url}, $file)=$self->{urlhandler}->get($url); |
79 |
> |
} |
80 |
> |
else { |
81 |
> |
$self->{url}; |
82 |
> |
} |
83 |
|
} |
84 |
|
|
85 |
|
sub ProcessedFile { |
94 |
|
return $file; |
95 |
|
} |
96 |
|
|
97 |
+ |
sub ProcessFile { |
98 |
+ |
my $self=shift; |
99 |
+ |
return $self->file(); |
100 |
+ |
} |
101 |
|
|
102 |
|
sub update { |
103 |
|
my $self=shift; |