--- a2ps-j.orig	2009-06-21 09:48:59.000000000 +0900
+++ a2ps-j	2010-05-06 14:50:03.000000000 +0900
@@ -190,11 +190,12 @@
     exit(1);
 }
 
 if ($debug == 2) {
     require('dumpvar.pl');
-    local($#) = '%.6g';
+##  Perl 5.10.1 says $# is no longer supported
+##  local($#) = '%.6g';
     &dumpvar('main',
 	     'width', 'height', 'lmargin', 'smargin', 'font_size',
 	     'sheet_height', 'sheet_width', 'char_width', 'skip_column',
 	     'header', 'page_width', 'page_height', 'header_size',
 	     'linesperpage', 'columnsperline');