Changeset 37832 in webkit for trunk/JavaScriptCore/pcre/dftables

Timestamp:

Oct 23, 2008, 4:58:28 PM (17 years ago)

Author:

[email protected]

Message:

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.

File:

• trunk/JavaScriptCore/pcre/dftables (modified) (2 diffs)

trunk/JavaScriptCore/pcre/dftables

@@ -47 +47 @@
 use File::Basename;
 use File::Spec;
-use File::Temp;
+use File::Temp qw(tempfile);
 use Getopt::Long;
 
@@ -243 +243 @@
     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";