lib/File/Spec/NW5.pm

   1 package File::Spec::NW5;
   2
   3 use strict;
   4 use vars qw(@ISA $VERSION);
   5 require File::Spec::Win32;
   6
   7 $VERSION = '1.0';
   8
   9 @ISA = qw(File::Spec::Win32);
  10
  11 sub catdir {
  12     my $self = shift;
  13     my @args = @_;
  14     for (@args) {
  15         # append a slash to each argument unless it has one there
  16         $_ .= "\\" if $_ eq '' or substr($_,-1) ne "\\";
  17     }
  18     my $result = $self->canonpath(join('', @args));
  19     $result;
  20 }
  21
  22 sub canonpath {
  23     my $self = shift;
  24     my $path = $self->SUPER::canonpath(@_);
  25     $path .= '.' if $path =~ m#\\$#;
  26     return $path;
  27 }
  28
  29
  30 1;
  31 __END__
  32
  33 =head1 NAME
  34
  35 File::Spec::NW5 - methods for NetWare file specs
  36
  37 =head1 SYNOPSIS
  38
  39  require File::Spec::NW5; # Done internally by File::Spec if needed
  40
  41 =head1 DESCRIPTION
  42
  43 See File::Spec::Win32 and File::Spec::Unix for a documentation of the
  44 methods provided there. This package overrides the implementation of
  45 these methods, not the semantics.
  46
  47 This module is still in beta.  NetWare-knowledgeable folks are invited
  48 to offer patches and suggestions.