[svn:parrot] r44418 - trunk/t/perl

[mikehh at svn.parrot.org]

Author: mikehh
Date: Tue Feb 23 23:03:28 2010
New Revision: 44418
URL: https://trac.parrot.org/parrot/changeset/44418

Log:
fix perlcritic failure - remove hard tabs

Modified:
   trunk/t/perl/Parrot_IO.t

Modified: trunk/t/perl/Parrot_IO.t
==============================================================================
--- trunk/t/perl/Parrot_IO.t	Tue Feb 23 22:55:12 2010	(r44417)
+++ trunk/t/perl/Parrot_IO.t	Tue Feb 23 23:03:28 2010	(r44418)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -40,9 +40,9 @@
 BEGIN { use_ok('Parrot::IO::Path') }
 
 my $file_temp_work_path = tempdir(
-	'PARROT_IO_XXXX',
-	TMPDIR => 1,
-	CLEANUP => 1
+    'PARROT_IO_XXXX',
+    TMPDIR => 1,
+    CLEANUP => 1
 );
 # you can sort of count on the var below being the unique part of the temp dir
 my $file_temp_dir = (splitdir($file_temp_work_path))[-1];
@@ -89,7 +89,7 @@
 ok( !$r->parent(), 'root has no parent' );
 
 my $d = Parrot::IO::Directory->tmp_directory(
-	catfile($file_temp_dir, 't')
+    catfile($file_temp_dir, 't')
 );
 ok( $d, 'tmp_directory' );