my $say_why= 0;
my $this= $cp[$#cp];
- my $last= $cp[$#cp-1];
+ my $last= @cp > 1 ? $cp[$#cp-1] : undef;
foreach my $k2 (qw(S L H)) {
if (defined $last) {
no strict 'refs';
push @cp, $this;
}
+#use Data::Dumper;
+
sub parse_args () {
foreach $_ (@ARGV) {
+#print STDERR ">$_<\n", Dumper(\@cp);
if (m/^\=([-+]?$numre)$/o) {
arg_item(H, $1);
} elsif (m/^([-+]?$numre)\%$/o) {