[Bps-public-commit] Business-Hours branch, master, updated. 0.09_02-1-g935432e

[? sunnavy]

The branch, master has been updated
       via  935432e9eedcb68af7fec59362177d5e99aa6dd2 (commit)
      from  dca149599fe76c10cd3b44cf12ccec0b13a22cc9 (commit)

Summary of changes:
 lib/Business/Hours.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 935432e9eedcb68af7fec59362177d5e99aa6dd2
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Wed Oct 19 14:19:32 2011 +0800

    fix cases of "foreach my $foo qw(...) { ... }"
    
    this syntax is deprecated in perl 5.14

diff --git a/lib/Business/Hours.pm b/lib/Business/Hours.pm
index 3261f70..7331b46 100644
--- a/lib/Business/Hours.pm
+++ b/lib/Business/Hours.pm
@@ -227,7 +227,7 @@ sub for_timespan {
     foreach my $day ( keys %$bizdays ) {
 	# Kept for (retro)compatibility
         my $day_href = $bizdays->{$day};
-        foreach my $which qw(Start End) {
+        foreach my $which (qw(Start End)) {
             if (   $day_href->{$which}
                 && $day_href->{$which} =~ /^(\d+)\D(\d+)$/ )
             {
@@ -241,7 +241,7 @@ sub for_timespan {
 	    for ($i = 0; $i < @{$bizdays->{$day}->{'Breaks'}}; $i++) {
 		if ($bizdays->{$day}->{'Breaks'}[$i]) {
 		    my $day_href = $bizdays->{$day}->{'Breaks'}[$i];
-		    foreach my $which qw(Start End) {
+		    foreach my $which (qw(Start End)) {
 			if (   $day_href->{$which}
 			       && $day_href->{$which} =~ /^(\d+)\D(\d+)$/ )
 			{

-----------------------------------------------------------------------