Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: neutral (nike.apache.org: local policy)
Message-ID: <4B7165B9.2030009@dianomi.com>
Date: Tue, 09 Feb 2010 13:40:09 +0000
From: Michael Stevens <michael.stevens@dianomi.com>
User-Agent: Mozilla-Thunderbird 2.0.0.22 (X11/20090706)
MIME-Version: 1.0
To: Gerald Richter - ECOS <gerald.richter@ecos.de>
CC: Neil Gunton <neil@nilspace.com>, embperl@perl.apache.org
Subject: Re: embperl releases
References: <4B6EED0B.3030008@nilspace.com>
 <vmime.4b711783.195f.ad5c6d5c8f0fb304@srvgr1.ubrichter.de>
In-Reply-To: <vmime.4b711783.195f.ad5c6d5c8f0fb304@srvgr1.ubrichter.de>
Content-Type: multipart/mixed;
 boundary="------------090000050601090804070206"

--------------090000050601090804070206
Content-Type: text/plain; charset=windows-1252; format=flowed
Content-Transfer-Encoding: 7bit

I think I've sent this through before, but it's attached. It's not 
original to us - just my collection of the diffs needed to get tests 
passing and things actually working on recent perl and CGI.pm.

We'd rather not be maintaining our own version, obviously!

I haven't worked out the diffs to work on both old and new CGI.pm but it 
shouldn't be too hard - probably something basic to detect which methods 
are present?>

Gerald Richter - ECOS wrote:
> Hi Michael,
> 
>  
> 
> this sounds good. Since I never used git before, is there a possibility 
> to simply get a diff over all files to the latest Embperl release?
> 
>  
> 
> Gerald
> 
>  
> 
> *From:* Michael Stevens [mailto:michael.stevens@dianomi.com]
> *Sent:* Monday, February 08, 2010 3:09 PM
> *To:* Neil Gunton
> *Cc:* embperl@perl.apache.org
> *Subject:* Re: embperl releases
> 
>  
> 
> We'd be happy to help if we can.
> 
> I've linked before a reference to the github tree of what we're using 
> internally:
> 
> http://github.com/mstevens/embperl-fork
> 
> This is just the minimal diffs required to get embperl running on 
> current perl (mostly sourced from this list!). It works nicely on our 
> Redhat 5 systems.
> 
> I can probably also test anything you want looked at on debian.
> 
> On 7 February 2010 16:40, Neil Gunton <neil@nilspace.com 
> <mailto:neil@nilspace.com>> wrote:
> 
> Gerald Richter - ECOS wrote:
> 
> Hi,
> 
> I would be very happy for any help and contribution to Embperl.
> 
> Several people have sent patches in the past, but you are right I am the 
> only "real" developer in the project. I have no idea how to change this.
> 
> Help would be great for
> 
> - Documentation, Tutorials
> - Testing on several platforms, including  supplying a patches/fixes
> - Any other contribution
> 
> There is a repository, see
> 
>        http://perl.apache.org/embperl/pod/doc/SVN.htm
> 
> Gerald
> 
>  
> 
> Hi Gerald,
> 
> I am still using Embperl extensively as part of my ongoing project, 
> crazyguyonabike.com <http://crazyguyonabike.com>. This is being expanded 
> into other topics on topicwise.com <http://topicwise.com> and then 
> townwise.com <http://townwise.com> for locale-oriented sites. I plan on 
> continuing to use Embperl heavily in the future, and if/when the project 
> starts to make money then I also hope to be able to give you more direct 
> support.
> 
> In the meantime, I am using Embperl on Debian, currently Lenny. If you 
> need any specific help with documentation (in English), tutorials, or 
> anything else, please let me know. I am not an expert on Debian 
> packaging, never really delved into it (never had to, so never have), 
> but I'm still here and willing to help if you need it.
> 
> Thanks for all your work on this project, I think Embperl still stacks 
> up more than adequately against the other templating tools out there 
> after 10 years.
> 
> Neil
> 
> ---------------------------------------------------------------------
> 
> 
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org 
> <mailto:embperl-unsubscribe@perl.apache.org>
> For additional commands, e-mail: embperl-help@perl.apache.org 
> <mailto:embperl-help@perl.apache.org>
> 
> 
> 
> 
> -- 
> Michael Stevens
> Dianomi Ltd
> 18 Buckingham Gate
> London SW1E 6LB
> 
> Tel: 020 7802 5530
> Fax: 020 7630 7356
> www.dianomi.com <http://www.dianomi.com>
> 
> The information in this message and any attachment is intended for the 
> addressee and is confidential and may be subject to legal privilege. 
> Dianomi Ltd, Registered Office: One America Square, Crosswall, London. 
> EC3N 2SG. Registered in England and Wales with Company Registration 
> Number 4513809. VAT registration number: 809754988
> 


