On Sat, 12 Mar 2005 21:54:23 -0500, DBSMITH wrote:
> All,
> Please audit my code as I cannot figure out the correct method to pass by
> ref into my logroll subroutine.
> 
> Here is the error I am getting :
> 
> 
> Uncaught exception from user code:
>         error: can not lock open: ($_) at

I haven't looked at the rest, but this one is due to putting $_ in single
quotes:

>                         sub logroll {
>                                 my $logs = new Logfile::Rotate
>                                                 (File => '$_',
>       ###- - - ### possible coding error
>                                                 Count => 10,
>                                                 Gzip => '/usr/bin/gzip',
>                                                 Dir  =>
> '/usr/local/log/old',
>                                                 Flock => 'yes',
>                                                 Persist => 'yes' );
>                                 $logs->rotate($_);

-- 
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to