view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

64
65
66
67
68
69
70
71
72
73
74
                        print "[$i_test] re-read($orig) => o_new($o_new)!\n";
                }
        }
        $File::Data::SILENT=0;
}
ok( !$i_errs, 'locked' );
 
# =============================================================================
 
# PERM (issions) _check_access
# =============================================================================

 view release on metacpan or  search on metacpan

lib/File/DataClass/IO.pm  view on Meta::CPAN

1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
   $io->close;
 
Close the file or directory handle depending on type
 
If the temporary atomic file exists, renames it to the original
filename. Unlocks the file if it was locked. Closes the file handle
 
=head2 copy
 
   $dest_obj = io( 'path_to_file' )->copy( $destination_path_or_object );

 view release on metacpan or  search on metacpan

lib/File/Drawing.pm  view on Meta::CPAN

365
366
367
368
369
370
371
372
373
374
375
my $drawing_block='';
$file_contents = '' unless $file_contents;
if($file_contents =~ s|$options->{drawing_block_regex}|$options->{drawing_block_holder}|s) {
    $drawing_block = $1;
}
if(!$drawing_block && $options->{retrieve_unblocked}) {
    if($file_contents =~ s|(\$white_tape =  # parts.*)|$options->{drawing_block_holder}|s) {
        $drawing_block = $1;
    }
}
unless($drawing_block) {

lib/File/Drawing.pm  view on Meta::CPAN

868
869
870
871
872
873
874
875
876
877
 
=item contents
 
The contents proper is the text and graphics inside the
drawing boundaries, not including the lower right corner
blocked off area containing the title and the upper right
corner revision history.
The contents should conform to standards for contents
such as ANSI X3.5-1970, Flowchart Symbols and their
Usage in Information Processing.

 view release on metacpan or  search on metacpan

lib/File/Extension.pm  view on Meta::CPAN

2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
'f2k'          => 'Fortran Source Code File',
'f2r'          => 'Farandoyle Linear Module File',
'f32'          => 'Raw 32-Bit Audio File',
'f3d'          => 'Fusion 3D Design',
'f3f'          => 'Crazy Machines Font File',
'f3r'          => 'Farandoyle Blocked Module File',
'f3z'          => 'Fusion 360 Shared Project Archive',
'f4a'          => 'Adobe Flash Protected Audio File',
'f4f'          => 'Flash Video Fragment',
'f4m'          => 'Adobe Flash Media Manifest File',
'f4p'          => 'Adobe Flash Protected Media File',

 view release on metacpan or  search on metacpan

lib/File/FcntlLock/Errors.pm  view on Meta::CPAN

26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
# man pages for Linux, TRUE64, OpenBSD3 and Solaris8.
 
my $err;
 
if ( $err = eval { &Errno::EACCES } ) {
    $fcntl_error_texts{ $err } = "File or segment already locked " .
                                 "by other process(es) or file is " .
                                 "mmap()ed to virtual memory";
}
 
if ( $err = eval { &Errno::EAGAIN } ) {
    $fcntl_error_texts{ $err } = "File or segment already locked " .
                                 "by other process(es)";
}
 
if ( $err = eval { &Errno::EBADF } ) {
    $fcntl_error_texts{ $err } = "Not an open file or not opened for " .

lib/File/FcntlLock/Errors.pm  view on Meta::CPAN

48
49
50
51
52
53
54
55
56
57
58
    $fcntl_error_texts{ $err } = "Operation would cause a deadlock";
}
 
if ( $err = eval { &Errno::EFAULT } ) {
    $fcntl_error_texts{ $err } = "Lock outside accessible address space " .
                                 "or to many locked regions";
}
 
if ( $err = eval { &Errno::EINTR } ) {
    $fcntl_error_texts{ $err } = "Operation interrupted by a signal";
}

 view release on metacpan or  search on metacpan

t/01_File-Fetch.t  view on Meta::CPAN

26
27
28
29
30
31
32
33
34
35
36
 
####################### NOTE ##############################
 
Some of these tests assume you are connected to the
internet. If you are not, or if certain protocols or hosts
are blocked and/or firewalled, these tests could fail due
to no fault of the module itself.
 
###########################################################
 
];

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

33
34
35
36
37
38
39
40
41
42
43
Usage:
 
 $lock = File::Flock::Retry->lock($path, \%opts)
 
Attempt to acquire an exclusive lock on $path. By default, $path will be
created if not already exists (see "mode"). If $path is already locked
by another process, will retry every second for a number of seconds (by
default 60). Will die if failed to acquire lock after all retries.
 
Will automatically unlock if $lock goes out of scope. Upon unlock, will
remove $path if it is still empty (zero-sized).