Author: tim.bunce
Date: Sun Jul 12 10:57:24 2009
New Revision: 821
Modified:
trunk/demo/demo-run.pl
Log:
Detect error writing to pipe to demo script
Modified: trunk/demo/demo-run.pl
==============================================================================
--- trunk/demo/demo-run.pl (original)
+++ trunk/demo/demo-run.pl Sun Jul 12 10:57:24 2009
@@ -35,7 +35,8 @@
print $fh "$_\n" for (1..10);
sleep 2;
print $fh "$_\n" for (1..10);
- close $fh;
+ close $fh
+ or die "Error closing pipe to $cmd: $!\n";
my $outdir = "demo-out/profiler-$run";
system("rm -rf $outdir") == 0 or 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]
-~----------~----~----~----~------~----~------~--~---
