richter 2002/07/02 03:15:49
Modified: . Tag: Embperl2c Changes.pod
Embperl Tag: Embperl2c Mail.pm
Log:
fix type in Embperl::Mail
Revision Changes Path
No revision
No revision
1.129.4.84 +1 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.83
retrieving revision 1.129.4.84
diff -u -r1.129.4.83 -r1.129.4.84
--- Changes.pod 1 Jul 2002 10:32:17 -0000 1.129.4.83
+++ Changes.pod 2 Jul 2002 10:15:47 -0000 1.129.4.84
@@ -8,6 +8,7 @@
so for example <xsl:include> directives searchs files the same way as Execute
does under Embperl::Object.
- fixed typo in JavaScript code for Form::Validate
+ - fixed typo in Embperl::Mail reported by Axel Beckert.
=head1 2.0b8 (BETA) 25. Juni 2002
No revision
No revision
1.29.4.7 +2 -2 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.29.4.6
retrieving revision 1.29.4.7
diff -u -r1.29.4.6 -r1.29.4.7
--- Mail.pm 19 Mar 2002 04:41:23 -0000 1.29.4.6
+++ Mail.pm 2 Jul 2002 10:15:48 -0000 1.29.4.7
@@ -76,7 +76,7 @@
($helo?(Hello => $helo):())
) or die "Cannot connect to mailhost
$req->{mailhost}" ;
- my $from = $req -> {from} || $ENV{'EMBPERL_MAILFROM'} || 'WWW-Server\@' .
($ENV{SERVER_NAME}" || 'localhost') ;
+ my $from = $req -> {from} || $ENV{'EMBPERL_MAILFROM'} || 'WWW-Server\@' .
($ENV{SERVER_NAME} || 'localhost') ;
$smtp->mail($from);
my $to ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
