DBI 1.15 test warning (with patch)

[David Dyck]

On Fri, 30 Mar 2001, Tim Bunce wrote:

> It gives me great pleasure to announce the arrival of DBI 1.15:

When I installed this, I got the following warning during make test:

t/examp.............ok 103/122The stat preceding lstat() wasn't an lstat
at blib/lib/DBD/ExampleP.pm line 130.

Here's a proposed patch

--- lib/DBD/ExampleP.pm.orig    Fri May 11 11:47:59 2001
+++ lib/DBD/ExampleP.pm Fri May 11 11:50:09 2001
@@ -126,8 +126,8 @@
                or return $dbh->DBI::set_err(int($!),
                                        "Failed to open directory $dir: $!");
            while (defined(my $file = readdir($dh))) {
-               next unless -d $file;
-               my($dev, $ino, $mode, $nlink, $uid) = lstat(_);
+               my($dev, $ino, $mode, $nlink, $uid) = lstat($file);
+               next unless -d _;
                my $pwnam = undef; # eval { scalar(getpwnam($uid)) } || $uid;
                push(@list, [ $dir, $pwnam, $file, 'TABLE']);
            }