Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Perl 5.8.8 installation issue, Cwd test hanging, solaris 2.9

by diotalevi (Canon)
on Jan 23, 2007 at 16:54 UTC ( #596124=note: print w/ replies, xml ) Need Help??


in reply to Perl 5.8.8 installation issue, Cwd test hanging, solaris 2.9

You can run tests under the debugger to step through them to find the bad bits. perl -Mblib -d t/cwd.t

⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊


Comment on Re: Perl 5.8.8 installation issue, Cwd test hanging, solaris 2.9
Download Code
Re^2: Perl 5.8.8 installation issue, Cwd test hanging, solaris 2.9
by osunderdog (Deacon) on Jan 23, 2007 at 17:04 UTC

    Actually, you can debug from the make file:

    make testdb TEST_FILE=t/cwd.t

    Hazah! I'm Employed!

Re^2: Perl 5.8.8 installation issue, Cwd test hanging, solaris 2.9
by kwaping (Priest) on Jan 23, 2007 at 20:31 UTC
    Thanks for the debugger pointer. Using it, I discovered that the problem lies on line 208 of cwd.t.
    # this is the line I removed # ($file) = grep {-f $_ and not -l $_} map File::Spec->catfile($roo +t, $_), readdir FH; # and replaced with this foreach my $x (readdir(FH)) { my $y = File::Spec->catfile($root, $x); if (-f $y && ! -l $y) { $file = $y; last; } }
    It appears there was somthing in my root directory that wasn't to the code's liking, so I just took the first successful hit of the file test operators and bailed out of the loop. I'm fairly certain I didn't compromise the accuracy of the test, but please let me know if you see a problem with what I did.

    ---
    It's all fine and dandy until someone has to look at the code.

      Perhaps you have a stale NFS mount or something unreadable on your disk.

      ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://596124]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2014-12-20 09:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (95 votes), past polls