[interchange-cvs] interchange - kwalsh modified code/Filter/tabbed.filter

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Thu Feb 22 17:49:56 EST 2007


User:      kwalsh
Date:      2007-02-22 22:49:56 GMT
Modified:  code/Filter tabbed.filter
Log:
    * Efficiency fix (my eyes were offended).

Revision  Changes    Path
1.4       +5 -3      interchange/code/Filter/tabbed.filter


rev 1.4, prev_rev 1.3
Index: tabbed.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/tabbed.filter,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- tabbed.filter	8 Nov 2005 18:14:32 -0000	1.3
+++ tabbed.filter	22 Feb 2007 22:49:56 -0000	1.4
@@ -1,13 +1,15 @@
 # Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Copyright 1996-2002 Red Hat, Inc.
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: tabbed.filter,v 1.3 2005/11/08 18:14:32 jon Exp $
+# $Id: tabbed.filter,v 1.4 2007/02/22 22:49:56 kwalsh Exp $
 
 CodeDef tabbed Filter
 CodeDef tabbed Description Newline to TAB
 CodeDef tabbed Routine <<EOR
 sub {
-	my @items = split /\r?\n/, shift;
-	return join "\t", @items;
+	my $val = shift;
+
+	$val =~ s/\r?\n/\t/g;
+	return $val;
 }
 EOR








More information about the interchange-cvs mailing list