[Rt-commit] r4468 - in Data-ICal: .

[glasser at bestpractical.com]

Author: glasser
Date: Fri Feb  3 12:26:53 2006
New Revision: 4468

Modified:
   Data-ICal/   (props changed)
   Data-ICal/lib/Data/ICal.pm

Log:
 r53602 at david-glassers-powerbook-g4-15:  glasser | 2006-02-03 12:25:28 -0500
 Mandate inclusion of VERSION property


Modified: Data-ICal/lib/Data/ICal.pm
==============================================================================
--- Data-ICal/lib/Data/ICal.pm	(original)
+++ Data-ICal/lib/Data/ICal.pm	Fri Feb  3 12:26:53 2006
@@ -151,6 +151,10 @@
     }
 
     my $version = $self->property("version")->[0]->value;
+    unless (defined $version) {
+        return $self->_error("data does not specify a version property");
+    } 
+
     if ($version eq '1.0' and not $self->vcal10 or
         $version eq '2.0' and $self->vcal10) {
         return $self->_error('application claims data is' .