Deparse $#{1} with braces

$#1 is a syntax error.

2 files changed, 2 insertions, 2 deletions

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index 1ab8472c60..9a8ad2bc95 100644
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -1670,7 +1670,7 @@ sub stash_variable {
 	return "$prefix$name";
     }
 
-    if ($name =~ /^[^\w+-]$/) {
+    if ($name =~ /^[^[:alpha:]+-]$/) {
       if (defined $cx && $cx == 26) {
 	if ($prefix eq '@') {
 	    return "$prefix\{$name}";
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 082d3a1c78..8d52e90cbd 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -1465,7 +1465,7 @@ my @x;
 @x = ($#{`}, $#{~}, $#{!}, $#{@}, $#{$}, $#{%}, $#{^}, $#{&}, $#{*});
 @x = ($#{(}, $#{)}, $#{[}, $#{{}, $#{]}, $#{}}, $#{'}, $#{"}, $#{,});
 @x = ($#{<}, $#{.}, $#{>}, $#{/}, $#{?}, $#{=}, $#+, $#{\}, $#{|}, $#-);
-@x = ($#{;}, $#{:});
+@x = ($#{;}, $#{:}, $#{1});
 ####
 # ${#} interpolated
 # It's a known TODO that warnings are deparsed as bits, not textually.