[WWcvs] pg: Handle TeX versions of variables whose names include underscores

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Handle TeX versions of variables whose names include underscores
better.

Modified Files:
--------------
    pg/lib/Parser:
        Variable.pm

Revision Data
-------------
Index: Variable.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Variable.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/Parser/Variable.pm -Llib/Parser/Variable.pm -u -r1.6 -r1.7
--- lib/Parser/Variable.pm
+++ lib/Parser/Variable.pm
@@ -105,7 +105,7 @@
   my $self = shift; my $name = $self->{name};
   my $value = $self->{equation}{values}{$name};
   return $value if defined($value);
-  $name = $1.'_{'.$2.'}' if ($name =~ m/^(\D+)(\d+)$/);
+  $name = $1.'_{'.$2.'}' if ($name =~ m/^([^_]+)_?(\d+)$/);
   return $name;
 }
 #