diff options
| author | Karl Williamson <khw@cpan.org> | 2014-10-24 11:54:15 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-11-01 22:06:55 -0600 |
| commit | 9c9bd5858bb1ba0716ce72cfed56b41e34126686 (patch) | |
| tree | 181fdcdc899610d1645100c17ae9746e79cebd18 /t/uni | |
| parent | 923a26c1246c21c9fda8ae111a717697640bc3eb (diff) | |
| download | perl-9c9bd5858bb1ba0716ce72cfed56b41e34126686.tar.gz | |
t/uni/variables.t: Fix typo
This caused failures only in EBCDIC. The variable $chr is what was
intended, but due to a missing '$', we got the variable $_ which differs
from $chr only on EBCDIC.
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/variables.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/uni/variables.t b/t/uni/variables.t index 5ccf7e7f66..475196c258 100644 --- a/t/uni/variables.t +++ b/t/uni/variables.t @@ -136,7 +136,7 @@ for ( 0x0 .. 0xff ) { "$name as a length-1 variable generates a syntax error"); $tests++; } - elsif ($ord < 32 || chr =~ /[[:punct:][:digit:]]/a) { + elsif ($ord < 32 || $chr =~ /[[:punct:][:digit:]]/a) { # Unlike other variables, we dare not try setting the length-1 # variables that are \cX (for all valid X) nor ASCII ones that are |