| 77 |
|
my $urlstring=shift; |
| 78 |
|
|
| 79 |
|
($fullurl,$filename)=$self->{urlhandler}->get($urlstring, @_); |
| 80 |
+ |
|
| 81 |
|
if ( ( ! defined $filename ) || ( $filename eq "" ) ) { |
| 82 |
|
$self->parseerror("Failed to get $fullurl"); |
| 83 |
|
} |
| 95 |
|
|
| 96 |
|
$self->checktag($name, $hashref, "url"); |
| 97 |
|
my $url=$self->{urlhandler}->setbase($$hashref{'url'}); |
| 98 |
+ |
# Add store for url of the file currently being parsed. This info can |
| 99 |
+ |
# then be extracted in Requirements objects |
| 100 |
+ |
$self->{configurl}=$url; |
| 101 |
|
push @{$self->{basestack}}, $url->type(); |
| 102 |
|
} |
| 103 |
|
|
