[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