"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Date/Calc/Object.pm" between
Date-Calc-6.3.tar.gz and Date-Calc-6.4.tar.gz

About: Date-Calc - Gregorian calendar date calculations (C library and Perl module).

Object.pm  (Date-Calc-6.3):Object.pm  (Date-Calc-6.4)
############################################################################### ###############################################################################
## ## ## ##
## Copyright (c) 2000 - 2009 by Steffen Beyer. ## ## Copyright (c) 2000 - 2015 by Steffen Beyer. ##
## All rights reserved. ## ## All rights reserved. ##
## ## ## ##
## This package is free software; you can redistribute it ## ## This package is free software; you can redistribute it ##
## and/or modify it under the same terms as Perl itself. ## ## and/or modify it under the same terms as Perl itself. ##
## ## ## ##
############################################################################### ###############################################################################
############################################################################### ###############################################################################
## ## ## ##
## Mottos of this module: ## ## Mottos of this module: ##
skipping to change at line 41 skipping to change at line 41
{ {
require Exporter; require Exporter;
require Date::Calc; require Date::Calc;
@ISA = qw(Exporter Date::Calc); @ISA = qw(Exporter Date::Calc);
@AUXILIARY = qw(shift_year shift_date shift_time shift_datetime); @AUXILIARY = qw(shift_year shift_date shift_time shift_datetime);
@EXPORT = @Date::Calc::EXPORT; @EXPORT = @Date::Calc::EXPORT;
@EXPORT_OK = (@Date::Calc::EXPORT_OK,@AUXILIARY); @EXPORT_OK = (@Date::Calc::EXPORT_OK,@AUXILIARY);
%EXPORT_TAGS = (all => [@Date::Calc::EXPORT_OK], %EXPORT_TAGS = (all => [@Date::Calc::EXPORT_OK],
aux => [@AUXILIARY], aux => [@AUXILIARY],
ALL => [@EXPORT_OK]); ALL => [@EXPORT_OK]);
$VERSION = '6.3'; $VERSION = '6.4';
Date::Calc->import(@Date::Calc::EXPORT,@Date::Calc::EXPORT_OK); Date::Calc->import(@Date::Calc::EXPORT,@Date::Calc::EXPORT_OK);
} }
sub shift_year sub shift_year
{ {
croak("internal error - parameter is not an ARRAY ref") if (ref($_[0]) ne 'A RRAY'); croak("internal error - parameter is not an ARRAY ref") if (ref($_[0]) ne 'A RRAY');
if (ref($_[0][0])) if (ref($_[0][0]))
{ {
if (ref($_[0][0]) eq 'ARRAY') if (ref($_[0][0]) eq 'ARRAY')
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS