# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic-Compatibility/t/Compatibility/ProhibitThreeArgumentOpen.run $
# $Date: 2008-04-13 13:21:52 -0500 (Sun, 13 Apr 2008) $
# $Author: clonezone $
# $Revision: 2221 $
## name Basic passing
## failures 0
## cut
open FILE, '<thingy'
or die 'blah';
## name Basic failure
## failures 2
## cut
open FILE, '<', 'thingy'
or die 'blah';
open my $file, '<', 'thingy'
or die 'blah';
## name Passing with declared perl version.
## failures 0
## cut
use 5.006;
open FILE, '<', 'thingy'
or die 'blah';
open my $file, '<', 'thingy'
or die 'blah';
## name Passing with declared perl v-string.
## failures 0
## cut
require 5.8.8;
open FILE, '<', 'thingy'
or die 'blah';
open my $file, '<', 'thingy'
or die 'blah';
## name Failure with declared perl version.
## failures 2
## cut
use 5.005;
open FILE, '<', 'thingy'
or die 'blah';
open my $file, '<', 'thingy'
or die 'blah';
# setup vim: set filetype=perl tabstop=4 softtabstop=4 expandtab :
# setup vim: set shiftwidth=4 shiftround textwidth=78 nowrap autoindent :
# setup vim: set foldmethod=indent foldlevel=0 :