CPAN
view release on metacpan or search on metacpan
Mails went out through sendmail.
Mailq is empty. But the mails did not come back to me on the
subscription address. Nor to Google
http://groups.google.com/group/perl.cpan.testers/topics?lnk=srg
Let me compare the 3 mails above with the last mail before that. It was
about BPAN. A bad one with Mail::Send:
# egrep 'l6L5ZkbD030283' /var/log/mail.info
Jul 21 07:35:46 k75 sendmail[30283]: l6L5ZkbD030283: from=sand, size=5897, class=0, nrcpts=1, msgid=<200707210535.l6L5ZkbD030283@k75.linux.bogus>, relay=sand@localhost
Jul 21 07:35:46 k75 sm-mta[30284]: l6L5Zk0d030284: from=<sand@k75.linux.bogus>, size=6121, class=0, nrcpts=1, msgid=<200707210535.l6L5ZkbD030283@k75.linux.bogus>, proto=ESMTP, daemon=MSA, relay=localhost.localdomain [127.0.0.1]
Jul 21 07:35:46 k75 sendmail[30283]: l6L5ZkbD030283: to=cpan-testers@perl.org, ctladdr=sand (1005/1005), delay=00:00:00, xdelay=00:00:00, mailer=relay, pri=35897, relay=[127.0.0.1] [127.0.0.1], dsn=2.0.0, stat=Sent (l6L5Zk0d030284 Message accepted fo...
Jul 21 07:35:59 k75 sm-mta[30286]: l6L5Zk0d030284: to=<cpan-testers@perl.org>, ctladdr=<sand@k75.linux.bogus> (1005/1005), delay=00:00:13, xdelay=00:00:13, mailer=esmtp, pri=126121, relay=mx.develooper.com. [63.251.223.176], dsn=2.0.0, stat=Sent (Que...
And a good one with Net::SMTP:
# egrep 'l6L5MQN5027327' /var/log/mail.info
Jul 21 07:22:26 k75 sm-mta[27327]: l6L5MQN5027327: from=<andreas.koenig.gmwojprw@franz.ak.mind.de>, size=4884, class=0, nrcpts=1, msgid=<200707210522.l6L5MQN5027327@franz.ak.mind.de>, proto=ESMTP, daemon=MTA, relay=localhost.localdomain [127.0.0.1]
Jul 21 07:22:39 k75 sm-mta[27329]: l6L5MQN5027327: to=<cpan-testers@perl.org>, delay=00:00:13, xdelay=00:00:12, mailer=esmtp, pri=124884, relay=mx.develooper.com. [63.251.223.176], dsn=2.0.0, stat=Sent (Queued! 1184995359 qp 21633 <200707210522.l6L5M...
Too obvious. CPAN::Reporter or Test::Reporter is unable to set the from
address when switching to Mail::Send.
Stepping through the debugger. Test::Reporter::_mail_send line 344 sets
the From correctly. Later Mail::Send passes itself over to Mail::Mailer
DB<14> n
2007-06-19 Andreas J. Koenig <andreas.koenig.7os6VVqR@franz.ak.mind.de>
* DBI 1.57 needs a binary search and I cannot compile perls between
20373 and 20575. They all fail with
cc -L/usr/local/lib -o miniperl \
miniperlmain.o opmini.o libperl.a -lnsl -ldl -lm -lcrypt -lutil -lc
libperl.a(mg.o): In function `Perl_magic_set':
/home/src/perl/repoperls/perl-p-5.8.0@20573/mg.c:2215: undefined reference to `setruid'
/home/src/perl/repoperls/perl-p-5.8.0@20573/mg.c:2269: undefined reference to `setrgid'
/home/src/perl/repoperls/perl-p-5.8.0@20573/mg.c:2364: undefined reference to `setproctitle'
libperl.a(pp_sys.o): In function `Perl_pp_fteread':
/home/src/perl/repoperls/perl-p-5.8.0@20573/pp_sys.c:2949: undefined reference to `eaccess'
libperl.a(pp_sys.o): In function `Perl_pp_ftewrite':
/home/src/perl/repoperls/perl-p-5.8.0@20573/pp_sys.c:2976: undefined reference to `eaccess'
libperl.a(pp_sys.o): In function `Perl_pp_fteexec':
/home/src/perl/repoperls/perl-p-5.8.0@20573/pp_sys.c:3003: undefined reference to `eaccess'
collect2: ld returned 1 exit status
So we could try to replace mg.c and pp_sys.c with later versions? We
again.
Where were mg.c changes?
./bin/blame-helper.pl --diffdir APC/5.9.0/diffs --lower 20400 --upper 24009 mg.c
As expected, I cannot compile 20829 either. As all this is highly
unlikely to help we should rather look into config.sh:
Maybe I should try to add to --config '-Ud_eaccess -Ud_setruid
-Ud_setrgid -Ud_setproctitle'? I think I did that before. Because we
have the directories already I edit the config.sh to the same effect and
run make again. I do this in 20474. Yes this is the way to go.
Lets write this in perl:
perl -pi~ -e 's/define/undef/ if /^d_(eaccess|setruid|setrgid|setproctitle)=/' config.sh
----Program----
eval q{use DBI 1.57};
print $@ ? "N/A" : "OK";
print "\n";
----Output of .../pCkomOb/perl-5.8.0@20556/bin/perl----
OK
----EOF ($?='0')----
lib/CPAN/FTP.pm view on Meta::CPAN
chmod $stat[2], $dest
or $CPAN::Frontend->mywarn("Can't chmod '$dest' to " . sprintf("0%o", $stat[2]) . ": $!\n");
};
warn $@ if $@;
eval {
chown $stat[4], $stat[5], $dest
or do {
my $save_err = $!; # otherwise it's lost in the get... calls
$CPAN::Frontend->mywarn("Can't chown '$dest' to " .
(getpwuid($stat[4]))[0] . "/" .
(getgrgid($stat[5]))[0] . ": $save_err\n"
);
};
};
warn $@ if $@;
}
# if file is CHECKSUMS, suggest the place where we got the file to be
# checked from, maybe only for young files?
#-> sub CPAN::FTP::_recommend_url_for
sub _recommend_url_for {
lib/CPAN/FTP.pm view on Meta::CPAN
$CPAN::Frontend->mysleep(2);
HOSTHARDEST: for $ro_url (@$host_seq) {
$self->_set_attempt($stats,"dlhardest",$ro_url);
my $url = "$ro_url$file";
$self->debug("localizing ftpwise[$url]") if $CPAN::DEBUG;
unless ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
next;
}
my($host,$dir,$getfile) = ($1,$2,$3);
my $timestamp = 0;
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
$ctime,$blksize,$blocks) = stat($aslocal);
$timestamp = $mtime ||= 0;
my($netrc) = CPAN::FTP::netrc->new;
my($netrcfile) = $netrc->netrc;
my($verbose) = $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG ? " -v" : "";
my $targetfile = File::Basename::basename($aslocal);
my(@dialog);
push(
@dialog,
"lcd $aslocal_dir",
lib/CPAN/FTP.pm view on Meta::CPAN
$CPAN::Frontend->myprint(qq{
Trying with external ftp to get
'$url'
$netrc_explain
Sending the dialog
$dialog
}
);
$self->talk_ftp("$ftpbin$verbose $host",
@dialog);
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal);
$mtime ||= 0;
if ($mtime > $timestamp) {
$CPAN::Frontend->myprint("GOT $aslocal\n");
$ThesiteURL = $ro_url;
return $aslocal;
} else {
$CPAN::Frontend->myprint("Hmm... Still failed!\n");
}
return if $CPAN::Signal;
lib/CPAN/FTP.pm view on Meta::CPAN
);
my $dialog = join "", map { " $_\n" } @dialog;
$CPAN::Frontend->myprint(qq{
Trying with external ftp to get
$url
Sending the dialog
$dialog
}
);
$self->talk_ftp("$ftpbin$verbose -n", @dialog);
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal);
$mtime ||= 0;
if ($mtime > $timestamp) {
$CPAN::Frontend->myprint("GOT $aslocal\n");
$ThesiteURL = $ro_url;
return $aslocal;
} else {
$CPAN::Frontend->myprint("Bad luck... Still failed!\n");
}
return if $CPAN::Signal;
lib/CPAN/FTP.pm view on Meta::CPAN
Subprocess "|$command"
returned status $estatus (wstat $wstatus)
}) if $wstatus;
}
# find2perl needs modularization, too, all the following is stolen
# from there
# CPAN::FTP::ls
sub ls {
my($self,$name) = @_;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$sizemm,
$atime,$mtime,$ctime,$blksize,$blocks) = lstat($name);
my($perms,%user,%group);
my $pname = $name;
if ($blocks) {
$blocks = int(($blocks + 1) / 2);
}
else {
$blocks = int(($sizemm + 1023) / 1024);
lib/CPAN/FTP.pm view on Meta::CPAN
$tmpmode >>= 3;
$tmp = $rwx[$tmpmode & 7] . $tmp;
$tmpmode >>= 3;
$tmp = $rwx[$tmpmode & 7] . $tmp;
substr($tmp,2,1) =~ tr/-x/Ss/ if -u _;
substr($tmp,5,1) =~ tr/-x/Ss/ if -g _;
substr($tmp,8,1) =~ tr/-x/Tt/ if -k _;
$perms .= $tmp;
my $user = $user{$uid} || $uid; # too lazy to implement lookup
my $group = $group{$gid} || $gid;
my($sec,$min,$hour,$mday,$mon,$year) = localtime($mtime);
my($timeyear);
my($moname) = $moname[$mon];
if (-M _ > 365.25 / 2) {
$timeyear = $year + 1900;
}
else {
$timeyear = sprintf("%02d:%02d", $hour, $min);
}
lib/CPAN/FTP/netrc.pm view on Meta::CPAN
package CPAN::FTP::netrc;
use strict;
$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01";
# package CPAN::FTP::netrc;
sub new {
my($class) = @_;
my $file = File::Spec->catfile($ENV{HOME},".netrc");
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($file);
$mode ||= 0;
my $protected = 0;
my($fh,@machines,$hasdefault);
$hasdefault = 0;
$fh = FileHandle->new or die "Could not create a filehandle";
if($fh->open($file)) {
lib/CPAN/Tarzip.pm view on Meta::CPAN
}
}
return 1;
} else {
return 1;
}
} elsif ($prefer==2) { # 2 => modules
unless ($CPAN::META->has_usable("Archive::Tar")) {
$CPAN::Frontend->mydie("Archive::Tar not installed, please install it to continue");
}
# Make sure AT does not use uid/gid/permissions in the archive
# This leaves it to the user's umask instead
local $Archive::Tar::CHMOD = 1;
local $Archive::Tar::SAME_PERMISSIONS = 0;
# Make sure AT leaves current user as owner
local $Archive::Tar::CHOWN = 0;
my $tar = Archive::Tar->new($file,1);
my $af; # archive file
my @af;
if ($BUGHUNTING) {
# RCS 1.337 had this code, it turned out unacceptable slow but
( run in 2.276 seconds using v1.01-cache-2.11-cpan-97f6503c9c8 )