Author: thatsafunnyname
Date: Thu Mar 26 07:01:27 2009
New Revision: 727
Modified:
trunk/MANIFEST
trunk/t/50-errno.t
Log:
On VMS fflush() does not fsync() to disk, have to skip this to avoid
infinite loop.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Thu Mar 26 07:01:27 2009
@@ -150,3 +150,4 @@
xt/test45-overload.p
xt/test71-while.p
xt/test90-stress.p
+META.yml Module meta-data (added by
MakeMaker)
Modified: trunk/t/50-errno.t
==============================================================================
--- trunk/t/50-errno.t (original)
+++ trunk/t/50-errno.t Thu Mar 26 07:01:27 2009
@@ -32,11 +32,15 @@
is 0+$!, 9999, "\$! should not be altered by assigning fids to previously
unprofiled modules ($!)";
$! = 9999;
-while (-s $nytprof_out == $size1) {
- # execute lots of statements to force some i/o even if zipping
- busy();
+
+SKIP: {
+ skip 'On VMS buffer does not flush', 1 if($^O eq 'VMS');
+ while (-s $nytprof_out == $size1) {
+ # execute lots of statements to force some i/o even if zipping
+ busy();
+ }
+ is 0+$!, 9999, '$! should not be altered by NYTProf i/o';
}
-is 0+$!, 9999, '$! should not be altered by NYTProf i/o';
exit 0;
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
