$OpenBSD: patch-lib_Rose_DB_Registry_Entry_pm,v 1.1.1.1 2006/12/10 21:35:34 espie Exp $
--- lib/Rose/DB/Registry/Entry.pm.orig	Sun Dec 10 20:48:30 2006
+++ lib/Rose/DB/Registry/Entry.pm	Sun Dec 10 20:48:45 2006
@@ -2,7 +2,7 @@ package Rose::DB::Registry::Entry;
 
 use strict;
 
-use Clone::PP();
+use Clone();
 
 use Rose::Object;
 our @ISA = qw(Rose::Object);
@@ -70,7 +70,7 @@ sub dump
   {
     my $value = $self->$attr();
     next  unless(defined $value);
-    $dump{$attr} = Clone::PP::clone($value);
+    $dump{$attr} = Clone::clone($value);
   }
 
   # These booleans have default, but we only want the ones 
@@ -79,13 +79,13 @@ sub dump
   {
     my $value = $self->{$attr};
     next  unless(defined $value);
-    $dump{$attr} = Clone::PP::clone($value);
+    $dump{$attr} = Clone::clone($value);
   }
 
   return \%dump;
 }
 
-sub clone { Clone::PP::clone($_[0]) }
+sub clone { Clone::clone($_[0]) }
 
 1;
 
