slightly more reliable deprecation workaround

mojolicious · Nov 14, 2013 · 17fecec · 17fecec
1 parent 18a5596
commit 17fecec
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Mojo/UserAgent.pm b/lib/Mojo/UserAgent.pm
@@ -43,8 +43,8 @@ sub DESTROY { shift->_cleanup }
 
 # DEPRECATED in Top Hat!
 sub new {
-  my $self = shift->SUPER::new;
-  while (my $name = shift) { $self->$name(shift) }
+  my $self = shift->SUPER::new(@_);
+  for my $key (keys %$self) { $self->$key(delete $self->{$key}) }
   return $self;
 }