summaryrefslogtreecommitdiff
path: root/modules/VC7WorkspaceCreator.pm
diff options
context:
space:
mode:
authorelliott_c <ocielliottc@users.noreply.github.com>2005-01-18 13:36:35 +0000
committerelliott_c <ocielliottc@users.noreply.github.com>2005-01-18 13:36:35 +0000
commiteab9ad69b8f11798302faef60441081e0a6f89e5 (patch)
tree3ca4dacefe4fa3d93b5fb79a5a17136e80b8b953 /modules/VC7WorkspaceCreator.pm
parent73660911a5de8029b697e190a2b984fe0581a8d1 (diff)
downloadMPC-eab9ad69b8f11798302faef60441081e0a6f89e5.tar.gz
ChangeLogTag: Tue Jan 18 07:34:32 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/VC7WorkspaceCreator.pm')
-rw-r--r--modules/VC7WorkspaceCreator.pm21
1 files changed, 11 insertions, 10 deletions
diff --git a/modules/VC7WorkspaceCreator.pm b/modules/VC7WorkspaceCreator.pm
index cdadb75a..74f05a44 100644
--- a/modules/VC7WorkspaceCreator.pm
+++ b/modules/VC7WorkspaceCreator.pm
@@ -202,15 +202,16 @@ sub write_comps {
sub add_references {
- my($self) = shift;
- my($proj) = shift;
- my($pguid) = shift;
- my($deps) = shift;
- my($gmap) = shift;
- my($crlf) = $self->crlf();
- my($fh) = new FileHandle();
-
- if (open($fh, $proj)) {
+ my($self) = shift;
+ my($proj) = shift;
+ my($pguid) = shift;
+ my($deps) = shift;
+ my($gmap) = shift;
+ my($crlf) = $self->crlf();
+ my($fh) = new FileHandle();
+ my($outdir) = $self->get_outdir();
+
+ if (open($fh, "$outdir/$proj")) {
my($write) = 0;
my(@read) = ();
while(<$fh>) {
@@ -231,7 +232,7 @@ sub add_references {
}
close($fh);
- if ($write && open($fh, ">$proj")) {
+ if ($write && open($fh, ">$outdir/$proj")) {
foreach my $line (@read) {
print $fh $line;
}