diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2005-01-18 13:36:35 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2005-01-18 13:36:35 +0000 |
commit | eab9ad69b8f11798302faef60441081e0a6f89e5 (patch) | |
tree | 3ca4dacefe4fa3d93b5fb79a5a17136e80b8b953 /modules/VC7WorkspaceCreator.pm | |
parent | 73660911a5de8029b697e190a2b984fe0581a8d1 (diff) | |
download | MPC-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.pm | 21 |
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; } |