Switch from File::Spec to IO::Spec

Stop depending on external File::Spec, since IO::Spec is in the setting.
samuraisam · Nov 15, 2013 · 9ae0b90 · 9ae0b90
1 parent c588de0
commit 9ae0b90
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/t/official.t b/t/official.t
@@ -1,5 +1,4 @@
 use Test;
-use File::Spec;
 use PB::Grammar;
 
 # to automate the testing of this grammar
@@ -10,15 +9,15 @@ if run('which', 'svn') == 0 {
     say 'svn is installed... checking for protobuf repo';
 
     my $absdir = $?FILE.path.absolute.directory;
-    my $pbdir = File::Spec.os.join: '', $absdir, 'data/protobuf-read-only';
+    my $pbdir = IO::Spec.join: '', $absdir, 'data/protobuf-read-only';
 
     if !grep 'protobuf-read-only', dir $absdir {
         run 'svn', 'checkout', 'http://protobuf.googlecode.com/svn/trunk/', $pbdir;
     } else {
         run 'svn', 'update', $pbdir;
     }
 
-    my $srcdir = File::Spec.os.join: '', $pbdir, 'src/google/protobuf';
+    my $srcdir = IO::Spec.join: '', $pbdir, 'src/google/protobuf';
     my @files = dir $srcdir, :test(/proto$/);
 
     for @files -> $path {