$OpenBSD: patch-lib_Rose_HTML_Form_pm,v 1.2 2010/01/10 13:45:04 espie Exp $
--- lib/Rose/HTML/Form.pm.orig	Mon Nov  9 20:47:51 2009
+++ lib/Rose/HTML/Form.pm	Sun Jan 10 14:20:58 2010
@@ -4,7 +4,7 @@ use strict;
 
 use Carp;
 
-use Clone::PP;
+use Clone;
 use Rose::URI;
 use Scalar::Util();
 use URI::Escape qw(uri_escape);
@@ -402,7 +402,7 @@ sub params
     }
     elsif(@_ % 2 == 0)
     {
-      $self->{'params'} = Clone::PP::clone({ @_ });
+      $self->{'params'} = Clone::clone({ @_ });
     }
     else
     {
@@ -430,7 +430,7 @@ sub params
   my $want = wantarray;
   return  unless(defined $want);
 
-  return ($want) ? %{ Clone::PP::clone($self->{'params'}) } : $self->{'params'};
+  return ($want) ? %{ Clone::clone($self->{'params'}) } : $self->{'params'};
 }
 
 sub param_exists
