From 4bb0e642131f0a907c99f6b4f9f0e3ecc75eff3d Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Sat, 21 Jun 2008 22:26:35 +0000
Subject: [PATCH] Fix virtual destructor

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10548 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Examples/perl5/import/base.h | 2 +-
 Examples/tcl/import/base.h   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Examples/perl5/import/base.h b/Examples/perl5/import/base.h
index be3cdef7d..5a266f68c 100644
--- a/Examples/perl5/import/base.h
+++ b/Examples/perl5/import/base.h
@@ -3,7 +3,7 @@
 class Base {
  public:
      Base() { };
-    ~Base() { };
+     virtual ~Base() { };
      virtual void A() {
          printf("I'm Base::A\n");
      }
diff --git a/Examples/tcl/import/base.h b/Examples/tcl/import/base.h
index be3cdef7d..5a266f68c 100644
--- a/Examples/tcl/import/base.h
+++ b/Examples/tcl/import/base.h
@@ -3,7 +3,7 @@
 class Base {
  public:
      Base() { };
-    ~Base() { };
+     virtual ~Base() { };
      virtual void A() {
          printf("I'm Base::A\n");
      }