| Subject: | Bug in 1.019 |
| Date: | Tue, 23 Aug 2011 14:53:36 +0200 |
| To: | bug-App-JobLog [...] rt.cpan.org |
| From: | Łukasz Siemiradzki <lukasz.siemiradzki [...] gmail.com> |
Hello,
thanks for the App::JobLog it's a nice tool.
I think I found a bug:
~$ perl -v
This is perl 5, version 14, subversion 1 (v5.14.1) built for i686-linux
~$ job
Scalar found where operator expected at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 30, near "'--'$p"
(Missing operator before $p?)
Bareword found where operator expected at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 33, near ") ::"
(Missing operator before ::?)
String found where operator expected at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 33, near ":: 'IO::File'"
(Missing operator before 'IO::File'?)
syntax error at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 30, near "'--'$p"
syntax error at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 33, near ") :: "
Global symbol "$io" requires explicit package name at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 34.
Global symbol "$io" requires explicit package name at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 40.
Missing right curly or square bracket at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 152, at end of line
syntax error at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/App/JobLog/Command/truncate.pm
line 152, at EOF
Compilation failed in require at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Class/Load.pm
line 200.
at /home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/bin/job line 10
it seems, following patch applied to truncate.pm may fix the problem:
30c30
< my $base = 'log-' . $e->ymd . '--' . $p->ymd;
---
Show quoted text
> my $base = 'log-' . $e->ymd . '--'$p->ymd;
33c33
< ? _pick_compression( $opt->compression ) : 'IO::File';
---
Show quoted text> ? _pick_compression( $opt->compression ) :: 'IO::File';
109,110c109,110
< }
< }
---
Show quoted text> }
>
Anyway, even after aplying it for some of the commands Term::ReadKey is needed
$ job when
you will be finished at 7:22:55 PM
$ job today
Can't locate Term/ReadKey.pm in @INC (@INC contains:
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/i686-linux
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/i686-linux
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1 .) at
/home/lsiemira/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/autouse.pm
line 53.
Could you please let me know whether patch is correct and whether
there is a possibility to force App::JobLog to ensure that
Term::ReadKey is installed as a dependency.
Best regards / Pozdrawiam
Łukasz Siemiradzki
--
"Omnes homines natura scire desiderant"
Aristotelis