RPC storePage parentId should handle string type

#!/opt/local/bin/perl
use strict;
use XMLRPC::Lite;
my $username="admin";
my $password="admin";
my $baseurl="http://localhost:8080";
my $spaceKey="ds";
my $pageTitle="Confluence Overview"; 
my $confluence = XMLRPC::Lite->proxy("$baseurl/rpc/xmlrpc");
my $token = $confluence->call("confluence1.login", $username, $password)->result();
my $parentPage = $confluence->call("confluence1.getPage", $token, $spaceKey, $pageTitle)->result();
my $newpage = {
    space => $spaceKey,
    title => "New Child Page",
    content => "Content",
    parentId => $parentPage->{id},
  };
my $createdpage = $confluence->call("confluence1.storePage", $token, $newpage)->result();
die "could not create child page" unless $createdpage;

    public Hashtable storePage(String token, Hashtable pageStruct) throws RemoteException
    {
        // ...
        if (pageStruct.containsKey("parentId"))
            pageStruct.put("parentId", new Long((String) pageStruct.get("parentId")));
        // ...
    }