From 1a64cb55abb3c8ffba3d564f00ac274cdffdd99a Mon Sep 17 00:00:00 2001
From: Thomas Kremer <->
Date: Sun, 24 Oct 2021 04:21:34 +0200
Subject: DXF.pm: fixed set_var.

---
 DXF.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DXF.pm b/DXF.pm
index e6416bb..259db8a 100644
--- a/DXF.pm
+++ b/DXF.pm
@@ -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]}) :
-- 
cgit v1.2.3