This fixes a problem where darcs tries to update it while perl has it
open. On Windows this fails. Spotted by Claus Reinke.
my $localpath;
my $path;
my $tag;
my $localpath;
my $path;
my $tag;
open IN, "< packages" or die "Can't open packages file";
open IN, "< packages" or die "Can't open packages file";
+ @repos = <IN>;
+ close IN;
+
+ foreach (@repos) {
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
my $remotepath;
my $path;
my $tag;
my $remotepath;
my $path;
my $tag;
if (! grep /(?:--complete|--partial)/, @_) {
warning("adding --partial, to override use --complete");
if (! grep /(?:--complete|--partial)/, @_) {
warning("adding --partial, to override use --complete");
}
open IN, "< packages" or die "Can't open packages file";
}
open IN, "< packages" or die "Can't open packages file";
+ @repos = <IN>;
+ close IN;
+
+ foreach (@repos) {
chomp;
if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
chomp;
if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
my $remotepath;
my $path;
my $tag;
my $remotepath;
my $path;
my $tag;
open IN, "< packages" or die "Can't open packages file";
open IN, "< packages" or die "Can't open packages file";
+ @repos = <IN>;
+ close IN;
+
+ foreach (@repos) {
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;