From ce206df5685abd12f5769778049b81d72f5a75d3 Mon Sep 17 00:00:00 2001
From: Ralph Castain <rhc@open-mpi.org>
Date: Wed, 29 Apr 2009 17:58:35 +0000
Subject: [PATCH] Fix the danged ziatest - thx to Jeff, the mighty perl guru!

This commit was SVN r21116.
---
 orte/test/mpi/ziatest.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/orte/test/mpi/ziatest.pl b/orte/test/mpi/ziatest.pl
index b409814659..0b41657140 100755
--- a/orte/test/mpi/ziatest.pl
+++ b/orte/test/mpi/ziatest.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
-use Time::HiRes qw( gettimeofday );
-($sec, $microsec) = gettimeofday;
-$cmd = "mpirun -npernode " . @ARGV[0] . " ./ziatest " . " $sec " . $microsec;
+push(@INC, $ENV{HOME}."/my-perl-mods");
+require Time::HiRes;
+($s, $usec) = Time::HiRes::gettimeofday();
+$cmd = "mpirun -npernode " . @ARGV[0] . " ./ziatest " . " $s " . $usec;
 system($cmd);