Nice!
Which device(s) does DiskFree.pm check for space on? I
occasionally run out of room in /tmp, so I would want it to
check my swap space.
Can we remove these? (All but the .pm and README files.)
trunk/lib/Filesys/Changes
trunk/lib/Filesys/MANIFEST
trunk/lib/Filesys/Makefile.PL
trunk/lib/Filesys/eg/
trunk/lib/Filesys/eg/perldf
trunk/lib/Filesys/eg/silly
trunk/lib/Filesys/test.pl
-Ethan
On Tue, Jul/22/2008 09:27:04PM, jsquy...@osl.iu.edu wrote:
> Author: jsquyres
> Date: 2008-07-22 21:27:04 EDT (Tue, 22 Jul 2008)
> New Revision: 1216
> URL: https://svn.open-mpi.org/trac/mtt/changeset/1216
>
> Log:
> Fixes #370: have MTT exit if there isn't enough disk space left.
>
> Added:
>trunk/lib/Filesys/
>trunk/lib/Filesys/Changes
>trunk/lib/Filesys/DiskFree.pm
>trunk/lib/Filesys/MANIFEST
>trunk/lib/Filesys/Makefile.PL
>trunk/lib/Filesys/README
>trunk/lib/Filesys/README.mtt
>trunk/lib/Filesys/eg/
>trunk/lib/Filesys/eg/perldf (contents, props changed)
>trunk/lib/Filesys/eg/silly (contents, props changed)
>trunk/lib/Filesys/test.pl
> Text files modified:
>trunk/client/mtt |11
>
>trunk/lib/MTT/Globals.pm | 5 +++
>
>trunk/lib/MTT/MPI/Get.pm | 2
>
>trunk/lib/MTT/MPI/Install.pm | 4 +-
>
>trunk/lib/MTT/Test/Build.pm | 4 +-
>
>trunk/lib/MTT/Test/Get.pm| 2
>
>trunk/lib/MTT/Test/Run.pm| 4 +-
>
>trunk/lib/MTT/Test/RunEngine.pm | 6 ++--
>
>trunk/lib/MTT/Util.pm|50
> ++-
>trunk/samples/ompi-core-template.ini |17 +
>
>10 files changed, 86 insertions(+), 19 deletions(-)
>
> Modified: trunk/client/mtt
> ==
> --- trunk/client/mtt (original)
> +++ trunk/client/mtt 2008-07-22 21:27:04 EDT (Tue, 22 Jul 2008)
> @@ -112,6 +112,7 @@
> use MTT::Values;
> use MTT::Timer;
> use MTT::Util;
> +use Filesys::DiskFree;
>
> my @file_arg;
> my $stdin_arg;
> @@ -492,31 +493,31 @@
> MTT::Reporter::Init($ini);
> }
>
> -if ($mpi_get && !MTT::Util::find_terminate_file()) {
> +if ($mpi_get && !MTT::Util::time_to_terminate()) {
> &MTT::Timer::start($time_phases);
> MTT::MPI::Get::Get($ini, $source_dir, $force_arg);
> &MTT::Timer::stop();
> &MTT::Timer::print("Phase: MPI Get", $time_phases, 1);
> }
> -if ($mpi_install && !MTT::Util::find_terminate_file()) {
> +if ($mpi_install && !MTT::Util::time_to_terminate()) {
> &MTT::Timer::start($time_phases);
> MTT::MPI::Install::Install($ini, $ini_full, $install_dir,
> $force_arg);
> &MTT::Timer::stop();
> &MTT::Timer::print("Phase: MPI Install", $time_phases, 1);
> }
> -if ($test_get && !MTT::Util::find_terminate_file()) {
> +if ($test_get && !MTT::Util::time_to_terminate()) {
> &MTT::Timer::start($time_phases);
> MTT::Test::Get::Get($ini, $source_dir, $force_arg);
> &MTT::Timer::stop();
> &MTT::Timer::print("Phase: Test Get", $time_phases, 1);
> }
> -if ($test_build && !MTT::Util::find_terminate_file()) {
> +if ($test_build && !MTT::Util::time_to_terminate()) {
> &MTT::Timer::start($time_phases);
> MTT::Test::Build::Build($ini, $ini_full, $install_dir, $force_arg);
> &MTT::Timer::stop();
> &MTT::Timer::print("Phase: Test Build", $time_phases, 1);
> }
> -if ($test_run && !MTT::Util::find_terminate_file()) {
> +if ($test_run && !MTT::Util::time_to_terminate()) {
> &MTT::Timer::start($time_phases);
> MTT::Test::Run::Run($ini, $ini_full, $install_dir, $runs_data_dir,
> $force_arg);
>
> Added: trunk/lib/Filesys/Changes
> ==
> --- (empty file)
> +++ trunk/lib/Filesys/Changes 2008-07-22 21:27:04 EDT (Tue, 22 Jul 2008)
> @@ -0,0 +1,27 @@
> +Revision history for Perl extension Filesys::DiskFree.
> +
> +0.06 Fri Oct 23 18:26:19 EDT 1998
> + - Now supports HP-UX, thanks to Richard Paul for the patch.
> +
> +0.05 Wed Aug 26 23:54:15 EDT 1998
> + - Now supports OSF/1, thanks to Eric Foster-Johnson for the details.
> +
> +0.04 Sat Aug 1 12:15:42 EDT 1998
> + - Fixes problem if passed a barefilename, without any '/'.
> + - Bug fix in 'silly' example, accidentally deleted a ;
> + - perldf now works on filesystems with 0% free (eg psuedo-fs),