Re: big bug in Date::Calc?

[choroba]

Use strict and warnings. Do not use global variables.

#!/usr/bin/perl
use warnings;
use strict;

use Date::Calc qw ( Monday_of_Week Add_Delta_Days );

sub weekToDays {
    my $week = shift;
    my $year = shift;

    my ($year2, $month, $day) = Monday_of_Week($week, $year);

    my ($y, $m, $d) = Add_Delta_Days( Monday_of_Week($week, $year), 6)
+; # Not $year2 here!

    return "$day/$month/$year2 to $d/$m/$y";
}
print "First week of 2013: ".weekToDays ( 1, 2013) ."\n" ;
print "Second week of 2013: ".weekToDays ( 2, 2013) ."\n" ;

Output:

First week of 2013: 31/12/2012 to 6/1/2013
Second week of 2013: 7/1/2013 to 13/1/2013

Update: You can even avoid calling the function again when you already know the result:

my ($y, $m, $d) = Add_Delta_Days($year2, $month, $day, 6);