The line giving the error is:

Line 194:  if ($n =~ m/^\d/) {
[download]

No, that line can't be to blame. Which means the problem is actually on a subsequent elsif line (that is an annoying quirk of how Perl reports line numbers for error messages -- an error in the conditional expression of an elsif is always reported as happening on the line of the corresponding if expression instead). If you don't see how to fix that line, then reply back.

tye,

Thank your for your quick response.
I've tried to replace all of the $var's as you suggest, and I'm still getting the same error on the same line.

The file enum.pl is from http://www.fourmilab.ch/webtools/unum/
Here is the log showing the changes I tried.


$ grep 'm\/.*\$.*\/' unum.pl
        if ($k->[2] =~ m/$cpat/) {
        if ($XHTML_ENTITIES{$k} =~ m/$cpat/) {
        if ($UNICODE_NAMES{$k} =~ m/$cpat/) {
$ grep cpat unum.pl
        my $cpat = qr/$2/i;
        if ($k->[2] =~ m/$cpat/) {
        my $cpat = qr/$1/i;
        if ($XHTML_ENTITIES{$k} =~ m/$cpat/) {
        my $cpat = qr/$1/i;
        if ($UNICODE_NAMES{$k} =~ m/$cpat/) {
$ nano unum.pl
$ grep 'm\/.*\$.*\/' unum.pl
        if ($k->[2] =~ m/\Q$cpat\E/) {
        if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
        if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
$ grep '\/.*\$.*\/' unum.pl
        my $cpat = qr/$2/i;
        if ($k->[2] =~ m/\Q$cpat\E/) {
        my $cpat = qr/$1/i;
        if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
        my $cpat = qr/$1/i;
        if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
        $n =~ s/^c?=(.+)$/$1/i;
$ unum c=hello
Can't find unicode character property definition via main->IsDigit or 
+Is/Digit.pl at /home/user/bin/unum.pl line 194
$ nano unum.pl
$ unum c=hello
Can't find unicode character property definition via main->IsDigit or 
+Is/Digit.pl at /home/user/bin/unum.pl line 194
$ nano unum.pl
$ unum c=hello
Can't find unicode character property definition via main->IsDigit or 
+Is/Digit.pl at /home/user/bin/unum.pl line 194
$ grep '\/.*\$.*\/' unum.pl
        my $cpat = qr/\Q$2\E/i;
        if ($k->[2] =~ m/\Q$cpat\E/) {
        my $cpat = qr/\Q$1\E/i;
        if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
        my $cpat = qr/\Q$1\E/i;
        if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
        $n =~ s/^c?=(.+)$/\Q$1\E/i;
[download]

Here are the "elsif" lines, they don't look guilty to me:


$ cat unum.pl | grep 'if '
    if ($#ARGV < 0) {
    if ($n =~ m/^\d/) {
        $n = oct($n) if ($n =~ m/^0/);
    } elsif ($n =~ m/^(b|l)=(.+)/) {
        if ($k->[2] =~ m/\Q$cpat\E/) {
            if (!$blocktitle) {
            if ($listall) {
    } elsif ($n =~ m/^h=(.+)/) {
        if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
    } elsif ($n =~ m/^n=(.+)/) {
        if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
    } elsif ($n =~ m/^&#/) {
    if (!defined($u)) {
        if (defined($u)) {
    if (!$chartitle) {
    if ($code >= 0x4E00) {
        if ($code <= 0x9FFF || ($code >= 0xF900 && $code <= 0xFAFF)) {
        } elsif ($code >= 0xD800 && $code <= 0xF8FF) {
        if ($code <= 0xDFFF) {
        } elsif ($code >= 0xAC00 && $code <= 0xD7A3) {
        pop(@s) if $t == 0x11A7;
        return $block->[2] if $block->[0] <= $code && $block->[1] >= $
+code;
[download]

john

Actually, it looks like you have a more unusual problem and it actually is at line 194. \d just doesn't appear to work for your version of Perl. You'll likely get more help if you post in SoPW rather than deep in this ancient thread.

- tye