mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-27 01:44:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

stat.t, filetest.t: Actually gen rand file names

Browse Source 
This mistake of mine was stupid enough I laughed out loud.
This commit is contained in:
Father Chrysostomos 2012-01-15 11:22:34 -08:00
parent 838cf71968
commit bee528eca5
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
t/op/filetest.t
View File

@ -321,7 +321,7 @@ is runperl(prog => '-T _', switches => ['-w'], stderr => 1), "",
'no uninit warnings from -T with no preceding stat';
SKIP: {
my $rand_file_name = 'filetest-' . rand =~ y/.//cdr;
my $rand_file_name = 'filetest-' . rand =~ y/.//dr;
if (-e $rand_file_name) { skip "File $rand_file_name exists", 1 }
stat 'test.pl';
-T $rand_file_name;

2
t/op/stat.t
View File

@ -478,7 +478,7 @@ SKIP: {
# bug id 20020124.004
# If we have d_lstat, we should have symlink()
my $linkname = 'stat-' . rand =~ y/.//cdr;
my $linkname = 'stat-' . rand =~ y/.//dr;
symlink $Perl, $linkname or die "# Can't symlink $0: $!";
lstat $linkname;
-T _;