view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

--- #YAML:1.0
name:                ARGV-readonly
version:             0.01
abstract:            make <> open files regardless of leading/trailing whitespace and/or control characters such as |, >, amd <. 
license:             ~
author:              
    - David Nicol <davidnico@cpan.org>
generated_by:        ExtUtils::MakeMaker version 6.44
distribution_type:   module
requires:     
meta-spec:
    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
    version: 1.3

lib/ARGV/readonly.pm  view on Meta::CPAN

package ARGV::readonly;

use 5.00001;

$VERSION = '0.01';

sub import{
   # Tom Christiansen in Message-ID: <24692.1217339882@chthon>
   # reccomends essentially the following:
   for (@ARGV){
       s/^(\s+)/.\/$1/;	# leading whitespace preserved
       s/^/< /;		# force open for input
       $_.=qq/\0/;	# trailing whitespace preserved & pipes forbidden
   };
};


1;
__END__

=head1 NAME

ARGV::readonly - make <> open files regardless of leading/trailing whitespace and/or control characters such as |, >, amd <.