Select Code to Download

Undefined subroutine &readline::rl_basic_commands called at...

if (exists &readline::rl_basic_commands){&readline::rl_basic_commands(
+keys %cmds);}

#!perl
use strict;
...
   if (exists &readline::rl_basic_commands){print "IN CONTINUE EXISTS\
+n"; &readline::rl_basic_commands(keys %cmds);}
}