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

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

diff --git a/program/bindings/perl-shared/RRDs.xs b/program/bindings/perl-shared/RRDs.xs
index d8eef7e07a6c4325abd049c9fcfba033119a22ce..d567d079e52d0ecfe7d5c36d0f5bedf7365277ca 100644 (file)
--- a/program/bindings/perl-shared/RRDs.xs
+++ b/program/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]);