Author: bernhard
Date: Sat Jan 28 09:41:36 2006
New Revision: 11364
Modified:
trunk/t/examples/pir.t
Log:
No need to check for File::Slurp in pir.t
Modified: trunk/t/examples/pir.t
==============================================================================
--- trunk/t/examples/pir.t (original)
+++ trunk/t/examples/pir.t Sat Jan 28 09:41:36 2006
@@ -5,20 +5,11 @@
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
-use vars qw( $has_file_slurp );
use Test::More;
use Parrot::Test tests => 19;
use Parrot::Config;
-BEGIN {
- $has_file_slurp = 1;
- eval "use File::Slurp;";
- if ($@) {
- $has_file_slurp = 0;
- }
-}
-
=head1 NAME
t/examples/pir.t - Test examples in F<examples/pir>
