From 7e526a0b21513f2139bafcb367553ece6ff510c2 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Wed, 17 Dec 2003 19:09:36 +0000
Subject: [PATCH] Turned on shadow classes by default.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5577 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Source/Modules/perl5.cxx | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/SWIG/Source/Modules/perl5.cxx b/SWIG/Source/Modules/perl5.cxx
index a9c3ef065..e013bbfba 100644
--- a/SWIG/Source/Modules/perl5.cxx
+++ b/SWIG/Source/Modules/perl5.cxx
@@ -27,6 +27,7 @@ Perl5 Options (available with -perl5)\n\
      -static         - Omit code related to dynamic loading\n\
      -nopm           - Do not generate the .pm file\n\
      -proxy          - Create proxy classes\n\
+     -noproxy        - Don't create proxy classes\n\
      -const          - Wrap constants as constants and not variables (implies -proxy)\n\
      -compat         - Compatibility mode\n\n";
 
@@ -79,7 +80,7 @@ static int          is_static = 0;
 
 /* The following variables are used to manage Perl5 classes */
 
-static  int        blessed = 0;                /* Enable object oriented features */
+static  int        blessed = 1;                /* Enable object oriented features */
 static  int        do_constants = 0;           /* Constant wrapping */
 static  List       *classlist = 0;             /* List of classes */
 static  int        have_constructor = 0;
@@ -143,6 +144,9 @@ public:
 	} else if ((strcmp(argv[i],"-shadow") == 0) || ((strcmp(argv[i],"-proxy") == 0))) {
 	  blessed = 1;
 	  Swig_mark_arg(i);
+	} else if ((strcmp(argv[i],"-noproxy") == 0)) {
+	  blessed =0;
+	  Swig_mark_arg(i);
 	} else if (strcmp(argv[i],"-const") == 0) {
 	  do_constants = 1;
 	  blessed = 1;