Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: perl5db.pl 1.28: Settings deleted after error

by Anonymous Monk
on Oct 18, 2008 at 01:01 UTC ( #717880=note: print w/replies, xml ) Need Help??


in reply to perl5db.pl 1.28: Settings deleted after error

You can't use it as-is, because it uses defined-or ( $var //= 'new'; ), a perl-5.10 feature. Here's a patch to fix that
--- perl5db.pl 2007-12-18 11:38:11.000000000 -0800 +++ perl5dbFOR5.8.pl 2008-10-17 18:00:50.812500000 -0700 @@ -6025,7 +6025,7 @@ } ## end sub setterm sub load_hist { - $histfile //= option_val("HistFile", undef); + $histsize = option_val("HistFile",undef) unless defined $hintsize +;#patch-5.8 $histfile //= option_val("HistFile", undef); return unless defined $histfile; open my $fh, "<", $histfile or return; local $/ = "\n"; @@ -6043,7 +6043,7 @@ eval { require File::Basename } or return; File::Path::mkpath(File::Basename::dirname($histfile)); open my $fh, ">", $histfile or die "Could not open '$histfile': $ +!"; - $histsize //= option_val("HistSize",100); + $histsize = option_val("HistSize",100) unless defined $hintsize;# +patch-5.8 $histsize //= option_val("HistSize",100); my @copy = grep { $_ ne '?' } @hist; my $start = scalar(@copy) > $histsize ? scalar(@copy)-$histsize : + 0; for ($start .. $#copy) {

Replies are listed 'Best First'.
Re^2: perl5db.pl 1.28: Settings deleted after error
by Anonymous Monk on Oct 18, 2008 at 13:00 UTC
    Thank you

    ... wouldn't it be better to contact the author to improve the official release? Or will I get the answer that I'm supposed to install 5.10?

      perl5db ought to have a
      use 5.010000;
      statement, aside from that, you will probably get the answer to install 5.10, as perl5db is only distributed with perl.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://717880]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2021-06-14 15:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (63 votes). Check out past polls.

    Notices?