-- 
Michael Stevens
Dianomi Ltd
18 Buckingham Gate
London SW1E 6LB

Tel: 020 7802 5530
Fax: 020 7630 7356
www.dianomi.com

The information in this message and any attachment is intended for the 
addressee and is confidential and may be subject to legal privilege. 
Dianomi Ltd, Registered Office: One America Square, Crosswall, London. 
EC3N 2SG. Registered in England and Wales with Company Registration 
Number 4513809. VAT registration number: 809754988

--------------090000050601090804070206
Content-Type: text/x-patch;
 name="embperl.diff"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="embperl.diff"

diff --git a/Embperl.pm b/Embperl.pm
index 6f185f1..5d348d4 100644
--- a/Embperl.pm
+++ b/Embperl.pm
@@ -49,7 +49,7 @@ use vars qw(
 
 @ISA = qw(Exporter DynaLoader);
 
-$VERSION = '2.3.0' ;
+$VERSION = '2.3.0-fork' ;
 
 
 if ($modperl  = $ENV{MOD_PERL})
@@ -314,19 +314,17 @@ sub get_multipart_formdata
     @$ffld = $cgi->param;
 
     $self -> log ("[$$]FORM: Read multipart formdata, length=$ENV{CONTENT_LENGTH}\n") if ($dbgForm) ; 
-    my $params ;
     foreach ( @$ffld )
 	{
     	# the param_fetch needs CGI.pm 2.43
-	#$params = $cgi->param_fetch( $_ ) ;
-    	$params = $cgi->{$_} ;
-	if ($#$params > 0)
+	my @values = $cgi->param($_);
+	if ($#values > 0)
 	    {
-	    $fdat->{ $_ } = join ("\t", @$params) ;
+		$fdat->{ $_ } = join ( $self -> config -> mult_field_sep() , @values) ;
 	    }
 	else
 	    {
-	    $fdat->{ $_ } = $params -> [0] ;
+		 $fdat->{ $_ } = $values[0] ;
 	    }
 	
 	$self -> log ("[$$]FORM: $_=$fdat->{$_}\n") if ($dbgForm) ; 
diff --git a/README.fork b/README.fork
new file mode 100644
index 0000000..428a71f
--- /dev/null
+++ b/README.fork
@@ -0,0 +1,4 @@
+This forked version is produced by Michael Stevens <mstevens@etla.org>.
+
+The goal is to get Embperl installing cleanly again against a recent perl/CPAN.
+
diff --git a/test/cmp/epoerrdoc2.htm b/test/cmp/epoerrdoc2.htm
index 3374144..c7992e5 100644
--- a/test/cmp/epoerrdoc2.htm
+++ b/test/cmp/epoerrdoc2.htm
@@ -17,12 +17,12 @@ next:
 ^-	<tr><td>\[\d+\]ERR:  32:  Warning in Perl code: 	\(in cleanup\) Can't locate bad_module_without_name.pm
 ^-BEGIN failed--compilation aborted 
 ^	<tr><td>\[\d+\]ERR:  24:  Error in Perl code: Can't locate bad_module_without_name.pm in 
-^BEGIN failed--compilation aborted
+^-BEGIN failed--compilation aborted
 ^-BEGIN fa
 ^-	<tr><td>\[\d+\]ERR:  32:  Warning in Perl code: 	\(in cleanup\) Can't locate bad_module_without_name.pm
 ^-BEGIN failed--compilation aborted 
 ^	<tr><td>\[\d+\]ERR:  24:  Error in Perl code: Can't locate bad_module_without_name.pm 
-^BEGIN failed--compilation aborted
+^-BEGIN failed--compilation aborted
 ^-BEGIN failed
 </table>
 

--------------090000050601090804070206
Content-Type: text/plain; charset=us-ascii


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
--------------090000050601090804070206--