mkpath(dirname($path),0,0755);
open(OUT, ">$path") or die("Can't open $path: $!");
- foreach (keys %$dirs) {
- print OUT "$_=" . $dirs->{$_} . "\n";
+ foreach (@$dirs) {
+ print OUT "$_\n";
}
if ($hasmodules) {
print OUT "modulesdir=$self->{config}->{modulesdir}/$name\n" ;
defined($ctx->{INIT_FUNCTIONS}),
$pubs,
$privs,
- {
- "prefix" => $self->{config}->{prefix},
- "exec_prefix" => $self->{config}->{exec_prefix},
- "libdir" => $self->{config}->{libdir},
- "includedir" => $self->{config}->{includedir}
- }
+ [
+ "prefix=$self->{config}->{prefix}",
+ "exec_prefix=$self->{config}->{exec_prefix}",
+ "libdir=$self->{config}->{libdir}",
+ "includedir=$self->{config}->{includedir}"
+ ]
);
smb_build::env::PkgConfig($self,
"bin/pkgconfig/$link_name-uninstalled.pc",
defined($ctx->{INIT_FUNCTIONS}),
$pubs,
$privs,
- {
- "prefix" => "bin/",
- "includedir" => "$ctx->{BASEDIR}"
- }
+ [
+ "prefix=bin/",
+ "includedir=$ctx->{BASEDIR}"
+ ]
);
}