diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-09-17 22:42:58 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-17 22:42:58 -0700 |
| commit | 61154ac0d41ba2a544591a0c8597e503d31abca8 (patch) | |
| tree | 93f616566d023275011e6258d64a417abbe422d4 | |
| parent | 6ec73527899164b78a87bc4fc6b180ea6f8087b5 (diff) | |
| download | perl-61154ac0d41ba2a544591a0c8597e503d31abca8.tar.gz | |
Deparse "${#}a"
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 11 | ||||
| -rw-r--r-- | dist/B-Deparse/t/deparse.t | 4 | ||||
| -rw-r--r-- | pod/perldelta.pod | 2 |
3 files changed, 12 insertions, 5 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 7936fcdbf6..28da808c1b 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -1297,13 +1297,16 @@ sub stash_variable { return "$prefix$name"; } - if (defined $cx && $cx == 26) { - if ($prefix eq '@' && $name =~ /^[^\w+-]$/) { + if ($name =~ /^[^\w+-]$/) { + if (defined $cx && $cx == 26) { + if ($prefix eq '@') { return "$prefix\{$name}"; } - } - if ($prefix eq '$#' && $name =~ /^[^\w+-]$/) { + elsif ($name eq '#') { return '${#}' } # "${#}a" vs "$#a" + } + if ($prefix eq '$#') { return "\$#{$name}"; + } } my $v = ($prefix eq '$#' ? '@' : $prefix) . $name; diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index 92f8ae0857..e527b99a33 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -772,3 +772,7 @@ my @x; @x = ($#{(}, $#{)}, $#{[}, $#{{}, $#{]}, $#{}}, $#{'}, $#{"}, $#{,}); @x = ($#{<}, $#{.}, $#{>}, $#{/}, $#{?}, $#{=}, $#+, $#{\}, $#{|}, $#-); @x = ($#{;}, $#{:}); +#### +# ${#} interpolated (the first line magically disables the warning) +() = *#; +() = "${#}a"; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 25ef87c49a..9820c0aea0 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -174,7 +174,7 @@ L<Archive::Tar> has been upgraded from version 1.76 to version 1.78. L<B::Deparse> has been upgraded from version 1.07 to 1.08. -It now correctly deparses C<$#{/}>. +It now correctly deparses C<$#{/}> and C<qq(${#}a)>. =item * |