view release on metacpan or  search on metacpan

lib/CellFunc/File/stat_row.pm  view on Meta::CPAN

    'table.field_formats' => \@st_field_formats,
};

$SPEC{func} = {
    v => 1.1,
    summary => 'Take input value as filename, generate a row from stat()',
    description => <<'MARKDOWN',

When file does not exist or cannot be `stat()`'d, will emit a warning and return
an undefined value instead of a row.

MARKDOWN
    args => {
        value => {

lib/CellFunc/File/stat_row.pm  view on Meta::CPAN

        follow_symlink => {
            schema => 'bool*',
            default => 1,
            description => <<'MARKDOWN',

If set to false, will do an `lstat()` instead of `stat()`.

MARKDOWN
        },
    },
};
sub func {
    my %args = @_;

    my @st = ($args{follow_symlink} // 1) ?  stat($args{value}) : lstat($args{value});
    unless (@st) {
        log_warn "Can't stat/lstat(%s): %s", $args{value}, $!;
        return [200, "OK"];
    }
    [200, "OK", \@st, $resmeta];
}

1;
# ABSTRACT: Take input value as filename, generate a row from stat()

__END__

=pod

=encoding UTF-8

=head1 NAME

CellFunc::File::stat_row - Take input value as filename, generate a row from stat()

=head1 VERSION

This document describes version 0.001 of CellFunc::File::stat_row (from Perl distribution CellFunc-File-stat_row), released on 2024-12-10.

lib/CellFunc/File/stat_row.pm  view on Meta::CPAN

Usage:

 func(%args) -> [$status_code, $reason, $payload, \%result_meta]

Take input value as filename, generate a row from stat().

When file does not exist or cannot be C<stat()>'d, will emit a warning and return
an undefined value instead of a row.

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<follow_symlink> => I<bool> (default: 1)

If set to false, will do an C<lstat()> instead of C<stat()>.

=item * B<value>* => I<filename>

(No description)

 view release on metacpan or  search on metacpan

lib/Ceph/Rados/Striper.pm  view on Meta::CPAN

    my $is_writable_object = blessed($handle) and $handle->can('write');
    Carp::confess "Called with neither an open filehandle equivalent nor an object with a \`write\` method"
        unless $is_filehandle or $is_writable_object;
    $off //= 0;
    if (!$len) {
        ($len, undef) = $self->_stat($soid);
    }
    my $count = 0;
    #
    for (my $pos = $off; $pos <= $len+$off; $pos += $CHUNK_SIZE) {
        my $chunk;

lib/Ceph/Rados/Striper.pm  view on Meta::CPAN

sub read {
    my ($self, $soid, $len, $off) = @_;
    # if undefined is passed as len, we stat the obj first to get the correct len
    if (!defined($len)) {
        ($len, undef) = $self->stat($soid);
    }
    $off ||= 0;
    $self->_read($soid, $len, $off);
}

sub stat {
    my ($self, $soid) = @_;
    $self->_stat($soid);
}

sub mtime {
    my ($self, $soid) = @_;
    my (undef, $mtime) = $self->stat($soid);
    $mtime;
}

sub size {
    my ($self, $soid) = @_;
    my ($size, undef) = $self->stat($soid);
    $size;
}

sub remove  {
    my ($self, $soid) = @_;

lib/Ceph/Rados/Striper.pm  view on Meta::CPAN

=head2 append(soid, data)

Wraps C<rados_striper_append()>.  Appends data to the ceph object with the supplied ID.  Data must be a perl scalar, not a handle.  Returns 1 on success.  Croaks on failure.

=head2 stat(soid)

Wraps C<rados_striper_stat()>.  Returns a 2-element list of (filesize, mtime) for the ceph object with the supplied ID.

=head2 read(soid, len=filesize, offset=0)

Wraps C<rados_striper_read()>.  Read data from the ceph object with the supplied ID, and return the data read.  Croaks on failure.

 view release on metacpan or  search on metacpan

lib/Ceph/Rados.pm  view on Meta::CPAN

  $cluster->connect;

  my $io = $cluster->io('testing_pool');
  $io->write('greeting', 'hello');
  my $stored_data = $io->read('greeting',10);
  my ($len, $mtime) = $io->stat('greeting');
  $io->delete('greeting');

  my $list = $io->list;
  while (my $entry = $list->next) {
      print "Found $entry\n";

 view release on metacpan or  search on metacpan

lib/CfgTie/TieRCService.pm  view on Meta::CPAN

    }
   $F->close;
   return $pid;
}

sub _stat($)
{
   my $self=shift;
   if (!defined $self) {return undef;}
   return stat("/var/run/".$self->{'name'}.".pid");
}

sub EXISTS ($$)
{
   my ($self,$key)=@_;

lib/CfgTie/TieRCService.pm  view on Meta::CPAN

       scan_rcscript($self);
       return exists $self->{$lkey};
    }
   elsif ($lkey eq 'stat')
     {
        my @A= _stat($self);
        if (scalar @A) {$self->{'stat'}=[@A]; return 1;}
     }
   return 0;
}

 view release on metacpan or  search on metacpan

lib/ChainMake.pm  view on Meta::CPAN

                last REQUIREMENTS unless ($insistent);
            }
        }
        # oder der Name einer Datei?
        elsif (-e $dep) {
            $age=(stat($dep))[9];
        }
        # Requirement nicht auffindbar
        else {
            $self->_diag(1,"Missing requirement '$dep'.\n");
            $cannot_make=1;

lib/ChainMake.pm  view on Meta::CPAN

sub _check_file_timestamps {
    my ($self,$ver)=@_;
    my ($oldest,$youngest,$missing);
    for my $timestamps (@{$ver}) {
        if (-e $timestamps) {
            my $mtime = (stat($timestamps))[9];
            $youngest=$mtime unless (($youngest) && ($youngest >= $mtime));
            $oldest=$mtime unless (($oldest) && ($oldest <= $mtime));
        }
        else {
            $missing=$timestamps;

 view release on metacpan or  search on metacpan

lib/Arabic.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Arabic.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Arabic::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Big5HKSCS.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (Ebig5hkscs::stat(__FILE__     ))[9];
            my $mtime_source = (Ebig5hkscs::stat($filename    ))[9];
            my $mtime_escape = (Ebig5hkscs::stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                Ebig5hkscs::unlink "$filename.e";
            }
        }
    }

lib/Big5HKSCS.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Big5HKSCS::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (Ebig5hkscs::stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

lib/Big5HKSCS.pm  view on Meta::CPAN

support these.

=item * ${^WIN32_SLOPPY_STAT} is ignored

Even if ${^WIN32_SLOPPY_STAT} is set to a true value, file test functions Ebig5hkscs::*(),
Ebig5hkscs::lstat(), and Ebig5hkscs::stat() on Microsoft Windows open the file for the path
which has chr(0x5c) at end.

=item * Delimiter of String and Regexp

qq//, q//, qw//, qx//, qr//, m//, s///, tr///, and y/// can't use a wide character

 view release on metacpan or  search on metacpan

lib/Big5Plus.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (Ebig5plus::stat(__FILE__     ))[9];
            my $mtime_source = (Ebig5plus::stat($filename    ))[9];
            my $mtime_escape = (Ebig5plus::stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                Ebig5plus::unlink "$filename.e";
            }
        }
    }

lib/Big5Plus.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Big5Plus::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (Ebig5plus::stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

lib/Big5Plus.pm  view on Meta::CPAN

support these.

=item * ${^WIN32_SLOPPY_STAT} is ignored

Even if ${^WIN32_SLOPPY_STAT} is set to a true value, file test functions Ebig5plus::*(),
Ebig5plus::lstat(), and Ebig5plus::stat() on Microsoft Windows open the file for the path
which has chr(0x5c) at end.

=item * Delimiter of String and Regexp

qq//, q//, qw//, qx//, qr//, m//, s///, tr///, and y/// can't use a wide character

 view release on metacpan or  search on metacpan

lib/Cyrillic.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Cyrillic.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Cyrillic::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/EUCJP.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/EUCJP.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = EUCJP::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/EUCTW.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/EUCTW.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = EUCTW::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Egb18030.pm  view on Meta::CPAN

sub Egb18030::M_();
sub Egb18030::A_();
sub Egb18030::C_();
sub Egb18030::glob($);
sub Egb18030::glob_();
sub Egb18030::lstat(*);
sub Egb18030::lstat_();
sub Egb18030::opendir(*$);
sub Egb18030::stat(*);
sub Egb18030::stat_();
sub Egb18030::unlink(@);
sub Egb18030::chdir(;$);
sub Egb18030::do($);
sub Egb18030::require(;$);

lib/Egb18030.pm  view on Meta::CPAN

}

#
# GB18030 file lstat (with parameter)
#
sub Egb18030::lstat(*) {

    local $_ = shift if @_;

    if (-e $_) {
        return CORE::lstat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egb18030::lstat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Egb18030.pm  view on Meta::CPAN

}

#
# GB18030 file stat (with parameter)
#
sub Egb18030::stat(*) {

    local $_ = shift if @_;

    my $fh = qualify_to_ref $_;
    if (defined fileno $fh) {

lib/Egb18030.pm  view on Meta::CPAN

    elsif (-e $_) {
        return CORE::stat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egb18030::stat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Egb18030.pm  view on Meta::CPAN

            if (Egb18030::f($realfilename)) {

                my $script = '';

                if (Egb18030::e("$realfilename.e")) {
                    my $e_mtime      = (Egb18030::stat("$realfilename.e"))[9];
                    my $mtime        = (Egb18030::stat($realfilename))[9];
                    my $module_mtime = (Egb18030::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Egb18030::unlink "$realfilename.e";
                    }
                }

lib/Egb18030.pm  view on Meta::CPAN

                $INC{$_} = $realfilename;

                my $script = '';

                if (Egb18030::e("$realfilename.e")) {
                    my $e_mtime      = (Egb18030::stat("$realfilename.e"))[9];
                    my $mtime        = (Egb18030::stat($realfilename))[9];
                    my $module_mtime = (Egb18030::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Egb18030::unlink "$realfilename.e";
                    }
                }

lib/Egb18030.pm  view on Meta::CPAN

    Egb18030::chr_;
    Egb18030::X ...;
    Egb18030::X_;
    Egb18030::glob(...);
    Egb18030::glob_;
    Egb18030::lstat(...);
    Egb18030::lstat_;
    Egb18030::opendir(...);
    Egb18030::stat(...);
    Egb18030::stat_;
    Egb18030::unlink(...);
    Egb18030::chdir(...);
    Egb18030::do(...);
    Egb18030::require(...);

lib/Egb18030.pm  view on Meta::CPAN

  @relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
  @abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);

=item * Statistics about link

  @lstat = Egb18030::lstat($file);
  @lstat = Egb18030::lstat_;

  Like Egb18030::stat, returns information on file, except that if file is a symbolic
  link, Egb18030::lstat returns information about the link; Egb18030::stat returns
  information about the file pointed to by the link. If symbolic links are

lib/Egb18030.pm  view on Meta::CPAN

  Directory handles have their own namespace from filehandles.
  This subroutine function when the directory name ends with chr(0x5C) on MSWin32.

=item * Statistics about file

  $stat = Egb18030::stat(FILEHANDLE);
  $stat = Egb18030::stat(DIRHANDLE);
  $stat = Egb18030::stat($expr);
  $stat = Egb18030::stat_;
  @stat = Egb18030::stat(FILEHANDLE);
  @stat = Egb18030::stat(DIRHANDLE);
  @stat = Egb18030::stat($expr);
  @stat = Egb18030::stat_;

  In scalar context, this subroutine returns a Boolean value that indicates whether
  the call succeeded. In list context, it returns a 13-element list giving the
  statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
  named by $expr. It's typically used as followes:

  ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks) = Egb18030::stat($expr);

  Not all fields are supported on all filesystem types; unsupported fields return
  0. Here are the meanings of the fields:

  -------------------------------------------------------------------------

lib/Egb18030.pm  view on Meta::CPAN

  The $blocks field (if defined) is reported in 512-byte blocks. The value of
  $blocks * 512 can differ greatly from $size for files containing unallocated
  blocks, or "hole", which aren't counted in $blocks.

  If Egb18030::stat is passed the special filehandle consisting of an underline, no
  actual stat(2) is done, but the current contents of the stat structure from
  the last Egb18030::stat, Egb18030::lstat, or Egb18030::stat-based file test subroutine
  (such as Egb18030::r, Egb18030::w, and Egb18030::x) are returned.

  Because the mode contains both the file type and its permissions, you should
  mask off the file type portion and printf or sprintf using a "%o" if you want
  to see the real permissions:

  $mode = (Egb18030::stat($expr))[2];
  printf "Permissions are %04o\n", $mode & 07777;

  If $expr is omitted, returns information on file given in $_.
  This subroutine function when the filename ends with chr(0x5C) on MSWin32.

 view release on metacpan or  search on metacpan

lib/Egbk.pm  view on Meta::CPAN

sub Egbk::M_();
sub Egbk::A_();
sub Egbk::C_();
sub Egbk::glob($);
sub Egbk::glob_();
sub Egbk::lstat(*);
sub Egbk::lstat_();
sub Egbk::opendir(*$);
sub Egbk::stat(*);
sub Egbk::stat_();
sub Egbk::unlink(@);
sub Egbk::chdir(;$);
sub Egbk::do($);
sub Egbk::require(;$);

lib/Egbk.pm  view on Meta::CPAN

}

#
# GBK file lstat (with parameter)
#
sub Egbk::lstat(*) {

    local $_ = shift if @_;

    if (-e $_) {
        return CORE::lstat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egbk::lstat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Egbk.pm  view on Meta::CPAN

}

#
# GBK file stat (with parameter)
#
sub Egbk::stat(*) {

    local $_ = shift if @_;

    my $fh = qualify_to_ref $_;
    if (defined fileno $fh) {

lib/Egbk.pm  view on Meta::CPAN

    elsif (-e $_) {
        return CORE::stat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egbk::stat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Egbk.pm  view on Meta::CPAN

            if (Egbk::f($realfilename)) {

                my $script = '';

                if (Egbk::e("$realfilename.e")) {
                    my $e_mtime      = (Egbk::stat("$realfilename.e"))[9];
                    my $mtime        = (Egbk::stat($realfilename))[9];
                    my $module_mtime = (Egbk::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Egbk::unlink "$realfilename.e";
                    }
                }

lib/Egbk.pm  view on Meta::CPAN

                $INC{$_} = $realfilename;

                my $script = '';

                if (Egbk::e("$realfilename.e")) {
                    my $e_mtime      = (Egbk::stat("$realfilename.e"))[9];
                    my $mtime        = (Egbk::stat($realfilename))[9];
                    my $module_mtime = (Egbk::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Egbk::unlink "$realfilename.e";
                    }
                }

lib/Egbk.pm  view on Meta::CPAN

    Egbk::chr_;
    Egbk::X ...;
    Egbk::X_;
    Egbk::glob(...);
    Egbk::glob_;
    Egbk::lstat(...);
    Egbk::lstat_;
    Egbk::opendir(...);
    Egbk::stat(...);
    Egbk::stat_;
    Egbk::unlink(...);
    Egbk::chdir(...);
    Egbk::do(...);
    Egbk::require(...);

lib/Egbk.pm  view on Meta::CPAN

  @relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
  @abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);

=item * Statistics about link

  @lstat = Egbk::lstat($file);
  @lstat = Egbk::lstat_;

  Like Egbk::stat, returns information on file, except that if file is a symbolic
  link, Egbk::lstat returns information about the link; Egbk::stat returns
  information about the file pointed to by the link. If symbolic links are

lib/Egbk.pm  view on Meta::CPAN

  Directory handles have their own namespace from filehandles.
  This subroutine function when the directory name ends with chr(0x5C) on MSWin32.

=item * Statistics about file

  $stat = Egbk::stat(FILEHANDLE);
  $stat = Egbk::stat(DIRHANDLE);
  $stat = Egbk::stat($expr);
  $stat = Egbk::stat_;
  @stat = Egbk::stat(FILEHANDLE);
  @stat = Egbk::stat(DIRHANDLE);
  @stat = Egbk::stat($expr);
  @stat = Egbk::stat_;

  In scalar context, this subroutine returns a Boolean value that indicates whether
  the call succeeded. In list context, it returns a 13-element list giving the
  statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
  named by $expr. It's typically used as followes:

  ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks) = Egbk::stat($expr);

  Not all fields are supported on all filesystem types; unsupported fields return
  0. Here are the meanings of the fields:

  -------------------------------------------------------------------------

lib/Egbk.pm  view on Meta::CPAN

  The $blocks field (if defined) is reported in 512-byte blocks. The value of
  $blocks * 512 can differ greatly from $size for files containing unallocated
  blocks, or "hole", which aren't counted in $blocks.

  If Egbk::stat is passed the special filehandle consisting of an underline, no
  actual stat(2) is done, but the current contents of the stat structure from
  the last Egbk::stat, Egbk::lstat, or Egbk::stat-based file test subroutine
  (such as Egbk::r, Egbk::w, and Egbk::x) are returned.

  Because the mode contains both the file type and its permissions, you should
  mask off the file type portion and printf or sprintf using a "%o" if you want
  to see the real permissions:

  $mode = (Egbk::stat($expr))[2];
  printf "Permissions are %04o\n", $mode & 07777;

  If $expr is omitted, returns information on file given in $_.
  This subroutine function when the filename ends with chr(0x5C) on MSWin32.

 view release on metacpan or  search on metacpan

lib/Greek.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Greek.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Greek::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Ehp15.pm  view on Meta::CPAN

sub Ehp15::M_();
sub Ehp15::A_();
sub Ehp15::C_();
sub Ehp15::glob($);
sub Ehp15::glob_();
sub Ehp15::lstat(*);
sub Ehp15::lstat_();
sub Ehp15::opendir(*$);
sub Ehp15::stat(*);
sub Ehp15::stat_();
sub Ehp15::unlink(@);
sub Ehp15::chdir(;$);
sub Ehp15::do($);
sub Ehp15::require(;$);

lib/Ehp15.pm  view on Meta::CPAN

}

#
# HP-15 file lstat (with parameter)
#
sub Ehp15::lstat(*) {

    local $_ = shift if @_;

    if (-e $_) {
        return CORE::lstat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ehp15::lstat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Ehp15.pm  view on Meta::CPAN

}

#
# HP-15 file stat (with parameter)
#
sub Ehp15::stat(*) {

    local $_ = shift if @_;

    my $fh = qualify_to_ref $_;
    if (defined fileno $fh) {

lib/Ehp15.pm  view on Meta::CPAN

    elsif (-e $_) {
        return CORE::stat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ehp15::stat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Ehp15.pm  view on Meta::CPAN

            if (Ehp15::f($realfilename)) {

                my $script = '';

                if (Ehp15::e("$realfilename.e")) {
                    my $e_mtime      = (Ehp15::stat("$realfilename.e"))[9];
                    my $mtime        = (Ehp15::stat($realfilename))[9];
                    my $module_mtime = (Ehp15::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Ehp15::unlink "$realfilename.e";
                    }
                }

lib/Ehp15.pm  view on Meta::CPAN

                $INC{$_} = $realfilename;

                my $script = '';

                if (Ehp15::e("$realfilename.e")) {
                    my $e_mtime      = (Ehp15::stat("$realfilename.e"))[9];
                    my $mtime        = (Ehp15::stat($realfilename))[9];
                    my $module_mtime = (Ehp15::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Ehp15::unlink "$realfilename.e";
                    }
                }

lib/Ehp15.pm  view on Meta::CPAN

    Ehp15::chr_;
    Ehp15::X ...;
    Ehp15::X_;
    Ehp15::glob(...);
    Ehp15::glob_;
    Ehp15::lstat(...);
    Ehp15::lstat_;
    Ehp15::opendir(...);
    Ehp15::stat(...);
    Ehp15::stat_;
    Ehp15::unlink(...);
    Ehp15::chdir(...);
    Ehp15::do(...);
    Ehp15::require(...);

lib/Ehp15.pm  view on Meta::CPAN

  @relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
  @abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);

=item * Statistics about link

  @lstat = Ehp15::lstat($file);
  @lstat = Ehp15::lstat_;

  Like Ehp15::stat, returns information on file, except that if file is a symbolic
  link, Ehp15::lstat returns information about the link; Ehp15::stat returns
  information about the file pointed to by the link. If symbolic links are

lib/Ehp15.pm  view on Meta::CPAN

  Directory handles have their own namespace from filehandles.
  This subroutine function when the directory name ends with chr(0x5C) on MSWin32.

=item * Statistics about file

  $stat = Ehp15::stat(FILEHANDLE);
  $stat = Ehp15::stat(DIRHANDLE);
  $stat = Ehp15::stat($expr);
  $stat = Ehp15::stat_;
  @stat = Ehp15::stat(FILEHANDLE);
  @stat = Ehp15::stat(DIRHANDLE);
  @stat = Ehp15::stat($expr);
  @stat = Ehp15::stat_;

  In scalar context, this subroutine returns a Boolean value that indicates whether
  the call succeeded. In list context, it returns a 13-element list giving the
  statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
  named by $expr. It's typically used as followes:

  ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks) = Ehp15::stat($expr);

  Not all fields are supported on all filesystem types; unsupported fields return
  0. Here are the meanings of the fields:

  -------------------------------------------------------------------------

lib/Ehp15.pm  view on Meta::CPAN

  The $blocks field (if defined) is reported in 512-byte blocks. The value of
  $blocks * 512 can differ greatly from $size for files containing unallocated
  blocks, or "hole", which aren't counted in $blocks.

  If Ehp15::stat is passed the special filehandle consisting of an underline, no
  actual stat(2) is done, but the current contents of the stat structure from
  the last Ehp15::stat, Ehp15::lstat, or Ehp15::stat-based file test subroutine
  (such as Ehp15::r, Ehp15::w, and Ehp15::x) are returned.

  Because the mode contains both the file type and its permissions, you should
  mask off the file type portion and printf or sprintf using a "%o" if you want
  to see the real permissions:

  $mode = (Ehp15::stat($expr))[2];
  printf "Permissions are %04o\n", $mode & 07777;

  If $expr is omitted, returns information on file given in $_.
  This subroutine function when the filename ends with chr(0x5C) on MSWin32.

 view release on metacpan or  search on metacpan

lib/Hebrew.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Hebrew.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Hebrew::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Einformixv6als.pm  view on Meta::CPAN

sub Einformixv6als::M_();
sub Einformixv6als::A_();
sub Einformixv6als::C_();
sub Einformixv6als::glob($);
sub Einformixv6als::glob_();
sub Einformixv6als::lstat(*);
sub Einformixv6als::lstat_();
sub Einformixv6als::opendir(*$);
sub Einformixv6als::stat(*);
sub Einformixv6als::stat_();
sub Einformixv6als::unlink(@);
sub Einformixv6als::chdir(;$);
sub Einformixv6als::do($);
sub Einformixv6als::require(;$);

lib/Einformixv6als.pm  view on Meta::CPAN

}

#
# INFORMIX V6 ALS file lstat (with parameter)
#
sub Einformixv6als::lstat(*) {

    local $_ = shift if @_;

    if (-e $_) {
        return CORE::lstat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Einformixv6als::lstat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Einformixv6als.pm  view on Meta::CPAN

}

#
# INFORMIX V6 ALS file stat (with parameter)
#
sub Einformixv6als::stat(*) {

    local $_ = shift if @_;

    my $fh = qualify_to_ref $_;
    if (defined fileno $fh) {

lib/Einformixv6als.pm  view on Meta::CPAN

    elsif (-e $_) {
        return CORE::stat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Einformixv6als::stat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Einformixv6als.pm  view on Meta::CPAN

            if (Einformixv6als::f($realfilename)) {

                my $script = '';

                if (Einformixv6als::e("$realfilename.e")) {
                    my $e_mtime      = (Einformixv6als::stat("$realfilename.e"))[9];
                    my $mtime        = (Einformixv6als::stat($realfilename))[9];
                    my $module_mtime = (Einformixv6als::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Einformixv6als::unlink "$realfilename.e";
                    }
                }

lib/Einformixv6als.pm  view on Meta::CPAN

                $INC{$_} = $realfilename;

                my $script = '';

                if (Einformixv6als::e("$realfilename.e")) {
                    my $e_mtime      = (Einformixv6als::stat("$realfilename.e"))[9];
                    my $mtime        = (Einformixv6als::stat($realfilename))[9];
                    my $module_mtime = (Einformixv6als::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Einformixv6als::unlink "$realfilename.e";
                    }
                }

lib/Einformixv6als.pm  view on Meta::CPAN

    Einformixv6als::chr_;
    Einformixv6als::X ...;
    Einformixv6als::X_;
    Einformixv6als::glob(...);
    Einformixv6als::glob_;
    Einformixv6als::lstat(...);
    Einformixv6als::lstat_;
    Einformixv6als::opendir(...);
    Einformixv6als::stat(...);
    Einformixv6als::stat_;
    Einformixv6als::unlink(...);
    Einformixv6als::chdir(...);
    Einformixv6als::do(...);
    Einformixv6als::require(...);

lib/Einformixv6als.pm  view on Meta::CPAN

  @relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
  @abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);

=item * Statistics about link

  @lstat = Einformixv6als::lstat($file);
  @lstat = Einformixv6als::lstat_;

  Like Einformixv6als::stat, returns information on file, except that if file is a symbolic
  link, Einformixv6als::lstat returns information about the link; Einformixv6als::stat returns
  information about the file pointed to by the link. If symbolic links are

lib/Einformixv6als.pm  view on Meta::CPAN

  Directory handles have their own namespace from filehandles.
  This subroutine function when the directory name ends with chr(0x5C) on MSWin32.

=item * Statistics about file

  $stat = Einformixv6als::stat(FILEHANDLE);
  $stat = Einformixv6als::stat(DIRHANDLE);
  $stat = Einformixv6als::stat($expr);
  $stat = Einformixv6als::stat_;
  @stat = Einformixv6als::stat(FILEHANDLE);
  @stat = Einformixv6als::stat(DIRHANDLE);
  @stat = Einformixv6als::stat($expr);
  @stat = Einformixv6als::stat_;

  In scalar context, this subroutine returns a Boolean value that indicates whether
  the call succeeded. In list context, it returns a 13-element list giving the
  statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
  named by $expr. It's typically used as followes:

  ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks) = Einformixv6als::stat($expr);

  Not all fields are supported on all filesystem types; unsupported fields return
  0. Here are the meanings of the fields:

  -------------------------------------------------------------------------

lib/Einformixv6als.pm  view on Meta::CPAN

  The $blocks field (if defined) is reported in 512-byte blocks. The value of
  $blocks * 512 can differ greatly from $size for files containing unallocated
  blocks, or "hole", which aren't counted in $blocks.

  If Einformixv6als::stat is passed the special filehandle consisting of an underline, no
  actual stat(2) is done, but the current contents of the stat structure from
  the last Einformixv6als::stat, Einformixv6als::lstat, or Einformixv6als::stat-based file test subroutine
  (such as Einformixv6als::r, Einformixv6als::w, and Einformixv6als::x) are returned.

  Because the mode contains both the file type and its permissions, you should
  mask off the file type portion and printf or sprintf using a "%o" if you want
  to see the real permissions:

  $mode = (Einformixv6als::stat($expr))[2];
  printf "Permissions are %04o\n", $mode & 07777;

  If $expr is omitted, returns information on file given in $_.
  This subroutine function when the filename ends with chr(0x5C) on MSWin32.

 view release on metacpan or  search on metacpan

lib/JIS8.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/JIS8.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = JIS8::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/KOI8R.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/KOI8R.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = KOI8R::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/KOI8U.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/KOI8U.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = KOI8U::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Ekps9566.pm  view on Meta::CPAN

sub Ekps9566::M_();
sub Ekps9566::A_();
sub Ekps9566::C_();
sub Ekps9566::glob($);
sub Ekps9566::glob_();
sub Ekps9566::lstat(*);
sub Ekps9566::lstat_();
sub Ekps9566::opendir(*$);
sub Ekps9566::stat(*);
sub Ekps9566::stat_();
sub Ekps9566::unlink(@);
sub Ekps9566::chdir(;$);
sub Ekps9566::do($);
sub Ekps9566::require(;$);

lib/Ekps9566.pm  view on Meta::CPAN

}

#
# KPS9566 file lstat (with parameter)
#
sub Ekps9566::lstat(*) {

    local $_ = shift if @_;

    if (-e $_) {
        return CORE::lstat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ekps9566::lstat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Ekps9566.pm  view on Meta::CPAN

}

#
# KPS9566 file stat (with parameter)
#
sub Ekps9566::stat(*) {

    local $_ = shift if @_;

    my $fh = qualify_to_ref $_;
    if (defined fileno $fh) {

lib/Ekps9566.pm  view on Meta::CPAN

    elsif (-e $_) {
        return CORE::stat _;
    }
    elsif (_MSWin32_5Cended_path($_)) {

        # Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ekps9566::stat()
        # on Windows opens the file for the path which has 5c at end.
        # (and so on)

        local *MUST_BE_BAREWORD_AT_HERE;
        if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {

lib/Ekps9566.pm  view on Meta::CPAN

            if (Ekps9566::f($realfilename)) {

                my $script = '';

                if (Ekps9566::e("$realfilename.e")) {
                    my $e_mtime      = (Ekps9566::stat("$realfilename.e"))[9];
                    my $mtime        = (Ekps9566::stat($realfilename))[9];
                    my $module_mtime = (Ekps9566::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Ekps9566::unlink "$realfilename.e";
                    }
                }

lib/Ekps9566.pm  view on Meta::CPAN

                $INC{$_} = $realfilename;

                my $script = '';

                if (Ekps9566::e("$realfilename.e")) {
                    my $e_mtime      = (Ekps9566::stat("$realfilename.e"))[9];
                    my $mtime        = (Ekps9566::stat($realfilename))[9];
                    my $module_mtime = (Ekps9566::stat(__FILE__))[9];
                    if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
                        Ekps9566::unlink "$realfilename.e";
                    }
                }

lib/Ekps9566.pm  view on Meta::CPAN

    Ekps9566::chr_;
    Ekps9566::X ...;
    Ekps9566::X_;
    Ekps9566::glob(...);
    Ekps9566::glob_;
    Ekps9566::lstat(...);
    Ekps9566::lstat_;
    Ekps9566::opendir(...);
    Ekps9566::stat(...);
    Ekps9566::stat_;
    Ekps9566::unlink(...);
    Ekps9566::chdir(...);
    Ekps9566::do(...);
    Ekps9566::require(...);

lib/Ekps9566.pm  view on Meta::CPAN

  @relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
  @abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);

=item * Statistics about link

  @lstat = Ekps9566::lstat($file);
  @lstat = Ekps9566::lstat_;

  Like Ekps9566::stat, returns information on file, except that if file is a symbolic
  link, Ekps9566::lstat returns information about the link; Ekps9566::stat returns
  information about the file pointed to by the link. If symbolic links are

lib/Ekps9566.pm  view on Meta::CPAN

  Directory handles have their own namespace from filehandles.
  This subroutine function when the directory name ends with chr(0x5C) on MSWin32.

=item * Statistics about file

  $stat = Ekps9566::stat(FILEHANDLE);
  $stat = Ekps9566::stat(DIRHANDLE);
  $stat = Ekps9566::stat($expr);
  $stat = Ekps9566::stat_;
  @stat = Ekps9566::stat(FILEHANDLE);
  @stat = Ekps9566::stat(DIRHANDLE);
  @stat = Ekps9566::stat($expr);
  @stat = Ekps9566::stat_;

  In scalar context, this subroutine returns a Boolean value that indicates whether
  the call succeeded. In list context, it returns a 13-element list giving the
  statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
  named by $expr. It's typically used as followes:

  ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks) = Ekps9566::stat($expr);

  Not all fields are supported on all filesystem types; unsupported fields return
  0. Here are the meanings of the fields:

  -------------------------------------------------------------------------

lib/Ekps9566.pm  view on Meta::CPAN

  The $blocks field (if defined) is reported in 512-byte blocks. The value of
  $blocks * 512 can differ greatly from $size for files containing unallocated
  blocks, or "hole", which aren't counted in $blocks.

  If Ekps9566::stat is passed the special filehandle consisting of an underline, no
  actual stat(2) is done, but the current contents of the stat structure from
  the last Ekps9566::stat, Ekps9566::lstat, or Ekps9566::stat-based file test subroutine
  (such as Ekps9566::r, Ekps9566::w, and Ekps9566::x) are returned.

  Because the mode contains both the file type and its permissions, you should
  mask off the file type portion and printf or sprintf using a "%o" if you want
  to see the real permissions:

  $mode = (Ekps9566::stat($expr))[2];
  printf "Permissions are %04o\n", $mode & 07777;

  If $expr is omitted, returns information on file given in $_.
  This subroutine function when the filename ends with chr(0x5C) on MSWin32.

 view release on metacpan or  search on metacpan

lib/Latin1.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin1.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin1::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin10.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin10.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin10::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin2.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin2.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin2::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin3.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin3.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin3::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin4.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin4.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin4::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin5.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin5.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin5::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin6.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin6.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin6::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin7.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin7.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin7::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

 view release on metacpan or  search on metacpan

lib/Latin8.pm  view on Meta::CPAN

            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

lib/Latin8.pm  view on Meta::CPAN

        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Latin8::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }