Commit 634df153 authored by ddkilzer@apple.com's avatar ddkilzer@apple.com
Browse files

Bug 21832: Fix scripts using 'new File::Temp' for Perl 5.10

JavaScriptCore:

        Bug 21832: Fix scripts using 'new File::Temp' for Perl 5.10

        <https://bugs.webkit.org/show_bug.cgi?id=21832>

        Reviewed by Sam Weinig.

        * pcre/dftables: Use imported tempfile() from File::Temp instead of
        'new File::Temp' to make the script work with Perl 5.10.

WebKitTools:

        Bug 21832: Fix scripts using 'new File::Temp' for Perl 5.10

        <https://bugs.webkit.org/show_bug.cgi?id=21832>

        Reviewed by Sam Weinig.

        * Scripts/bisect-builds: Use imported tempfile() from File::Temp
        instead of 'new File::Temp' to make the script work with Perl 5.10.
        * Scripts/sort-Xcode-project-file: Ditto.

git-svn-id: http://svn.webkit.org/repository/webkit/trunk@37832 268f45cc-cd09-0410-ab3c-d52691b4dbfc
parent e9642656
2008-10-23 David Kilzer <ddkilzer@apple.com>
Bug 21832: Fix scripts using 'new File::Temp' for Perl 5.10
<https://bugs.webkit.org/show_bug.cgi?id=21832>
Reviewed by Sam Weinig.
* pcre/dftables: Use imported tempfile() from File::Temp instead of
'new File::Temp' to make the script work with Perl 5.10.
2008-10-23 Gavin Barraclough <barraclough@apple.com>
Reviewed by Oliver Hunt.
......
......@@ -46,7 +46,7 @@ use strict;
use File::Basename;
use File::Spec;
use File::Temp;
use File::Temp qw(tempfile);
use Getopt::Long;
sub readHeaderValues();
......@@ -242,13 +242,12 @@ sub readHeaderValues()
my $headerPath = File::Spec->catfile(dirname($0), "pcre_internal.h");
my $fh = new File::Temp(
my ($fh, $tempFile) = tempfile(
basename($0) . "-XXXXXXXX",
DIR => ($ENV{'TMPDIR'} || "/tmp"),
SUFFIX => ".in",
TEMPLATE => basename($0) . "-XXXXXXXX",
UNLINK => 0,
);
my $tempFile = $fh->filename();
print $fh "#define DFTABLES\n\n";
......
2008-10-23 David Kilzer <ddkilzer@apple.com>
Bug 21832: Fix scripts using 'new File::Temp' for Perl 5.10
<https://bugs.webkit.org/show_bug.cgi?id=21832>
Reviewed by Sam Weinig.
* Scripts/bisect-builds: Use imported tempfile() from File::Temp
instead of 'new File::Temp' to make the script work with Perl 5.10.
* Scripts/sort-Xcode-project-file: Ditto.
2008-10-22 Brady Eidson <beidson@apple.com>
 
Reviewed by Adam Roben
......
......@@ -42,7 +42,7 @@ use strict;
use File::Basename;
use File::Path;
use File::Spec;
use File::Temp;
use File::Temp qw(tempfile);
use Getopt::Long;
use Time::HiRes qw(usleep);
......@@ -204,13 +204,12 @@ sub createTempFile($)
return undef if !$url;
my $fh = new File::Temp(
my ($fh, $tempFile) = tempfile(
basename($0) . "-XXXXXXXX",
DIR => ($ENV{'TMPDIR'} || "/tmp"),
SUFFIX => ".html",
TEMPLATE => basename($0) . "-XXXXXXXX",
UNLINK => 0,
);
my $tempFile = $fh->filename();
print $fh "<meta http-equiv=\"refresh\" content=\"0; $url\">\n";
close($fh);
......
......@@ -31,7 +31,7 @@
use strict;
use File::Basename;
use File::Temp;
use File::Temp qw(tempfile);
use Getopt::Long;
sub sortByFileName($$);
......@@ -64,12 +64,11 @@ for my $projectFile (@ARGV) {
next;
}
my $OUT = new File::Temp(
my ($OUT, $tempFileName) = tempfile(
basename($projectFile) . "-XXXXXXXX",
DIR => dirname($projectFile),
TEMPLATE => basename($projectFile) . "-XXXXXXXX",
UNLINK => 0,
);
my $tempFileName = $OUT->filename();
# Clean up temp file in case of die()
$SIG{__DIE__} = sub {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment