From 792465c4d79f1366c622654ac1c930ce1ea50155 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 29 Nov 2013 16:31:45 -0500
Subject: [PATCH] Properly extract value.

---
 calendar-export.plx | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/calendar-export.plx b/calendar-export.plx
index 22bc3f0..7f35063 100755
--- a/calendar-export.plx
+++ b/calendar-export.plx
@@ -468,7 +468,8 @@ END_ICAL
 
       my $uidList = $entry->property('UID');
       DieLog("This entry has multiple UIDs: @{$uidList}") unless @$uidList == 1;
-      my $uid = $uidList->[0];
+      my $uid = $uidList->[0]->value;
+
       my $outputFile = File::Spec->catpath("", $icsOutputDir, "${uid}.ics");
       open(SINGLE_EVENT_ICAL, ">", $outputFile) or
         DieLog("Unable to overwrite $outputFile: $!", $LOCK_CLEANUP_CODE);