Recode the naughty binary bytes ([\x00-\x08\x0b-\x1f\x7f-\xff])

[p5sagit/p5-mst-13.2.git] / lib / open.pm

diff --git a/lib/open.pm b/lib/open.pm
index 82b043a..1e073c2 100644 (file)
--- a/lib/open.pm
+++ b/lib/open.pm
@@ -7,6 +7,8 @@ use vars qw(%layers @layers);
 # Populate hash in non-PerlIO case
 %layers = (crlf => 1, raw => 0) unless (@layers);
 
+our $VERSION = '1.00';
+
 sub import {
     shift;
     die "`use open' needs explicit list of disciplines" unless @_;