# wait for other processes to be done
flock($lockfh, LOCK_EX) or die "lock failed: $!\n";
+ local $/ = "\n";
chomp($self->{tip} = $git->qx(qw(rev-parse --revs-only), $self->{ref}));
my @cmd = ('git', "--git-dir=$git_dir", qw(fast-import
my $desc = $self->{description};
return $desc if defined $desc;
$desc = try_cat("$self->{mainrepo}/description");
+ local $/ = "\n";
chomp $desc;
$desc =~ s/\s+/ /smg;
$desc = '($GIT_DIR/description missing)' if $desc eq '';
return $url if $url;
$url = try_cat("$self->{mainrepo}/cloneurl");
my @url = split(/\s+/s, $url);
+ local $/ = "\n";
chomp @url;
$self->{cloneurl} = \@url;
}
my $res = eval { $req->($self, @args) };
my $err = $@;
if ($err && !$self->{closed}) {
+ local $/ = "\n";
chomp($l);
err($self, 'error from: %s (%s)', $l, $err);
$res = '503 program fault - command not performed';
foreach my $cfg (@{$pms->{conf}->{list_mirror_check}}) {
my ($hdr, $hval, $host_re, $addr_re) = @$cfg;
my $v = $pms->get($hdr) or next;
+ local $/ = "\n";
chomp $v;
next if $v ne $hval;
return 1 if $recvd !~ $host_re;
my ($hdr, $hval, $host_re, $addr_re) = @$cfg;
defined $addr_re or next;
my $v = $pms->get($hdr) or next;
+ local $/ = "\n";
chomp $v;
next if $v ne $hval;
return 1 if !$tocc || $tocc !~ $addr_re;