[PVFS2-CVS] commit by pw in pvfs2/test/common/pav: pav_dist

[CVS commit program]

Update of /projects/cvsroot/pvfs2/test/common/pav
In directory parlweb:/tmp/cvs-serv4194/test/common/pav

Modified Files:
	pav_dist 
Log Message:
avoid multiple copies to same nodes


Index: pav_dist
===================================================================
RCS file: /projects/cvsroot/pvfs2/test/common/pav/pav_dist,v
diff -u -p -u -r1.4 -r1.5
--- pav_dist	10 Aug 2004 15:38:37 -0000	1.4
+++ pav_dist	29 Sep 2004 18:25:21 -0000	1.5
@@ -97,7 +97,7 @@ sub copy_directory {
 
     my $cmd = $href->{'WORKINGDIR'} . " %node:$remote_dir";
 
-    my @nodes = (@ionodes, at compnodes, at metanodes);
+    my @nodes = uniq(sort(@ionodes, at compnodes, at metanodes));
     print "DIST: ON @nodes\n";
     $rc = do_remote_command($href->{'RCPPROG'} . " -r", 8, 60, $cmd, undef, undef, @nodes);