diff options
| -rw-r--r-- | README.win32 | 2 | ||||
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 | ||||
| -rw-r--r-- | lib/Class/Struct.pm | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/README.win32 b/README.win32 index d5adfd7dc2..c7e61264d6 100644 --- a/README.win32 +++ b/README.win32 @@ -177,7 +177,7 @@ If you have either the source or a library that contains des_fcrypt(), enable the appropriate option in the makefile. des_fcrypt() is not bundled with the distribution due to US Government restrictions on the export of cryptographic software. Nevertheless, this routine -is part of the "libdes" library (written by Ed Young) which is widely +is part of the "libdes" library (written by Eric Young) which is widely available worldwide, usually along with SSLeay (for example: "ftp://fractal.mta.ca/pub/crypto/SSLeay/DES/"). Set CRYPT_SRC to the name of the file that implements des_fcrypt(). Alternatively, if diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index be7088e768..f8bcc7c8df 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -1194,7 +1194,7 @@ BEGIN { sub deparse_binop_left { my $self = shift; my($op, $left, $prec) = @_; - if ($left{assoc_class($op)} + if ($left{assoc_class($op)} && $left{assoc_class($left)} and $left{assoc_class($op)} == $left{assoc_class($left)}) { return $self->deparse($left, $prec - .00001); @@ -1227,7 +1227,7 @@ BEGIN { sub deparse_binop_right { my $self = shift; my($op, $right, $prec) = @_; - if ($right{assoc_class($op)} + if ($right{assoc_class($op)} && $right{assoc_class($right)} and $right{assoc_class($op)} == $right{assoc_class($right)}) { return $self->deparse($right, $prec - .00001); diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm index 554865a8e2..6227ee63ca 100644 --- a/lib/Class/Struct.pm +++ b/lib/Class/Struct.pm @@ -355,7 +355,7 @@ The element is an array, initialized by default to C<()>. With no argument, the accessor returns a reference to the element's whole array (whether or not the element was -specified as C<'@'> or C<'*@'). +specified as C<'@'> or C<'*@'>). With one or two arguments, the first argument is an index specifying one element of the array; the second argument, if @@ -370,7 +370,7 @@ The element is a hash, initialized by default to C<()>. With no argument, the accessor returns a reference to the element's whole hash (whether or not the element was -specified as C<'%'> or C<'*%'). +specified as C<'%'> or C<'*%'>). With one or two arguments, the first argument is a key specifying one element of the hash; the second argument, if present, is |