In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/91dca83e9396e920f65b4f093ac7f6e5250a2f43?hp=26d58bfed57736ec1e1f1dfd579484f8b6fcccd7>
- Log ----------------------------------------------------------------- commit 91dca83e9396e920f65b4f093ac7f6e5250a2f43 Author: François Perrad <[email protected]> Date: Sun Oct 9 16:13:21 2016 -0400 Provide a template for call to File::Temp::tempfile(). tempfile() with template gives a file in the current directory. tempfile() without template gives a file in /tmp. These may be on different kinds of filesystems (in the instant case, the former was on ext2, the latter on ext4) with different characteristics with respect to high-resolution timing. Originally reported at: https://rt.cpan.org/Public/Bug/Display.html?id=116127#txn-1674171 ----------------------------------------------------------------------- Summary of changes: dist/Time-HiRes/t/utime.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dist/Time-HiRes/t/utime.t b/dist/Time-HiRes/t/utime.t index 795252e..e64f99b 100644 --- a/dist/Time-HiRes/t/utime.t +++ b/dist/Time-HiRes/t/utime.t @@ -21,7 +21,7 @@ BEGIN { # is available in other operating systems, # but then we need other methods for detecting # the filesystem type of the tempfiles. - my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1); + my ($fh, $fn) = File::Temp::tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1); sub getfstype { my ($fn) = @_; my $cmd = "df $fn"; -- Perl5 Master Repository
