summaryrefslogtreecommitdiff
path: root/t/TestPreproc.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/TestPreproc.pm')
-rw-r--r--t/TestPreproc.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/t/TestPreproc.pm b/t/TestPreproc.pm
index d4d8a58..d8e518c 100644
--- a/t/TestPreproc.pm
+++ b/t/TestPreproc.pm
@@ -48,8 +48,6 @@ sub new {
$fd = undef;
} elsif ($fd) {
s/\$server_root/$dir/;
- s/{{(.+)}}
- /File::Spec->catfile(split m{\/}, $1)/gex;
print $fd $_;
}
}
@@ -79,8 +77,11 @@ sub dump_reformat_synclines {
sub dump_reformat_synclines_worker {
my ($tree, $dir) = @_;
+ my $sep = qr(File::Spec->catfile('',''));
+
join('', map {
(my $l = $_->locus->format) =~ s{$dir/}{}g;
+ $l =~ s{$sep}{/}g;
"# $l\n" .
do {
if ($_->type eq 'section') {

Return to:

Send suggestions and report system problems to the System administrator.