stas 01/12/20 01:39:28
Modified: perl-framework/Apache-Test/lib/Apache TestUtil.pm
Log:
- handle undef's in t_debug
Revision Changes Path
1.21 +1 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm
Index: TestUtil.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- TestUtil.pm 2001/12/13 19:00:40 1.20
+++ TestUtil.pm 2001/12/20 09:39:28 1.21
@@ -40,7 +40,7 @@
sub { @_ };
sub t_debug {
- print map {"# $_\n"} map {split /\n/} expand(@_);
+ print map {"# $_\n"} map {split /\n/} grep {defined} expand(@_);
}
sub t_write_file {
