stas 2004/05/01 16:53:19
Modified: src/docs/general/testing testing.pod
Log:
better filename choice
Revision Changes Path
1.33 +1 -1 modperl-docs/src/docs/general/testing/testing.pod
Index: testing.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/general/testing/testing.pod,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -u -r1.32 -r1.33
--- testing.pod 1 May 2004 23:49:38 -0000 1.32
+++ testing.pod 1 May 2004 23:53:19 -0000 1.33
@@ -1242,7 +1242,7 @@
response part, using the following translation:
(my $tmp = $path) =~ s{t/[^/]+/(.*).pm}{$1.t};
- my $path = catfile 't',
+ my $client_file = catfile 't',
map { s/^test//i; lc $_ } split '::', $tmp;
Notice that the leading C</^test/> part is removed. Here are some
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
