[Catalyst-commits] r6998 - trunk/Catalyst-View-Mason/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-10-15 15:37:59 +0100 (Mon, 15 Oct 2007)
New Revision: 6998

Modified:
   trunk/Catalyst-View-Mason/t/helper.t
Log:
Silence some warnings in t/helper.t if Test::File isn't present.


Modified: trunk/Catalyst-View-Mason/t/helper.t
===================================================================
--- trunk/Catalyst-View-Mason/t/helper.t	2007-10-15 14:37:52 UTC (rev 6997)
+++ trunk/Catalyst-View-Mason/t/helper.t	2007-10-15 14:37:59 UTC (rev 6998)
@@ -45,6 +45,8 @@
 ok(TestApp::View::Mason->isa('Catalyst::View::Mason'), 'module inherits from C::V::Mason');
 
 END {
-    chdir $old_cwd;
-    rmtree($test_dir);
+    if (defined $old_cwd) {
+        chdir $old_cwd;
+        rmtree($test_dir);
+    }
 }