Changeset 7869e48 for perl/modules/Jabber/lib/XML/Stream/Parser.pm
- Timestamp:
- Jan 12, 2013, 1:43:13 PM (11 years ago)
- Children:
- e3a0d71, 4485285
- Parents:
- 4626016
- git-author:
- Jason Gross <jgross@mit.edu> (01/12/13 13:13:18)
- git-committer:
- Jason Gross <jgross@mit.edu> (01/12/13 13:43:13)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/XML/Stream/Parser.pm
rc2bed55 r7869e48 324 324 $self->{CNAME}->[$self->{CURR}] = $name; 325 325 } 326 326 327 327 $self->{XML} = substr($self->{XML},$close+1,length($self->{XML})-$close-1); 328 328 next; … … 337 337 return $self->returnData(0); 338 338 } 339 339 340 340 &{$self->{HANDLER}->{characters}}($self,substr($self->{XML},9,$cdataclose-9)); 341 341 342 342 $self->{XML} = substr($self->{XML},$cdataclose+3,length($self->{XML})-$cdataclose-3); 343 343 next; … … 510 510 return unless ($self->{DOC} == 1); 511 511 512 if ($self->{STYLE} eq "debug") 512 if ($self->{STYLE} eq "debug") 513 513 { 514 514 my $str = $cdata; … … 530 530 push @{$self->{TREE}[$#{$self->{TREE}}]}, 0; 531 531 push @{$self->{TREE}[$#{$self->{TREE}}]}, $cdata; 532 } 532 } 533 533 } 534 534 }
Note: See TracChangeset
for help on using the changeset viewer.