- Manually add an XML header to the metadata

diff --git a/videosite/VimeoGrabber.pm b/videosite/VimeoGrabber.pm
index 3e8ce6a..d09f4b2 100644 (file)
--- a/videosite/VimeoGrabber.pm
+++ b/videosite/VimeoGrabber.pm
@@ -57,6 +57,9 @@ sub _parse {
         return undef;
     }
 
+    # There is no XML header in the data, which makes XML::Simple unhappy
+    $content = '<?xml version="1.0" encoding="UTF-8"?>' . $content;
+
     unless(defined($t = $p->XMLin($content, KeepRoot => 1))) {
         $self->error('Could not parse XML metadata');
         return undef;