Fixed: #12493: Can't add new files to archives which contain files named

0,1,2,3,4,5,6,7,8,9 with no extension (Files named "0" are not archived)

Also fixed some mistakes

lib/Archive/Zip.pm

@@ -517,8 +517,8 @@ sub _asZipDirName
 	  File::Spec->splitpath( File::Spec->canonpath($name), $forceDir );
 	$$volReturn = $volume if ( ref($volReturn) );
 	my @dirs = map { $_ =~ s{/}{_}g; $_ } File::Spec->splitdir($directories);
-	if ( @dirs > 0 ) { pop (@dirs) unless $dirs[-1] }   # remove empty component
-	push ( @dirs, defined($file) ? $file : '' );
+    if ( @dirs > 0 ) { pop (@dirs) unless $dirs[-1] }   # remove empty component
+    push ( @dirs, defined($file) ? $file : '' );
 	#return wantarray ? @dirs : join ( '/', @dirs );
     return join ( '/', @dirs );
 }

lib/Archive/Zip/Member.pm

@@ -583,7 +583,9 @@ sub _writeLocalFileHeader {
     );
 
     $self->_print($fh, $header) or return _ioError("writing local header");
-    if ( $self->fileName() ) {
+
+    # Check for a valid filename or a filename equal to a literal `0'
+    if ( $self->fileName() || $self->fileName eq '0' ) {
         $self->_print($fh, $self->fileName() )
           or return _ioError("writing local header filename");
     }
@@ -915,7 +917,7 @@ sub extractToFileHandle {
     my $self = shift;
     return _error("encryption unsupported") if $self->isEncrypted();
     my $fh = shift;
-    #_binmode($fh);
+    _binmode($fh);
     my $oldCompression = $self->desiredCompressionMethod(COMPRESSION_STORED);
     my $status         = $self->rewindData(@_);
     $status = $self->_writeData($fh) if $status == AZ_OK;
@@ -932,7 +934,7 @@ sub _writeToFileHandle {
     my $offset       = shift;
 
     return _error("no member name given for $self")
-      unless $self->fileName();
+      if $self->fileName() eq '';
 
     $self->{'writeLocalHeaderRelativeOffset'} = $offset;
     $self->{'wasWritten'}                     = 0;

lib/Archive/Zip/NewFileMember.pm

@@ -22,7 +22,7 @@ sub _newFromFileNamed {
     $newName = _asZipDirName($fileName) unless defined($newName);
     return undef unless ( stat($fileName) && -r _ && !-d _ );
     my $self = $class->new(@_);
-    $self->fileName($newName);
+    $self->{'fileName'} = $newName;
     $self->{'externalFileName'}  = $fileName;
     $self->{'compressionMethod'} = COMPRESSION_STORED;
     my @stat = stat(_);