r77275 - in /trunk/libdate-ical-perl: META.yml debian/changelog lib/Date/ICal.pm

[ansgar at users.alioth.debian.org]

Author: ansgar
Date: Fri Jul  8 22:13:43 2011
New Revision: 77275

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77275
Log:
New upstream release.

Modified:
    trunk/libdate-ical-perl/META.yml
    trunk/libdate-ical-perl/debian/changelog
    trunk/libdate-ical-perl/lib/Date/ICal.pm

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

Modified: trunk/libdate-ical-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdate-ical-perl/debian/changelog?rev=77275&op=diff
==============================================================================
--- trunk/libdate-ical-perl/debian/changelog (original)
+++ trunk/libdate-ical-perl/debian/changelog Fri Jul  8 22:13:43 2011
@@ -1,3 +1,9 @@
+libdate-ical-perl (2.678-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at debian.org>  Sat, 09 Jul 2011 00:13:36 +0200
+
 libdate-ical-perl (2.649-1) unstable; urgency=low
 
   * Team upload

Modified: trunk/libdate-ical-perl/lib/Date/ICal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdate-ical-perl/lib/Date/ICal.pm?rev=77275&op=diff
==============================================================================
--- trunk/libdate-ical-perl/lib/Date/ICal.pm (original)
+++ trunk/libdate-ical-perl/lib/Date/ICal.pm Fri Jul  8 22:13:43 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;
     }