diff options
Diffstat (limited to 't/TestPreproc.pm')
-rw-r--r-- | t/TestPreproc.pm | 5 |
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') { |