added call to tzset to activate TZ settings -- Paul A Vixie <vixie@vix.com>

git-svn-id: svn://svn.oetiker.ch/rrdtool/trunk/program@112 a5681a0c-68f1-0310-ab6d-d61299d08faa

diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index d8eef7e..d567d07 100644 (file)
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -5,6 +5,7 @@ extern "C" {
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
+#include <time.h>
 
 #ifdef __cplusplus
 }
@@ -138,6 +139,7 @@ rrd_graph(...)
                }
                optind=0; opterr=0; 
                rrd_clear_error();
+                tzset();
                rrd_graph(items+1,argv,&calcpr,&xsize,&ysize); 
                for (i=0; i < items; i++) {
                    free(argv[i+1]);