Skip Menu |
 

This queue is for tickets about the File-Slurp CPAN distribution.

Report information
The Basics
Id: 16943
Status: resolved
Priority: 0/
Queue: File-Slurp

People
Owner: uri [...] sysarch.com
Requestors: muir [...] idiom.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 9999.09
Fixed in: (no value)



Subject: API change of read_dir()
Download (untitled) / with headers
text/plain 828b
You've changed the API of File::Slurp::read_dir(). This broke some of my production code. I consider this to be contrary to our agreement. How many other people's code did you break too? What it broke was my postfix mailq summerizer: #!/usr/bin/perl my $qdgp = "/var/spool/postfix"; my @qdp = qw(active deferred incoming hold corrupt maildrop); my @sd = (qw(0 1 2 3 4 5 6 7 8 9 A B C D E F)); use File::Slurp; print "postfix queue sizes:\n"; my $t = 0; for my $qdp (@qdp) { my $c = 0; if (-e "$qdgp/$qdp/0") { for my $sd (@sd) { $c += scalar(read_dir("$qdgp/$qdp/$sd")); } } else { $c = scalar(read_dir("$qdgp/$qdp")); } $t += $c; printf "%9s% 8d\n", "$qdp:", $c; } printf "%9s% 8d\n", "total:", $t;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.