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");
      }