ChangeLogTag: Mon May 12 07:39:29 2003 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 28 insertions, 4 deletions

diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm
index 3ef0a66d..3657771c 100644
--- a/modules/ProjectCreator.pm
+++ b/modules/ProjectCreator.pm
@@ -13,6 +13,7 @@ package ProjectCreator;
 use strict;
 use FileHandle;
 use File::Path;
+use File::Compare;
 use File::Basename;
 
 use Creator;
@@ -1743,19 +1744,42 @@ sub write_output_file {
             mkpath($dir, 0, 0777);
           }
 
-          if (open($fh, ">$name")) {
+          ## First write the output to a temporary file
+          my($tmp) = "MPC$>.$$";
+          my($different) = 1;
+          if (open($fh, ">$tmp")) {
             my($lines) = $tp->get_lines();
             foreach my $line (@$lines) {
               print $fh $line;
             }
             close($fh);
-
-            $self->add_file_written($name);
+            if (compare($tmp, $name) == 0) {
+              $different = 0;
+            }
           }
           else {
-            $error = "ERROR: Unable to open $name for output.";
+            $error = "ERROR: Unable to open $tmp for output.";
             $status = 0;
           }
+
+          if ($status) {
+            ## If they are different, then rename the temporary file
+            if ($different) {
+              unlink($name);
+              if (rename($tmp, $name)) {
+                $self->add_file_written($name);
+              }
+              else {
+                $error = "ERROR: Unable to open $name for output.";
+                $status = 0;
+              }
+            }
+            else {
+              ## We will pretend that we wrote the file
+              unlink($tmp);
+              $self->add_file_written($name);
+            }
+          }
         }
       }
     }