Perl version error trying to upgrade shared-mime-info

[ClintO (Clint O)]

checking for perl >= 5.8.1... 5.10.1
checking for XML::Parser... configure: error: XML::Parser perl module is required for intltool
Error: Target org.macports.configure returned: configure failure: shell command " cd "/opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_release_ports_devel_shared-mime-info/work/shared-mime-info-0.71" && ./configure --prefix=/opt/local --disable-update-mimedb " returned error 1
DEBUG: Backtrace: configure failure: shell command " cd "/opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_release_ports_devel_shared-mime-info/work/shared-mime-info-0.71" && ./configure --prefix=/opt/local --disable-update-mimedb " returned error 1
    while executing
"$procedure $targetname"
Warning: the following items did not execute (for shared-mime-info): org.macports.destroot org.macports.configure org.macports.build
DEBUG: couldn't read file "/opt/local/share/macports/Tcl/darwintrace1.0/pkgIndex.tcl": no such file or directory
    while executing
"source [file join $dir pkgIndex.tcl]"
Error: Unable to upgrade port: 1

I have the XML parser installed, so I'm not sure how to satisfy the port system to make this work.