Re^6: A Perl aptitude test

[marinersk]

I am saddened to see I never got around to thanking you for this post.

As a consequence of your reply, I learned that strict was lexically scoped, as well as the syntax for how to release its iron grip, as well as the idea that one could reduce only pertinent portion of its iron grip and the synxtax thereto, resulting in this snippet which was no longer relegated to its "quarantine module":

    # If it's our last lock, release it.
    if (!$lckcnt) {
        # It's our last lock.  Release the lock token file.
        my $lckfnm = &_getLockFilename($filfnm);
        {
            # Must disable warnings and strict for this
            no warnings;
            no strict;

            close $Lckhan{$KEY_LCKHAN}{$filfnm};
        }
    }

So, as many times before, thanks for having taken the time to write this -- OMG -- ten years ago.

[BrowserUk]

I'm glad you found it useful :)

But, I still don't get your problem with using file handles stored in hash elements with close when strict and warnings are enabled?

C:\test>perl -mstrict -wE" open $f{w},'<words.txt'; print ~~readline($
+f{w}); close $f{w}"
aa

I can never work out how to use them with the angle bracket (<>) form of readline, but no problem with open or close.

[marinersk]

In my current version of Perl, I cannot reproduce the problem.

Gut says your first guess a decade ago was right -- perhaps an old version of Perl (even for then). Seems a likely culprit.