Updated patches for 2.13.

[maypole.git] / debian / patches / 109_handle-clone.diff

diff --git a/debian/patches/109_handle-clone.diff b/debian/patches/109_handle-clone.diff
deleted file mode 100644 (file)
index 70258d5..0000000
--- a/debian/patches/109_handle-clone.diff
+++ /dev/null
@@ -1,28 +0,0 @@
---- trunk.orig/lib/Maypole/Model/Base.pm
-+++ trunk/lib/Maypole/Model/Base.pm
-@@ -12,14 +12,23 @@
-     shift; # class name not used
-     my ($coderef, @attrs) = @_;
-     
--    $remember{$coderef} = \@attrs; 
-+    $remember{$coderef} = [$coderef, \@attrs];
-     
-     # previous version took care to return an empty array, not sure why, 
-     # but shall cargo cult it until know better
-     return; 
- }
- 
--sub FETCH_CODE_ATTRIBUTES { @{ $remember{$_[1]} || [] } }
-+sub FETCH_CODE_ATTRIBUTES { @{ $remember{$_[1]}->[1] || [] } }
-+
-+sub CLONE {
-+    # re-hash %remember
-+    for my $key (keys %remember) {
-+      my $value = delete $remember{$key};
-+      $key = $value->[0];
-+      $remember{$key} = $value;
-+    }
-+}
- 
- sub process {
-     my ( $class, $r ) = @_;