Fix $$ variable usage in stat.t
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Thu, 16 Nov 2017 16:08:43 +0000 (16:08 +0000)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Thu, 16 Nov 2017 16:08:43 +0000 (16:08 +0000)
"$$_TEST" gets parsed as "${$_TEST}", which evaluates to the empty
string, because this test uses neither strict nor warnings.

t/op/stat.t

index 2c93ac0..9e4def5 100644 (file)
@@ -629,7 +629,7 @@ SKIP:
 # [perl #131895] stat() doesn't fail on filenames containing \0 / NUL
 ok !stat("TEST\0-"), 'stat on filename with \0';
 SKIP: {
-    my $link = "stat_t_$$_TEST.symlink";
+    my $link = "stat_t_$$\_TEST.symlink";
     my $can_symlink = eval { symlink "TEST", $link };
     skip "cannot symlink", 1 unless $can_symlink;
     ok !lstat("$link\0-"), 'lstat on filename with \0';