On Wed, May 08, 2013 at 06:49:48PM +0200, Luca Ferrari wrote: > Hello, Hello,
> I'm encountering a problem with File::Util that I'm not able to
> see, and I'm sure it's trivial:
>
> my $handle_file = new File::Util;
> my $files_for = {};
> my $max_file_size = int( 1024 * 1024 * 1024 );
> $handle_file->readlimit( $max_file_size );
>
> that once run produces the following trace:
>
> PROCESS TERMINATED DUE TO ERRORS
*snip*
> Any idea about what I'm missing?
Looks like a module bug to me.
A freshly installed File/Util.pm said:
> sub readlimit {
> my $arg = _myargs( @_ );
>
> if ( defined $arg ) {
>
> return File::Util->new()->_throw
> (
> 'bad readlimit' => { bad => $arg }
> ) if $arg !~ /\D/o;
>
> $READLIMIT = $arg;
> }
>
> return $READLIMIT;
> }
Looks like it raises an exception if the argument doesn't match a
NON-"digit" character. Which seems like the opposite of what is
wanted.
Regards,
--
Brandon McCaig <bamcc...@gmail.com> <bamcc...@castopulence.org>
Castopulence Software <https://www.castopulence.org/>
Blog <http://www.bamccaig.com/>
perl -E '$_=q{V zrna gur orfg jvgu jung V fnl. }.
q{Vg qbrfa'\''g nyjnlf fbhaq gung jnl.};
tr/A-Ma-mN-Zn-z/N-Zn-zA-Ma-m/;say'
signature.asc
Description: Digital signature
