[Module-build-checkins] Module-Build/t compat.t,1.17,1.18

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31754/t

Modified Files:
	compat.t 
Log Message:
Squash an undef-warning under older perls

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** compat.t	13 Jul 2004 03:56:56 -0000	1.17
--- compat.t	28 Nov 2004 02:30:13 -0000	1.18
***************
*** 54,58 ****
    
    1 while unlink 'Makefile.PL';
!   ok -e 'Makefile.PL', undef;
  }
  
--- 54,58 ----
    
    1 while unlink 'Makefile.PL';
!   ok (! -e 'Makefile.PL', 1);
  }
  
***************
*** 136,146 ****
    
    $build->delete_filetree($libdir);
!   ok -e $libdir, undef, "Sample installation directory should be cleaned up";
    
    $build->do_system(@make, 'realclean');
!   ok -e 'Makefile', undef, "Makefile shouldn't exist";
  
    1 while unlink 'Makefile.PL';
!   ok -e 'Makefile.PL', undef;
  }
  
--- 136,146 ----
    
    $build->delete_filetree($libdir);
!   ok (! -e $libdir, 1, "Sample installation directory should be cleaned up");
    
    $build->do_system(@make, 'realclean');
!   ok (! -e 'Makefile', 1, "Makefile shouldn't exist");
  
    1 while unlink 'Makefile.PL';
!   ok (! -e 'Makefile.PL', 1);
  }
  
***************
*** 156,160 ****
    if ($cleanup) {
      $build->do_system(@make, 'realclean');
!     ok -e 'Makefile', undef, "Makefile shouldn't exist";
    }
  }
--- 156,160 ----
    if ($cleanup) {
      $build->do_system(@make, 'realclean');
!     ok (! -e 'Makefile', 1, "Makefile shouldn't exist");
    }
  }