From de6828a0488720e5ef9045d824cd81ddcf6a90b7 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Thu, 2 Sep 2004 20:31:10 +0000
Subject: [PATCH] *** empty log message ***

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6212 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 CHANGES.current | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/CHANGES.current b/CHANGES.current
index 9b79c049f..867bfa598 100644
--- a/CHANGES.current
+++ b/CHANGES.current
@@ -1,6 +1,30 @@
 Version 1.3.22 (September 1, 2004)
 ==================================
 
+09/01/2004: wsfulton
+            [Perl] Applied patch #1019669 from Christoph Flamm. Adds support
+            for %feature("shadow") in the same way as it works in Python. This
+            enables one to override the generated shadow/proxy methods, including
+            constructors and destructors. For example:
+
+              /* Let's make the constructor of the class Square more verbose */
+
+              %feature("shadow") Square(double w)
+              %{
+                sub new {
+                  my $pkg = shift;
+                  my $self = examplec::new_Square(@_);
+                  print STDERR "Constructed an @{[ref($self)]}\n";
+                  bless $self, $pkg if defined($self);
+                }
+              %}
+
+              class Square {
+              public:
+                Square(double w);
+                ...
+              };
+
 08/31/2004: mmatus 
 	    [Python] Incompatibility reported by Bill Clarke (llib@computer.org):