зеркало из https://github.com/mozilla/gecko-dev.git
stat fix for perl 5.6 from "John Turner" <jdturner@nc.rr.com>
This commit is contained in:
Родитель
dafd1075c8
Коммит
55fe69eae0
|
@ -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 = $<;
|
||||
|
||||
|
|
Загрузка…
Ссылка в новой задаче