[interchange-cvs] interchange - racke modified lib/Vend/Email.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Thu Dec 13 17:24:33 EST 2007


User:      racke
Date:      2007-12-13 22:24:32 GMT
Modified:  lib/Vend Email.pm
Log:
prevent email headers like Attach: HASH(0xc643078)

Revision  Changes    Path
1.7       +4 -2      interchange/lib/Vend/Email.pm


rev 1.7, prev_rev 1.6
Index: Email.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Email.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- Email.pm	13 Dec 2007 15:38:12 -0000	1.6
+++ Email.pm	13 Dec 2007 22:24:32 -0000	1.7
@@ -1,6 +1,6 @@
 # Vend::Email - Handle Interchange email functions
 # 
-# $Id: Email.pm,v 1.6 2007/12/13 15:38:12 racke Exp $
+# $Id: Email.pm,v 1.7 2007/12/13 22:24:32 racke Exp $
 #
 # Copyright (C) 2007 Interchange Development Group
 #
@@ -55,7 +55,7 @@
 
 use vars qw/$VERSION/;
 
-$VERSION = substr(q$Revision: 1.6 $, 10);
+$VERSION = substr(q$Revision: 1.7 $, 10);
 
 
 ###########################################################################
@@ -434,6 +434,8 @@
 	# @extra_headers
 	my @headers;
 	while (my($hdr,$values) = each %$opt ) {
+		next if $hdr eq 'attach';
+		
 		if (! ref $values ) {
 			push @headers, [ $hdr, $values ];
 








More information about the interchange-cvs mailing list