1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
use PerlIO::via::dynamic;
# $Filename$
our $unused_destroyed;
my $fname = $0;
sub run_test {
my $o = bless {}, 'Unused';
my $p = PerlIO::via::dynamic->new
(untranslate =>
sub { $o->{fnord}++;
$_[1] =~ s/\$Filename[:\w\s\-\.\/\\]*\$/"\$Filename: $fname\$"/e},
translate =>
sub { $_[1] =~ s/\$Filename[:\w\s\-\.\/\\]*\$/\$Filename\$/});
open my $fh, '<', $fname;
$p->via ($fh);
local $/;
my $text = <$fh>;
ok (1) if $text =~ m/^# \$Filename: $0\$/m;
}
run_test ();
ok ($unused_destroyed);
run_test ();
package Unused;
sub DESTROY {
$main::unused_destroyed = 1;
}
|
