push @parts, split /\s+/, pop @parts; # split the last piece into an arbitrary number of pieces at spaces
- if ($parts[-1] =~ /^(.*\d+)(\D.*)$/) {
+ if ($parts[-1] !~ /^.*\d-\d.*$/ && $parts[-1] =~ /^(.*\d+)(\D.*)$/) {
pop @parts; # pull off the mathching last element, like example 2
push @parts, $1, $2; # replace it with the two pieces
}
ySize => ( .02 * $height ),
xSize => $xsize_ratio,
hide_asterisk => 1,
+ mode => 'graphic', # the only other option here is Type3...
);
};
if ($@) {
ySize => ( .02 * $height ),
xSize => $xsize_ratio,
hide_asterisk => 1,
+ mode => 'graphic', # the only other option here is Type3...
);
};
ySize => ( .02 * $height ),
xSize => $xsize_ratio,
hide_asterisk => 1,
- text => 0,
+ text => 0,
+ mode => 'graphic', # the only other option here is Type3...
);
};
xSize => .85,
ySize => 1.3,
+ mode => 'graphic', # the only other option here is Type3...
);
};
if ($@) {