Permalink
Browse files

rename %header to %other

  • Loading branch information...
1 parent 15014ea commit 3c027839ad3147761e82031fccc071b4e44b3ef5 Ryo Anazawa committed Jul 30, 2013
Showing with 3 additions and 3 deletions.
  1. +3 −3 examples/lib/CGI/Header/Extended.pm
@@ -7,10 +7,10 @@ sub merge {
my ( $self, @args ) = @_;
if ( @args == 1 ) {
- my %header = %{ $args[0] };
+ my %other = %{ $args[0] };
my $header = $self->header;
- ref( $self )->new( header => \%header ); # rehash %header
- %$header = ( %$header, %header );
+ ref( $self )->new( header => \%other ); # rehash %other
+ %$header = ( %$header, %other );
}
else {
while ( my ($key, $value) = splice @args, 0, 2 ) {

0 comments on commit 3c02783

Please sign in to comment.