diff options
| author |   millert <millert@openbsd.org> | 2000-04-24 01:20:36 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2000-04-24 01:20:36 +0000 |
| commit | 97d3716121280817cac05f235fb657a9934197a0 (patch) | |
| tree | 95910c05e5df7b992d8308090c3f91e3fa5d46a7 /gnu/usr.bin/perl/lib/Pod/InputObjects.pm | |
| parent | With perl 5.6.0, GetOpt::Std is functional, use it. (diff) | |
| download | wireguard-openbsd-97d3716121280817cac05f235fb657a9934197a0.tar.xz wireguard-openbsd-97d3716121280817cac05f235fb657a9934197a0.zip | |
Fix in scalar vs. list dereference bug in InputObjects.pm. Keep
dashes in C<> blocks from getting \e prepended to them. They should
have a \ prepended to escape them which this does correctly do yet,
but at least it produces legible documentation; rra@stanford.edu
Diffstat (limited to 'gnu/usr.bin/perl/lib/Pod/InputObjects.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Pod/InputObjects.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/Pod/InputObjects.pm b/gnu/usr.bin/perl/lib/Pod/InputObjects.pm index 849182bf371..3131821775c 100644 --- a/gnu/usr.bin/perl/lib/Pod/InputObjects.pm +++ b/gnu/usr.bin/perl/lib/Pod/InputObjects.pm @@ -807,7 +807,7 @@ children for the top node. sub children { my $self = shift; if (@_ > 0) { - @{ $self } = (@_ == 1 and ref $_[0]) ? ${ @_ } : @_; + @{ $self } = (@_ == 1 and ref $_[0]) ? @{ @_ } : @_; } return @{ $self }; } |