- documented info_flags::algebraic.

[ginac.git] / ginac / structure.pl

diff --git a/ginac/structure.pl b/ginac/structure.pl
index c7ec0b2701086f08b78bf9edb83dc57d4ea17dbc..41989148a52c57e731ea77112a32cbee6be3543d 100755 (executable)
--- a/ginac/structure.pl
+++ b/ginac/structure.pl
@@ -32,7 +32,7 @@ while ($decl =~ /^ ?(\w+) ([\w \,]+)\; ?((\/\*.*?\*\/)?)(.*)$/) {
         }
         $member=$2;
     }
-    if ($member !~ /^\w$/) {
+    if ($member !~ /^\w+$/) {
         die "illegal struct, must match 'struct name { type var; /*comment*/ ...};': $input_structure";
     }
     push @TYPES,$type;