1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
--- libperlmenu-perl-4.0.orig/demo
+++ libperlmenu-perl-4.0/demo
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#**************************************************************************
# demo -- Simple PerlMenu demo
#
--- libperlmenu-perl-4.0.orig/demo_getstr
+++ libperlmenu-perl-4.0/demo_getstr
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#**************************************************************************
# demo_getstr -- Simple perl menu_getstr call demo
#
--- libperlmenu-perl-4.0.orig/demo_template
+++ libperlmenu-perl-4.0/demo_template
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#**************************************************************************
# demo_template -- Full-screen data entry template demo
#
--- libperlmenu-perl-4.0.orig/demo_top
+++ libperlmenu-perl-4.0/demo_top
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#*********************************************************************
# demo_top -- PerlMenu demo - Usage of "top menu" functions.
#
--- libperlmenu-perl-4.0.orig/demo_util
+++ libperlmenu-perl-4.0/demo_util
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#**************************************************************************
# demo_util -- Demonstate some utilities in menuutil.pl
#
--- libperlmenu-perl-4.0.orig/ezpasswd
+++ libperlmenu-perl-4.0/ezpasswd
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#**************************************************************************
# ezpasswd -- Full-screen data display template demo
#
--- libperlmenu-perl-4.0.orig/ezreg
+++ libperlmenu-perl-4.0/ezreg
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#***************************************************************************
# EasyReg -- PerlMenu Full-screen Registration Demo
# (a "practical" demo for menu.pl)
--- libperlmenu-perl-4.0.orig/ezview
+++ libperlmenu-perl-4.0/ezview
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#***************************************************************************
# EasyView -- Unix File Viewer/Editor Interface
# (a "practical" demo for menu.pl)
--- libperlmenu-perl-4.0.orig/install_hints.pl
+++ libperlmenu-perl-4.0/install_hints.pl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
#****************************************************************************
# install_hints.pl
#
--- libperlmenu-perl-4.0.orig/perlmenu.pm
+++ libperlmenu-perl-4.0/perlmenu.pm
@@ -379,12 +379,12 @@ sub menu_init {
# Method 1 (getcap)
# Uncomment if you have "getcap"
- $ku = &getcap('ku'); # Cursor-up
- $kd = &getcap('kd'); # Cursor-down
- $kr = &getcap('kr'); # Cursor-right
- $kl = &getcap('kl'); # Cursor-left
- $cr = &getcap('cr'); # Carriage-return
- $nl = &getcap('nl'); # New-line
+# $ku = &getcap('ku'); # Cursor-up
+# $kd = &getcap('kd'); # Cursor-down
+# $kr = &getcap('kr'); # Cursor-right
+# $kl = &getcap('kl'); # Cursor-left
+# $cr = &getcap('cr'); # Carriage-return
+# $nl = &getcap('nl'); # New-line
# Method 2 (tigetstr)
# Uncomment if you have tigetstr (Solaris) instead of "getcap"
@@ -397,14 +397,14 @@ sub menu_init {
# Method 3 (tput)
# Uncomment if you have terminfo (and tput) instead of "getcap"
-# $ku = `tput kcuu1`; # Cursor-up
-# $kd = `tput kcud1`; # Cursor-down
-# $kr = `tput kcuf1`; # Cursor-right
-# $kl = `tput kcub1`; # Cursor-left
-# $cr = `tput kent`; # Carriage-return
+ $ku = `tput kcuu1`; # Cursor-up
+ $kd = `tput kcud1`; # Cursor-down
+ $kr = `tput kcuf1`; # Cursor-right
+ $kl = `tput kcub1`; # Cursor-left
+ $cr = `tput kent`; # Carriage-return
# # HP-UX 9.05 users: try $cr = `tput cr` if
# # "tput kent" gives errors
-# $nl = `tput nel`; # New-line
+ $nl = `tput nel`; # New-line
$ansi_ku = "\033[A"; # Ansi cursor-up (for DEC xterm)
$ansi_kd = "\033[B"; # Ansi cursor-down (for DEC xterm)
@@ -1142,7 +1142,7 @@ sub menu_display_internal {
# Compute leftmost column (for left-justified or centered menus)
$left_margin = 0; # Assume left-justified menu (no centering)
if ($center_menus) {
- $left_margin = int($main'COLS/2) - int($column_width/2) * items_per_line;
+ $left_margin = int($main'COLS/2) - int($column_width/2) * $items_per_line;
}
# Clear screen and add top title and bottom prompt
|
