in reply to Re^2: Perl losing, unfairly
in thread Perl losing, unfairly

Actually, I missed that in the File::Find example. In fact either the Perl test (and some others) is invalid or the shell test (and some others) is.
The shell script compiles recursively, and the Perl has a check to avoid compiling recursively. One of them violates the goal of the script

As far as the exit stuff goes, I realized that it could be written better as:
exit !-e "/etc/mtab"

[download]
I emailed the author with the exit changes (and reiterated your File::Find findings). Hopefully he will resolve them.


-pete
"Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."

Replies are listed 'Best First'.
Re^4: Perl losing, unfairly
by demerphq (Chancellor) on Jun 16, 2004 at 13:01 UTC

    As far as the exit stuff goes, I realized that it could be written better as:

    Except that will exit regardless, which I dont think is the objective. I prefer 

    -e "/etc/mtab" or die;

    [download]

    :-)


    ---
    demerphq

      First they ignore you, then they laugh at you, then they fight you, then you win.
      -- Gandhi
[reply]
[d/l]
[select]
      That's kind of the bigger problem, the author doesn't list the objectives very clearly.

      MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
      I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
      ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
      The assumption that I got from reading the rest of the examples is that the intention is to always exit. Some of the other scripts use that approach.


      -pete
      "Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."
[reply]

In Section Meditations