| … | |
… | |
| 1842 | |
1842 | |
| 1843 | $EXT_MAP{$pkg} = [$prio, qr<$regex>]; |
1843 | $EXT_MAP{$pkg} = [$prio, qr<$regex>]; |
| 1844 | } |
1844 | } |
| 1845 | |
1845 | |
| 1846 | # also paths starting with '/' |
1846 | # also paths starting with '/' |
| 1847 | $EXT_MAP{"cf::map"} = [0, qr{^(?=/)}]; |
1847 | $EXT_MAP{"cf::map::wrap"} = [0, qr{^(?=/)}]; |
| 1848 | |
1848 | |
| 1849 | sub thawer_merge { |
1849 | sub thawer_merge { |
| 1850 | my ($self, $merge) = @_; |
1850 | my ($self, $merge) = @_; |
| 1851 | |
1851 | |
| 1852 | # we have to keep some variables in memory intact |
1852 | # we have to keep some variables in memory intact |
| … | |
… | |
| 2343 | |
2343 | |
| 2344 | delete $cf::MAP{$self->path}; |
2344 | delete $cf::MAP{$self->path}; |
| 2345 | |
2345 | |
| 2346 | $self->unlink_save; |
2346 | $self->unlink_save; |
| 2347 | |
2347 | |
| 2348 | bless $self, "cf::map"; |
2348 | bless $self, "cf::map::wrap"; |
| 2349 | delete $self->{deny_reset}; |
2349 | delete $self->{deny_reset}; |
| 2350 | $self->{deny_save} = 1; |
2350 | $self->{deny_save} = 1; |
| 2351 | $self->reset_timeout (1); |
2351 | $self->reset_timeout (1); |
| 2352 | $self->path ($self->{path} = "{nuke}/" . ($nuke_counter++)); |
2352 | $self->path ($self->{path} = "{nuke}/" . ($nuke_counter++)); |
| 2353 | |
2353 | |
