+sub darcsupstreampull {
+ my $localpath;
+ my $upstream;
+ my $line;
+
+ for $line (@packages) {
+ $localpath = $$line{"localpath"};
+ $upstream = $$line{"upstream"};
+
+ if ($upstream ne "-") {
+ if (-d $localpath) {
+ darcs ("pull", @_, "--repodir", $localpath, $upstream);
+ }
+ }
+ }
+}
+