diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-19 06:04:36 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-19 06:04:36 -0700 |
| commit | 53777b0ce48433ad582498a56c60698a8fad29f6 (patch) | |
| tree | 84364dc743d20459db66b4ddd993a5278119366e | |
| parent | b056a6a732c15e177019d05996c7dddbfa3f66a8 (diff) | |
| download | perl-53777b0ce48433ad582498a56c60698a8fad29f6.tar.gz | |
Missing bug number in d12b49d
| -rw-r--r-- | dist/constant/lib/constant.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/constant/lib/constant.pm b/dist/constant/lib/constant.pm index 22566ce28c..5f030921b2 100644 --- a/dist/constant/lib/constant.pm +++ b/dist/constant/lib/constant.pm @@ -117,7 +117,7 @@ sub import { if ($multiple || @_ == 1) { my $scalar = $multiple ? $constants->{$name} : $_[0]; - # Work around perl bug #xxxxx: Sub names (actually glob + # Work around perl bug #31991: Sub names (actually glob # names in general) ignore the UTF8 flag. So we have to # turn it off to get the "right" symbol table entry. utf8::is_utf8 $name and utf8::encode $name; |