[GT] SVN Commit r590 - trunk/GT

[GeniusTrader SVN <raphael AT geniustrader.org>]

Author: thomas
Date: 2008-03-23 05:53:51 +0100 (Sun, 23 Mar 2008)
New Revision: 590

Modified:
   trunk/GT/Prices.pm
Log:
Load Date::Manip only if requested.

Modified: trunk/GT/Prices.pm
===================================================================
--- trunk/GT/Prices.pm	2008-03-23 04:39:32 UTC (rev 589)
+++ trunk/GT/Prices.pm	2008-03-23 04:53:51 UTC (rev 590)
@@ -11,7 +11,6 @@
 #ALL#  use Log::Log4perl qw(:easy);
 use GT::DateTime;
 use GT::Serializable;
-use Date::Manip;
 
 require Exporter;
 @ISA = qw(Exporter GT::Serializable);
@@ -357,6 +356,7 @@
 		    ($year, $month, $day) = Decode_Date_EU($date);
 		}
 		if ($date_format eq 3) {
+		  use Date::Manip;
 		  #Date::Manip requires this to be defined
 		  #there probably is a better way of doing this
 		  #rather than defining it here, but it works