* Don't autovifivy @fields array entries.
[interchange.git] / code / Filter / options2line.filter
1 # Copyright 2002-2007 Interchange Development Group and others
2 # Copyright 1996-2002 Red Hat, Inc.
3
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 2 of the License, or
7 # (at your option) any later version.  See the LICENSE file for details.
8
9 # $Id: options2line.filter,v 1.4 2007-03-30 23:40:45 pajamian Exp $
10
11 CodeDef options2line Filter
12 CodeDef options2line Description options2line
13 CodeDef options2line Routine <<EOR
14 sub {
15         my ($value, $tag, $delim) = @_;
16         return $value unless length $value;
17         $value =~ s/\s+$//;
18         $value =~ s/^\s+//;
19         my @opts = split /\s*,\s*/, $value;
20         for(@opts) {
21                 s/&#44;/,/g;
22         }
23         $value = return join "\n", @opts;
24         return $value;
25 }
26 EOR