Commits

Anonymous committed 89b8a53

- fix for system w/o symlink

Comments (0)

Files changed (1)

 #!/usr/bin/perl
 
-# $Id: 01ffo.t,v 1.1 2005/06/18 18:21:35 nanardon Exp $
+# $Id$
 
 use strict;
 use warnings;
 open(my $h, ">", 't/dir/file');
 close($h);
 
-symlink('.', 't/dir/link');
-
+# symlink does not exists everywhere (windows)
+# if it failed, this does not matter
+eval {
+    symlink('.', 't/dir/link');
+};
 
 my (@res1, @res2);
 my $tree = File::Find::Object->new(