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

This mistake of mine was stupid enough I laughed out loud.

diff --git a/t/op/filetest.t b/t/op/filetest.t
index cdd76cc..c47a857 100644 (file)
--- a/t/op/filetest.t
+++ b/t/op/filetest.t
@@ -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;

diff --git a/t/op/stat.t b/t/op/stat.t
index 59c7398..db31487 100644 (file)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -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 _;