diff options
| author | Thomas Kremer <-> | 2021-10-24 04:21:34 +0200 |
|---|---|---|
| committer | Thomas Kremer <-> | 2021-10-24 04:21:34 +0200 |
| commit | 1a64cb55abb3c8ffba3d564f00ac274cdffdd99a (patch) | |
| tree | af5c8a3e5bca722b30635ac26ed4e03805764594 | |
| parent | 4874e291ae4b4ee4ba9513d640810da72eecb0f9 (diff) | |
DXF.pm: fixed set_var.
| -rw-r--r-- | DXF.pm | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1177,7 +1177,7 @@ sub _need_vars_and_types { my (%vars,%types,%nodes); for (@{$self->get_sections->{HEADER}{children}}) { my $name = $_->{name}; - $name =~ s/^$//; + $name =~ s/^\$//; my @k = keys %{$_->{attrs}}; my ($type,$value) = @k == 1 ? ($k[0],$_->{attrs}{$k[0]}) : |