stat fix for perl 5.6 from "John Turner" <jdturner@nc.rr.com>

webtools/tinderbox2/src/lib/Utils.pm

@@ -3,8 +3,8 @@
 # Utils.pm - General purpose utility functions.  Every project needs a
 # kludge bucket for common access.
 
-# $Revision: 1.10 $ 
-# $Date: 2001/01/04 16:40:22 $ 
+# $Revision: 1.11 $ 
+# $Date: 2001/01/05 17:30:35 $ 
 # $Author: kestes%staff.mail.com $ 
 # $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/lib/Utils.pm,v $ 
 # $Name:  $ 
@@ -61,10 +61,14 @@ sub security_check_data_dir {
     die("Security Error. dir: $dir is a symbolic link\n");
   
   mkdir_R($dir);
-  
+
+  # Must use 'CORE::stat' as some versions of perl have a 'stat' which
+  # gives an object and others return a list.
+  # (stat fix for perl 5.6 from "John Turner" <jdturner@nc.rr.com>)
+
   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
    $atime,$mtime,$ctime,$blksize,$blocks) =
-     stat ($dir);
+     CORE::stat($dir);
 
   my $tinderbox_uid = $<;