<h2>Edit File - Cygwin.pm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/lib64/perl5/vendor_perl/File/Spec/Cygwin.pm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">package File::Spec::Cygwin;

use strict;
require File::Spec::Unix;

our $VERSION = &#039;3.74&#039;;
$VERSION =~ tr/_//d;

our @ISA = qw(File::Spec::Unix);

=head1 NAME

File::Spec::Cygwin - methods for Cygwin file specs

=head1 SYNOPSIS

 require File::Spec::Cygwin; # Done internally by File::Spec if needed

=head1 DESCRIPTION

See L&lt;File::Spec&gt; and L&lt;File::Spec::Unix&gt;.  This package overrides the
implementation of these methods, not the semantics.

This module is still in beta.  Cygwin-knowledgeable folks are invited
to offer patches and suggestions.

=cut

=pod

=over 4

=item canonpath

Any C&lt;\&gt; (backslashes) are converted to C&lt;/&gt; (forward slashes),
and then File::Spec::Unix canonpath() is called on the result.

=cut

sub canonpath {
    my($self,$path) = @_;
    return unless defined $path;

    $path =~ s|\\|/|g;

    # Handle network path names beginning with double slash
    my $node = &#039;&#039;;
    if ( $path =~ s@^(//[^/]+)(?:/|\z)@/@s ) {
        $node = $1;
    }
    return $node . $self-&gt;SUPER::canonpath($path);
}

sub catdir {
    my $self = shift;
    return unless @_;

    # Don&#039;t create something that looks like a //network/path
    if ($_[0] and ($_[0] eq &#039;/&#039; or $_[0] eq &#039;\\&#039;)) {
        shift;
        return $self-&gt;SUPER::catdir(&#039;&#039;, @_);
    }

    $self-&gt;SUPER::catdir(@_);
}

=pod

=item file_name_is_absolute

True is returned if the file name begins with C&lt;drive_letter:&gt;,
and if not, File::Spec::Unix file_name_is_absolute() is called.

=cut


sub file_name_is_absolute {
    my ($self,$file) = @_;
    return 1 if $file =~ m{^([a-z]:)?[\\/]}is; # C:/test
    return $self-&gt;SUPER::file_name_is_absolute($file);
}

=item tmpdir (override)

Returns a string representation of the first existing directory
from the following list:

    $ENV{TMPDIR}
    /tmp
    $ENV{&#039;TMP&#039;}
    $ENV{&#039;TEMP&#039;}
    C:/temp

If running under taint mode, and if the environment
variables are tainted, they are not used.

=cut

sub tmpdir {
    my $cached = $_[0]-&gt;_cached_tmpdir(qw &#039;TMPDIR TMP TEMP&#039;);
    return $cached if defined $cached;
    $_[0]-&gt;_cache_tmpdir(
        $_[0]-&gt;_tmpdir(
            $ENV{TMPDIR}, &quot;/tmp&quot;, $ENV{&#039;TMP&#039;}, $ENV{&#039;TEMP&#039;}, &#039;C:/temp&#039;
        ),
        qw &#039;TMPDIR TMP TEMP&#039;
    );
}

=item case_tolerant

Override Unix. Cygwin case-tolerance depends on managed mount settings and
as with MsWin32 on GetVolumeInformation() $ouFsFlags == FS_CASE_SENSITIVE,
indicating the case significance when comparing file specifications.
Default: 1

=cut

sub case_tolerant {
  return 1 unless $^O eq &#039;cygwin&#039;
    and defined &amp;Cygwin::mount_flags;

  my $drive = shift;
  if (! $drive) {
      my @flags = split(/,/, Cygwin::mount_flags(&#039;/cygwin&#039;));
      my $prefix = pop(@flags);
      if (! $prefix || $prefix eq &#039;cygdrive&#039;) {
          $drive = &#039;/cygdrive/c&#039;;
      } elsif ($prefix eq &#039;/&#039;) {
          $drive = &#039;/c&#039;;
      } else {
          $drive = &quot;$prefix/c&quot;;
      }
  }
  my $mntopts = Cygwin::mount_flags($drive);
  if ($mntopts and ($mntopts =~ /,managed/)) {
    return 0;
  }
  eval {
      local @INC = @INC;
      pop @INC if $INC[-1] eq &#039;.&#039;;
      require Win32API::File;
  } or return 1;
  my $osFsType = &quot;\0&quot;x256;
  my $osVolName = &quot;\0&quot;x256;
  my $ouFsFlags = 0;
  Win32API::File::GetVolumeInformation($drive, $osVolName, 256, [], [], $ouFsFlags, $osFsType, 256 );
  if ($ouFsFlags &amp; Win32API::File::FS_CASE_SENSITIVE()) { return 0; }
  else { return 1; }
}

=back

=head1 COPYRIGHT

Copyright (c) 2004,2007 by the Perl 5 Porters.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>