| Subject: | STDOUT must be passed as GLOBREF and not String-Scalar |
Term::Menu::Hierarchical does not work with latest perl and latest Term::Readkey, cause STDOUT must now be passed as GLOBREF and cannot be passed as String-SCALAR
Working patch:
--- /usr/local/share/perl/5.24.1/Term/Menu/Hierarchical.pm.new 2018-05-08 15:21:54.262679128 +0200
+++ /usr/local/share/perl/5.24.1/Term/Menu/Hierarchical.pm 2018-05-08 15:22:52.067640801 +0200
@@ -29,11 +29,11 @@
die "The argument must be a hashref (arbitrary depth); exiting.\n"
unless ref($all) eq 'HASH';
{
# Refresh size info to catch term resize events
- ($max_width, $max_height) = GetTerminalSize "STDOUT";
+ ($max_width, $max_height) = GetTerminalSize \*STDOUT;
$t->Tputs("cl", 1, *STDOUT);
if (ref($data->{content}) eq 'HASH'){
$data = _display($data);
}
else {