|
Lines 190-200
Link Here
|
| 190 |
exit(1); |
190 |
exit(1); |
| 191 |
} |
191 |
} |
| 192 |
|
192 |
|
| 193 |
if ($debug == 2) { |
193 |
if ($debug == 2) { |
| 194 |
require('dumpvar.pl'); |
194 |
require('dumpvar.pl'); |
| 195 |
local($#) = '%.6g'; |
195 |
## Perl 5.10.1 says $# is no longer supported |
|
|
196 |
## local($#) = '%.6g'; |
| 196 |
&dumpvar('main', |
197 |
&dumpvar('main', |
| 197 |
'width', 'height', 'lmargin', 'smargin', 'font_size', |
198 |
'width', 'height', 'lmargin', 'smargin', 'font_size', |
| 198 |
'sheet_height', 'sheet_width', 'char_width', 'skip_column', |
199 |
'sheet_height', 'sheet_width', 'char_width', 'skip_column', |
| 199 |
'header', 'page_width', 'page_height', 'header_size', |
200 |
'header', 'page_width', 'page_height', 'header_size', |
| 200 |
'linesperpage', 'columnsperline'); |
201 |
'linesperpage', 'columnsperline'); |