39 lines
1.1 KiB
Diff
39 lines
1.1 KiB
Diff
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);
|
|
}
|
|
}
|
|
|