Changeset 1140

Timestamp:

02/04/08 05:40:50 (10 months ago)

Author:

hachi

Message:

r1313@miyako: hachi | 2008-02-03 18:16:13 -0800
The 'pathcount' arg which exists in the server to allow us to requres more than the default (2) paths from mogilefsd was not being passed by the mogilefs client code, here's the fix.

Files:

• trunk/api/perl/MogileFS-Client/lib/MogileFS/Client.pm (modified) (3 diffs)

trunk/api/perl/MogileFS-Client/lib/MogileFS/Client.pm

@@ -537 +537 @@
-    # handle parameters, if any
-    my ($noverify, $zone);
+
+    my %extra_args;
+
-    if (ref $opts) {
-        $noverify = 1 if $opts->{noverify};
@@ -542 +545 @@
-    } else {
-        $noverify = 1 if $opts;
+    }
+
+    if (my $pathcount = delete $opts->{pathcount}) {
+        $extra_args{pathcount} = $pathcount;
-    }
-
@@ -552 +559 @@
-            noverify => $noverify ? 1 : 0,
-            zone   => $zone,
+            %extra_args,
-        }) or return ();
-