44 |
|
|
45 |
#$debug = 1; |
#$debug = 1; |
46 |
|
|
47 |
|
if ($^O eq 'msys') { |
48 |
|
$pwdcmd = 'pwd -W'; |
49 |
|
} |
50 |
|
else { |
51 |
|
$pwdcmd = 'pwd'; |
52 |
|
} |
53 |
|
|
54 |
# Determine various tree path variables |
# Determine various tree path variables |
55 |
# |
# |
56 |
($topsrcdir, $ptopsrcdir, $depth, @makefiles) = parse_arguments(@ARGV); |
($topsrcdir, $ptopsrcdir, $depth, @makefiles) = parse_arguments(@ARGV); |
57 |
|
|
58 |
$object_fullpath = `pwd`; |
$object_fullpath = `$pwdcmd`; |
59 |
chdir $depth; |
chdir $depth; |
60 |
$object_root = `pwd`; |
$object_root = `$pwdcmd`; |
61 |
chomp $object_fullpath; |
chomp $object_fullpath; |
62 |
chomp $object_root; |
chomp $object_root; |
63 |
|
|
264 |
print "ac_file_in = $ac_file_in\n"; |
print "ac_file_in = $ac_file_in\n"; |
265 |
print "srcdir = $srcdir\n"; |
print "srcdir = $srcdir\n"; |
266 |
print "top_srcdir = $top_srcdir\n"; |
print "top_srcdir = $top_srcdir\n"; |
267 |
print "cwd = " . `pwd` . "\n"; |
print "cwd = " . `$pwdcmd` . "\n"; |
268 |
} |
} |
269 |
|
|
270 |
# Copy the file and make substitutions. |
# Copy the file and make substitutions. |