Photos
Blog
Projects
vanrenterghem.biz
projects
/
git.ikiwiki.info.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
third-person or bust
[git.ikiwiki.info.git]
/
plugins
/
externaldemo
diff --git
a/plugins/externaldemo
b/plugins/externaldemo
index be7aba8b929807db3a6b56a6846e7d34b3c79a25..24861dcc91d4c9dfe44e4277e80ce357f1e56577 100755
(executable)
--- a/
plugins/externaldemo
+++ b/
plugins/externaldemo
@@
-8,7
+8,6
@@
use strict;
print STDERR "externaldemo plugin running as pid $$\n";
use RPC::XML;
print STDERR "externaldemo plugin running as pid $$\n";
use RPC::XML;
-use RPC::XML::Parser;
use IO::Handle;
# autoflush stdout
use IO::Handle;
# autoflush stdout
@@
-31,7
+30,19
@@
sub rpc_read {
$accum=$2; # the rest
# Now parse the XML RPC.
$accum=$2; # the rest
# Now parse the XML RPC.
- my $r = RPC::XML::Parser->new->parse($1);
+ my $parser;
+ eval q{
+ use RPC::XML::ParserFactory;
+ $parser = RPC::XML::ParserFactory->new;
+ };
+ if ($@) {
+ # old interface
+ eval q{
+ use RPC::XML::Parser;
+ $parser = RPC::XML::Parser->new;
+ };
+ }
+ my $r=$parser->parse($1);
if (! ref $r) {
die "error: XML RPC parse failure $r";
}
if (! ref $r) {
die "error: XML RPC parse failure $r";
}