Changeset 37832 in webkit for trunk/JavaScriptCore


Ignore:
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.
Location:
trunk/JavaScriptCore
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/JavaScriptCore/ChangeLog

    r37831 r37832  
     12008-10-23  David Kilzer  <[email protected]>
     2
     3        Bug 21832: Fix scripts using 'new File::Temp' for Perl 5.10
     4
     5        <https://bugs.webkit.org/show_bug.cgi?id=21832>
     6
     7        Reviewed by Sam Weinig.
     8
     9        * pcre/dftables: Use imported tempfile() from File::Temp instead of
     10        'new File::Temp' to make the script work with Perl 5.10.
     11
    1122008-10-23  Gavin Barraclough  <[email protected]>
    213
  • trunk/JavaScriptCore/pcre/dftables

    r34767 r37832  
    4747use File::Basename;
    4848use File::Spec;
    49 use File::Temp;
     49use File::Temp qw(tempfile);
    5050use Getopt::Long;
    5151
     
    243243    my $headerPath = File::Spec->catfile(dirname($0), "pcre_internal.h");
    244244 
    245     my $fh = new File::Temp(
     245    my ($fh, $tempFile) = tempfile(
     246        basename($0) . "-XXXXXXXX",
    246247        DIR => ($ENV{'TMPDIR'} || "/tmp"),
    247248        SUFFIX => ".in",
    248         TEMPLATE => basename($0) . "-XXXXXXXX",
    249249        UNLINK => 0,
    250250    );
    251     my $tempFile = $fh->filename();
    252251
    253252    print $fh "#define DFTABLES\n\n";
Note: See TracChangeset for help on using the changeset viewer.