From c1399658ff2623f4910a08499240a464ef43d180 Mon Sep 17 00:00:00 2001 From: Olly Betts Date: Wed, 15 Jul 2009 07:43:16 +0000 Subject: [Perl] Don't specify Perl prototype "()" for a constructor with a different name to the class, as such constructors can still take parameters. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11397 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- CHANGES.current | 5 +++++ Source/Modules/perl5.cxx | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/CHANGES.current b/CHANGES.current index 06c0c8851..89057e97d 100644 --- a/CHANGES.current +++ b/CHANGES.current @@ -1,6 +1,11 @@ Version 1.3.40 (in progress) ============================ +2009-07-15: olly + [Perl] Don't specify Perl prototype "()" for a constructor with a + different name to the class, as such constructors can still take + parameters. + 2009-07-05: olly [PHP] Update the list of PHP keywords - "cfunction" is no longer a keyword in PHP5 and PHP 5.3 added "goto", "namespace", "__DIR__", diff --git a/Source/Modules/perl5.cxx b/Source/Modules/perl5.cxx index eace179a7..177571dea 100644 --- a/Source/Modules/perl5.cxx +++ b/Source/Modules/perl5.cxx @@ -1511,7 +1511,7 @@ public: Printf(pcode, "sub new {\n"); } else { /* Constructor doesn't match classname so we'll just use the normal name */ - Printv(pcode, "sub ", Swig_name_construct(symname), " () {\n", NIL); + Printv(pcode, "sub ", Swig_name_construct(symname), " {\n", NIL); } Printv(pcode, -- cgit v1.2.1