From: Dave Rolsky <autarch@urth.org>
Date: Thu, 3 Jan 2002 12:53:19 +0000 (-0600)
Subject: File::Spec & NetWare
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffa8448bc38bf8fb99d7d31a9115b53e3cafbc5f;p=p5sagit%2Fp5-mst-13.2.git

File::Spec & NetWare
Message-ID: <Pine.LNX.4.43.0201031252130.27977-100000@urth.org>

p4raw-id: //depot/perl@14045
---

diff --git a/MANIFEST b/MANIFEST
index 0113534..6c9cc68 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -988,7 +988,6 @@ lib/File/Spec/Cygwin.pm		portable operations on Cygwin file names
 lib/File/Spec/Epoc.pm		portable operations on EPOC file names
 lib/File/Spec/Functions.pm	Function interface to File::Spec object methods
 lib/File/Spec/Mac.pm		portable operations on Mac file names
-lib/File/Spec/NW5.pm		portable operations on NetWare file names
 lib/File/Spec/OS2.pm		portable operations on OS2 file names
 lib/File/Spec/t/Functions.t     See if File::Spec::Functions works
 lib/File/Spec/t/rel2abs2rel.t   See if File::Spec->rel2abs/abs2rel works
diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index cf49cf6..3ac1060 100644
--- a/lib/File/Spec.pm
+++ b/lib/File/Spec.pm
@@ -10,7 +10,7 @@ my %module = (MacOS   => 'Mac',
 	      os2     => 'OS2',
 	      VMS     => 'VMS',
 	      epoc    => 'Epoc',
-	      NetWare => 'NW5',
+	      NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
 	      cygwin  => 'Cygwin');
 
 
diff --git a/lib/File/Spec/NW5.pm b/lib/File/Spec/NW5.pm
deleted file mode 100644
index 772a93d..0000000
--- a/lib/File/Spec/NW5.pm
+++ /dev/null
@@ -1,48 +0,0 @@
-package File::Spec::NW5;
-
-use strict;
-use vars qw(@ISA $VERSION);
-require File::Spec::Win32;
-
-$VERSION = '1.0';
-
-@ISA = qw(File::Spec::Win32);
-
-sub catdir {
-    my $self = shift;
-    my @args = @_;
-    for (@args) {
-	# append a slash to each argument unless it has one there
-	$_ .= "\\" if $_ eq '' or substr($_,-1) ne "\\";
-    }
-    my $result = $self->canonpath(join('', @args));
-    $result;
-}
-
-sub canonpath {
-    my $self = shift;
-    my $path = $self->SUPER::canonpath(@_);
-    $path .= '.' if $path =~ m#\\$#;
-    return $path;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-File::Spec::NW5 - methods for NetWare file specs
-
-=head1 SYNOPSIS
-
- require File::Spec::NW5; # Done internally by File::Spec if needed
-
-=head1 DESCRIPTION
-
-See File::Spec::Win32 and File::Spec::Unix for a documentation of the
-methods provided there. This package overrides the implementation of
-these methods, not the semantics.
-
-This module is still in beta.  NetWare-knowledgeable folks are invited
-to offer patches and suggestions.