diff options
| author | ivan <ivan> | 2009-12-18 00:41:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-12-18 00:41:34 +0000 |
| commit | 40a7b3dc653e099f7bd0bd762b649b04c4432db2 (patch) | |
| tree | f818105b1c8b13d709af4e251ee3213c5ba6773d /rt/lib/RT/Interface/REST.pm | |
| parent | 8d0665daac0c4deea67bf39bf4a13a9eaed51735 (diff) | |
| parent | 2dfda73eeb3eae2d4f894099754794ef07d060dd (diff) | |
This commit was generated by cvs2svn to compensate for changes in r8593,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'rt/lib/RT/Interface/REST.pm')
| -rw-r--r-- | rt/lib/RT/Interface/REST.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/rt/lib/RT/Interface/REST.pm b/rt/lib/RT/Interface/REST.pm index bb2bf24bb..9fef6f896 100644 --- a/rt/lib/RT/Interface/REST.pm +++ b/rt/lib/RT/Interface/REST.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC # <jesse@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -24,7 +24,7 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA # 02110-1301 or visit their web page on the internet at -# http://www.gnu.org/copyleft/gpl.html. +# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. # # # CONTRIBUTION SUBMISSION POLICY: @@ -56,7 +56,7 @@ BEGIN { use Exporter (); use vars qw($VERSION @ISA @EXPORT); - $VERSION = do { my @r = (q$Revision: 1.1.1.6 $ =~ /\d+/g); sprintf "%d."."%02d"x$#r, @r }; + $VERSION = do { my @r = (q$Revision: 1.1.1.7 $ =~ /\d+/g); sprintf "%d."."%02d"x$#r, @r }; @ISA = qw(Exporter); @EXPORT = qw(expand_list form_parse form_compose vpush vsplit); @@ -125,7 +125,8 @@ sub form_parse { elsif ($state <= 1 && $line =~ /^($field):(?:\s+(.*))?$/i) { # Read a field: value specification. my $f = $1; - my @v = ($2 || ()); + my @v = ($2); + $v[0] = '' unless defined $v[0]; # Read continuation lines, if any. while (@lines && ($lines[0] eq '' || $lines[0] =~ /^\s+/)) { @@ -140,6 +141,8 @@ sub form_parse { } s/^$ws// foreach @v; + shift @v while (@v && $v[0] eq ''); + push(@$o, $f) unless exists $k->{$f}; vpush($k, $f, join("\n", @v)); |