perl-Date-Manip/perl-Date-Manip-5.48-datez-rhbz248500.patch

39 lines
1.1 KiB
Diff
Raw Normal View History

2008-01-04 19:49:05 +00:00
diff -ru Date-Manip-5.48/Manip.pm Date-Manip-5.48-new/Manip.pm
--- Date-Manip-5.48/Manip.pm 2007-11-27 14:10:10.000000000 +0000
+++ Date-Manip-5.48-new/Manip.pm 2008-01-03 15:58:03.000000000 +0000
@@ -3561,6 +3561,7 @@
$tz=$ENV{'SYS$TIMEZONE_DIFFERENTIAL'}/3600.; # e.g. '-4' for EDT
}
}
+ push(@tz,$tz) if (defined $tz);
} else {
$tz=`date +%Z 2> /dev/null`;
chomp($tz);
@@ -3569,8 +3570,13 @@
chomp($tz);
$tz=(split(/\s+/,$tz))[4];
}
+ push(@tz,$tz) if (defined $tz);
+
+ # for international timezones
+ $tz=`date +%z 2> /dev/null`;
+ chomp($tz);
+ push(@tz,$tz) if (defined $tz);
}
- push(@tz,$tz) if (defined $tz);
} else {
# We need to satisfy taint checking, but also look in all the
# directories in @DatePath.
@@ -3585,6 +3591,11 @@
$tz=(split(/\s+/,$tz))[4];
}
push(@tz,$tz) if (defined $tz);
+
+ # for international timezones
+ $tz=`date +%z 2> /dev/null`;
+ chomp($tz);
+ push(@tz,$tz) if (defined $tz);
}
}