add resource_file helper to generate sigar.rc

This commit is contained in:
Doug MacEachern 2010-05-28 08:23:08 -07:00
parent 3598952e93
commit 642df76807
1 changed files with 6 additions and 1 deletions

View File

@ -28,7 +28,7 @@ use POSIX ();
use vars qw(@ISA @EXPORT); use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter); @ISA = qw(Exporter);
@EXPORT = qw(cppflags ldflags libs os src inline_src version_file); @EXPORT = qw(cppflags ldflags libs os src inline_src version_file resource_file);
sub archname { sub archname {
my $os = lc $^O; my $os = lc $^O;
@ -261,6 +261,11 @@ sub version_properties {
return $props; return $props;
} }
sub resource_file {
my(@args) = @_ ? @_ : @ARGV;
version_file(find_file("src/os/win32/sigar.rc.in"), "sigar.rc", @args);
}
sub version_file { sub version_file {
local $_; local $_;
my($source, $dest, %filters); my($source, $dest, %filters);