r77273 - in /branches/upstream/libdate-ical-perl/current: META.yml lib/Date/ICal.pm

[ansgar at users.alioth.debian.org]

Author: ansgar
Date: Fri Jul  8 22:09:00 2011
New Revision: 77273

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77273
Log:
[svn-upgrade] new version libdate-ical-perl (2.678)

Modified:
    branches/upstream/libdate-ical-perl/current/META.yml
    branches/upstream/libdate-ical-perl/current/lib/Date/ICal.pm

Modified: branches/upstream/libdate-ical-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdate-ical-perl/current/META.yml?rev=77273&op=diff
==============================================================================
--- branches/upstream/libdate-ical-perl/current/META.yml (original)
+++ branches/upstream/libdate-ical-perl/current/META.yml Fri Jul  8 22:09:00 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Date-ICal
-version:            2.649
+version:            2.678
 abstract:           ~
 author:  []
 license:            unknown

Modified: branches/upstream/libdate-ical-perl/current/lib/Date/ICal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdate-ical-perl/current/lib/Date/ICal.pm?rev=77273&op=diff
==============================================================================
--- branches/upstream/libdate-ical-perl/current/lib/Date/ICal.pm (original)
+++ branches/upstream/libdate-ical-perl/current/lib/Date/ICal.pm Fri Jul  8 22:09:00 2011
@@ -1,9 +1,9 @@
-# $Rev: 649 $
+# $Rev: 678 $
 package Date::ICal;
 use strict;
 
 use vars qw($VERSION $localzone $localoffset @months @leapmonths %add_units);
-$VERSION = '2.'.(qw'$Rev: 649 $')[1];
+$VERSION = '2.'.(qw'$Rev: 678 $')[1];
 use Carp;
 use Time::Local;
 use Date::Leapyear qw();
@@ -24,7 +24,7 @@
 
 =head1 VERSION
 
-$Revision: 649 $
+$Revision: 678 $
 
 =head1 SYNOPSIS
 
@@ -49,8 +49,8 @@
 
     $ical += 'P6DT12H';
 
-    $duration = $ical1 - $ical2;
-    $ical3 = $ical1 - $duration;
+    $duration = $ical - $ical2;
+    $ical3 = $ical - $duration;
 
 =head1 DESCRIPTION
 
@@ -815,9 +815,9 @@
     # we should subtract and get a date
         return $date1 - $dur; # Is that cheating?
 
-    # Otherwise, we should call them nasty names and return undef
+    # Otherwise, return undef
     } else {
-        warn "Moron";
+        warn "Invalid arguments. You can subtract a date from a date, or a duration from a date";
         return;
     }