Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Transform/PostToDOM.pm @ 152:1e7f03414b65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM: schema improvements DOM: saving to XML::Writer feature
author wizard
date Thu, 23 Sep 2010 03:58:43 +0400
parents e36ffd8c29db
children c7652cf29a80
comparison
equal deleted inserted replaced
151:e36ffd8c29db 152:1e7f03414b65
73 my $data={}; 73 my $data={};
74 74
75 my $prefix = $this->prefix; 75 my $prefix = $this->prefix;
76 76
77 foreach my $param (grep index($_,$prefix) >= 0 , $query->param()) { 77 foreach my $param (grep index($_,$prefix) >= 0 , $query->param()) {
78 my $value = $query->param($param) or next; 78 defined (my $value = $query->param($param)) or next;
79 79
80 my @parts = split /\//,$param; 80 my @parts = split /\//,$param;
81 81
82 my $node = $data; 82 my $node = $data;
83 while ( my $part = shift @parts ) { 83 while ( my $part = shift @parts ) {