Author: tim.bunce
Date: Wed Oct 29 15:40:49 2008
New Revision: 575
Added:
trunk/xt/test71-while.p
Modified:
trunk/Makefile.PL
Log:
Add test to demonstrate wrong line numbers given to subs called in
while(condition).
(added to xt/ since I'm not sure if it's perl version sensitive)
Added xt/ directory to Makefile.PL clean clause.
Modified: trunk/Makefile.PL
==============================================================================
--- trunk/Makefile.PL (original)
+++ trunk/Makefile.PL Wed Oct 29 15:40:49 2008
@@ -115,7 +115,11 @@
EXE_FILES => ['bin/nytprofhtml', 'bin/nytprofcsv'],
@man,
INC => $INCLUDE,
- clean => {FILES => "t/nytprof_t.out nytprof t/nytprof.out t/*.outdir
t/test*.*.new t/auto demo-out"},
+ clean => { FILES => join " ",
+ "nytprof demo-out",
+ map { ("t/$_", "xt/$_") }
+ qw(nytprof_t.out nytprof.out *.outdir test*.*.new auto)
+ },
dist => {
DIST_DEFAULT => 'clean distcheck disttest tardist',
PREOP => '$(MAKE) -f Makefile.old distdir',
Added: trunk/xt/test71-while.p
==============================================================================
--- (empty file)
+++ trunk/xt/test71-while.p Wed Oct 29 15:40:49 2008
@@ -0,0 +1,18 @@
+$a = 2;
+
+sub A { }
+sub B { }
+sub C { --$a }
+
+$a = 2;
+while ( C() ) {
+ A();
+}
+
+$a = 2;
+while ( C() ) {
+ A();
+}
+continue {
+ B();
+}
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [EMAIL PROTECTED]
-~----------~----~----~----~------~----~------~--~---
