Bump version of IO::Dir after last patch

[p5sagit/p5-mst-13.2.git] / ext / IO / lib / IO / Dir.pm

diff --git a/ext/IO/lib/IO/Dir.pm b/ext/IO/lib/IO/Dir.pm
index e2551f1..4948142 100644 (file)
--- a/ext/IO/lib/IO/Dir.pm
+++ b/ext/IO/lib/IO/Dir.pm
@@ -19,7 +19,7 @@ use File::stat;
 use File::Spec;
 
 @ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.04";
+$VERSION = "1.06_01";
 $VERSION = eval $VERSION;
 @EXPORT_OK = qw(DIR_UNLINK);
 
@@ -38,6 +38,8 @@ sub new {
 
 sub DESTROY {
     my ($dh) = @_;
+    local($., $@, $!, $^E, $?);
+    no warnings 'io';
     closedir($dh);
 }
 
@@ -178,7 +180,7 @@ directory reading routines.
 
 =item new ( [ DIRNAME ] )
 
-C<new> is the constuctor for C<IO::Dir> objects. It accepts one optional
+C<new> is the constructor for C<IO::Dir> objects. It accepts one optional
 argument which,  if given, C<new> will pass to C<open>
 
 =back