1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
package t::WriteHeader;
use warnings;
use strict;
use File::Spec ();
use IO::File 1.03 ();
our @todelete;
END { unlink @todelete; }
sub write_header($$$) {
my($basename, $outdir, $prefix) = @_;
require Devel::CallParser;
no strict "refs";
my $content = &{"Devel::CallParser::${basename}_h"}();
my $h_file = File::Spec->catfile($outdir, "${prefix}_${basename}.h");
push @todelete, $h_file;
my $fh = IO::File->new($h_file, "w") or die $!;
$fh->printflush($content) or die $!;
$fh->close or die $!;
}
1;
|
