WebSVN – DevTools – Diff – /core_devl/branches/dpurdie_devl/TOOLS/common.pl

     my (@fileList) = @_;
     Verbose2 ("ToolsetFile:", @fileList);
     Error ("Internal: ToolsetFile. ScmRoot or ScmInterface not defined")
         unless ( defined $::ScmRoot && defined $::ScmInterface );
-    my $dataFile = "$::ScmRoot/$::ScmInterface/GbeFiles.cfg";
+    my $dataDir = "$::ScmRoot/$::ScmInterface";
+    my $dataFile = "$dataDir/GbeFiles.cfg";
     Error ("Internal: ToolsetFile. Cwd not defined")
         unless ( defined $::Cwd );
         $GBE_TOOLSETFiles{Root} = AbsPath($::ScmRoot)
             unless defined $GBE_TOOLSETFiles{Root};
+    }
+    #
-    #   Add files
+    # Save to disk if
+    #   Target directory exists - creation may be delayed
-    #       Need to be full paths
+    #   We have added entries
+    #
+    if ( @fileList )
+    {
+        #
+        #   Add files
+        #       Need to be full paths
+        #
-    $GBE_TOOLSETFiles{Files}{RelPath(AbsPath($_), $GBE_TOOLSETFiles{Root} )} = 1 foreach ( @fileList );
+        $GBE_TOOLSETFiles{Files}{RelPath(AbsPath($_), $GBE_TOOLSETFiles{Root} )} = 1 foreach ( @fileList );
-    #
+        #
-    #   Save file
+        #   Save file
-    #   Simply rewrite the file
+        #   Simply rewrite the file - if the terget directory exists
+        #   Its creation may be after we have started accumulating files
-    #
+        #
-    my $fh = ConfigurationFile::New( $dataFile );
+        if ( -d $dataDir  ) {
-    $fh->Header( "ToolsetFile",
+            my $fh = ConfigurationFile::New( $dataFile );
-                              "Toolset Files" );
+            $fh->Header( "ToolsetFile", "Toolset Files" );
-    $fh->Dump( [\%GBE_TOOLSETFiles], [qw(*GBE_TOOLSETFiles)] );
+            $fh->Dump( [\%GBE_TOOLSETFiles], [qw(*GBE_TOOLSETFiles)] );
-    $fh->Close();
+            $fh->Close();
+        }
+    }
+}
 ;  #success

Subversion Repositories DevTools

(root)/core_devl/branches/dpurdie_devl/TOOLS/common.pl – Rev 3965 → 4001