[svn:parrot] r49445 - trunk/t/tools

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Mon Oct  4 21:51:15 2010
New Revision: 49445
URL: https://trac.parrot.org/parrot/changeset/49445

Log:
[t] Use rmtree instead of remove_tree to support elderly File::Path's

Modified:
   trunk/t/tools/create_language.t
   trunk/t/tools/mk_language_shell.t

Modified: trunk/t/tools/create_language.t
==============================================================================
--- trunk/t/tools/create_language.t	Mon Oct  4 21:37:33 2010	(r49444)
+++ trunk/t/tools/create_language.t	Mon Oct  4 21:51:15 2010	(r49445)
@@ -25,7 +25,7 @@
 use Parrot::Config;
 use Parrot::Test;
 use File::Spec::Functions;
-use File::Path qw/remove_tree/;
+use File::Path qw/rmtree/;
 
 my ($path, $exefile);
 
@@ -78,7 +78,7 @@
 }
 
 END {
-    remove_tree("test_parrot_language_$$");
+    rmtree("test_parrot_language_$$");
 }
 
 # Local Variables:

Modified: trunk/t/tools/mk_language_shell.t
==============================================================================
--- trunk/t/tools/mk_language_shell.t	Mon Oct  4 21:37:33 2010	(r49444)
+++ trunk/t/tools/mk_language_shell.t	Mon Oct  4 21:51:15 2010	(r49445)
@@ -25,7 +25,7 @@
 use Parrot::Config;
 use Parrot::Test;
 use File::Spec::Functions;
-use File::Path qw/remove_tree/;
+use File::Path qw/rmtree/;
 
 my ($path, $exefile);
 
@@ -76,7 +76,7 @@
 }
 
 END {
-    remove_tree("test_parrot_language_$$");
+    rmtree("test_parrot_language_$$");
 }
 
 # Local Variables: