home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / lib / File / Spec / Cygwin.pm next >
Encoding:
Perl POD Document  |  2002-06-19  |  909 b   |  42 lines
  1. package File::Spec::Cygwin;
  2.  
  3. use strict;
  4. use vars qw(@ISA $VERSION);
  5. require File::Spec::Unix;
  6.  
  7. $VERSION = '1.0';
  8.  
  9. @ISA = qw(File::Spec::Unix);
  10.  
  11. sub canonpath {
  12.     my($self,$path) = @_;
  13.     $path =~ s|\\|/|g;
  14.     return $self->SUPER::canonpath($path);
  15. }
  16.  
  17. sub file_name_is_absolute {
  18.     my ($self,$file) = @_;
  19.     return 1 if $file =~ m{^([a-z]:)?[\\/]}is; # C:/test
  20.     return $self->SUPER::file_name_is_absolute($file);
  21. }
  22.  
  23. 1;
  24. __END__
  25.  
  26. =head1 NAME
  27.  
  28. File::Spec::Cygwin - methods for Cygwin file specs
  29.  
  30. =head1 SYNOPSIS
  31.  
  32.  require File::Spec::Cygwin; # Done internally by File::Spec if needed
  33.  
  34. =head1 DESCRIPTION
  35.  
  36. See File::Spec::Unix for a documentation of the methods provided
  37. there. This package overrides the implementation of these methods, not
  38. the semantics.
  39.  
  40. This module is still in beta.  Cygwin-knowledgeable folks are invited
  41. to offer patches and suggestions.
  42.