view release on metacpan or  search on metacpan

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
   };
};