use warnings;
use File::Spec::Functions qw/rel2abs/;
-use IO::Handle;
+use IO::File;
my @examples;
BEGIN { @examples = glob 't/examples/*.pl' };
open STDOUT, '>', \$out;
clean;
- do rel2abs $example;
+ do(rel2abs($example));
$example =~ s/\.pl$//;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
is $out, $ok, substr $example, length 't/examples/'