Skip Menu |
 
Update: The rt.cpan.org bug tracker service is no longer shutting down.

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

Report information
The Basics
Id: 106045
Status: resolved
Priority: 0/
Queue: File-Path

People
Owner: jkeenan [...] cpan.org
Requestors: RICHE [...] cpan.org
Cc:
AdminCc:

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



Subject: _run_for_warning does not consume multiple messages
MIME-Version: 1.0
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline
X-RT-Interface: Web
Message-ID: <rt-4.0.18-5688-1437646032-1958.0-0-0 [...] rt.cpan.org>
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 2911
Download (untitled) / with headers
text/plain 2.8k
This issue is demonstrated in xt/extra.t where the retree test warning emits multiple messages, but only the first message is consumed. When $rv is dumped, only one message is shown. Without Data::Dumper: $ sudo perl -I lib/ xt/setup_tests.pl -i -u 503 $ perl -I lib/ xt/extra.t <snip> not ok 16 - rmtree with file owned by root # Failed test 'rmtree with file owned by root' # at xt/extra.t line 98. # 'cannot remove directory for xt/extra/3: Permission denied at xt/extra.t line 97. # ' # doesn't match '(?^:\Acannot make child directory read-write-exec for [^:]+: .* at (\S+) line (\d+)\.? # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot remove directory for [^:]+: .* at \1 line \2)' not ok 17 - rmtree with insufficient privileges # Failed test 'rmtree with insufficient privileges' # at xt/extra.t line 107. # 'cannot remove directory for xt/extra: Directory not empty at xt/extra.t line 106. # ' # doesn't match '(?^:\Acannot remove directory for [^:]+: .* at (\S+) line (\d+) </snip> With Data::Dumper: $ sudo rm -rf xt/extra $ sudo perl -I lib/ xt/setup_tests.pl -i -u 503 $ perl -I lib/ xt/extra.t <snip> not ok 16 - rmtree with file owned by root # Failed test 'rmtree with file owned by root' # at xt/extra.t line 98. # 'cannot remove directory for xt/extra/3: Permission denied at xt/extra.t line 97. # ' # doesn't match '(?^:\Acannot make child directory read-write-exec for [^:]+: .* at (\S+) line (\d+)\.? # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot remove directory for [^:]+: .* at \1 line \2)' $VAR1 = 'cannot remove directory for xt/extra/3: Permission denied at xt/extra.t line 97. '; not ok 17 - rmtree with insufficient privileges # Failed test 'rmtree with insufficient privileges' # at xt/extra.t line 109. # 'cannot remove directory for xt/extra: Directory not empty at xt/extra.t line 108. # ' # doesn't match '(?^:\Acannot remove directory for [^:]+: .* at (\S+) line (\d+) # cannot remove directory for [^:]+: .* at \1 line \2 # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot remove directory for [^:]+: .* at \1 line \2 # cannot unlink file for [^:]+: .* at \1 line \2 # cannot restore permissions to \d+ for [^:]+: .* at \1 line \2 # cannot make child directory read-write-exec for [^:]+: .* at \1 line \2 # cannot remove directory for [^:]+: .* at \1 line \2)' $VAR1 = 'cannot remove directory for xt/extra: Directory not empty at xt/extra.t line 108. '; </snip>
MIME-Version: 1.0
In-Reply-To: <rt-4.0.18-5688-1437646032-1958.0-0-0 [...] rt.cpan.org>
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline
X-RT-Interface: Web
References: <rt-4.0.18-5688-1437646032-1958.0-0-0 [...] rt.cpan.org>
Content-Type: text/plain; charset="utf-8"
Message-ID: <rt-4.0.18-19177-1437773523-1358.106045-0-0 [...] rt.cpan.org>
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 99


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.