← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/libcalendar-simple-perl/jaunty

« back to all changes in this revision

Viewing changes to lib/Calendar/Simple.pm

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2008-04-20 20:08:51 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080420200851-o391rsoismwqta5b
Tags: 1.20-1
* New upstream release.
* debian/copyright: adjust copyright notice.
* Refresh debian/rules, no functional changes; don't install almost empty
  README anymore.
* debian/control:
  - add libtest-pod-coverage-perl to Build-Depends-Indep
  - move libmodule-build-perl to Build-Depends
  - add /me to Uploaders

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Calendar/Simple.pm
1
 
# $Id: Simple.pm 39 2006-10-16 19:41:18Z dave $
 
1
# $Id: Simple.pm 44 2008-03-08 22:13:46Z dave $
2
2
 
3
3
=head1 NAME
4
4
 
23
23
 
24
24
package Calendar::Simple;
25
25
 
 
26
use 5.006;
26
27
use strict;
27
 
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
28
use warnings;
28
29
 
29
30
require Exporter;
30
31
 
31
 
@ISA = qw(Exporter);
 
32
our @ISA = qw(Exporter);
32
33
 
33
 
@EXPORT = qw(calendar);
34
 
@EXPORT_OK = qw(date_span);
35
 
$VERSION = '1.17';
 
34
our @EXPORT = qw(calendar);
 
35
our @EXPORT_OK = qw(date_span);
 
36
our $VERSION = sprintf "%d", '$Revision: 44 $ ' =~ /(\d+)/;
36
37
 
37
38
use Time::Local;
38
39
use Carp;
172
173
  }
173
174
 
174
175
  my $i = 0;
175
 
  while ($cal[0][$i] < $begin) {
 
176
  while (defined $cal[0][$i] and $cal[0][$i] < $begin) {
176
177
    $cal[0][$i++] = undef;
177
178
  }
178
179
 
181
182
  }
182
183
 
183
184
  $i = -1;
184
 
  while ($cal[-1][$i] > $end) {
 
185
  while (defined $cal[-1][$i] and $cal[-1][$i] > $end) {
185
186
    $cal[-1][$i--] = undef;
186
187
  }
187
188
 
254
255
 
255
256
=head1 COPYRIGHT
256
257
 
257
 
Copyright (C) 2002-2006, Magnum Solutions Ltd..  All Rights Reserved.
 
258
Copyright (C) 2002-2008, Magnum Solutions Ltd.  All Rights Reserved.
 
259
 
 
260
=head1 LICENSE
258
261
 
259
262
This script is free software; you can redistribute it and/or
260
263
modify it under the same terms as Perl itself.