From 58d9517576e61e077f66c327ee4c44c5d9bbf1a7 Mon Sep 17 00:00:00 2001
From: Radu Greab <radu@netsoft.ro>
Date: Fri, 2 Nov 2001 17:28:58 +0200
Subject: Re: [ID 20011101.069] \stat('.') gives "Attempt to free unreferenced
 scalar" Message-ID: <15330.40858.629851.468818@ix.netsoft.ro>

p4raw-id: //depot/perl@12811
---
 t/op/stat.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 't/op')

diff --git a/t/op/stat.t b/t/op/stat.t
index dc47ef3885..8d0ca19bc0 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -9,7 +9,7 @@ BEGIN {
 
 use Config;
 
-print "1..58\n";
+print "1..59\n";
 
 $Is_MSWin32 = $^O eq 'MSWin32';
 $Is_NetWare = $^O eq 'NetWare';
@@ -281,3 +281,7 @@ if (-f) {print "ok 57\n";} else {print "not ok 57\n";}
 if (-f()) {print "ok 58\n";} else {print "not ok 58\n";}
 
 unlink 'Op.stat.tmp' or print "# unlink failed: $!\n";
+
+# bug id 20011101.069
+my @r = \stat(".");
+if (@r == 13) { print "ok 59\n" } else { print "not ok 59\n" }
-- 
cgit v1.2.1