view release on metacpan or search on metacpan
t/lib-Archive-Tar-Builder.t view on Meta::CPAN
my $badfile = '/dev/null/impossible';
my ( $fh, $file ) = File::Temp::tempfile();
print {$fh} "skipped\n";
print {$fh} "unwanted\n";
print {$fh} "ignored\n";
print {$fh} "backup-[!_]*_[!-]*-[!-]*-[!_]*_foo*\n";
close $fh;
eval { $archive->exclude_from_file($file); };
is( $@ => '', '$archive->exclude_from_file() does not die when given a good file' );
t/lib-Archive-Tar-Builder.t view on Meta::CPAN
'poop/skipped/meow' => 0,
'poop/skipped' => 0,
'bleh/unwanted' => 0,
'bleh/ignored/meow' => 0,
'bleh/ignored' => 0,
'/home/backup-4.5.2012_12-10-36_foo.tar.gz/cats' => 0,
'/home/backup-4.5.2012_12-10-36_foo.tar.gz' => 0,
'/home/backu-4.5.2012_12-10-36_foo.tar.gz' => 1
);
print '# Excluding: "excluded", "skipped", "unwanted", "ignored"' . "\n";
view release on metacpan or search on metacpan
lib/Archive/Tar/Stream.pm view on Meta::CPAN
=head1 SYNOPSIS
Archive::Tar::Stream grew from a requirement to process very large
archives containing email backups, where the IO hit for unpacking
a tar file, repacking parts of it, and then unlinking all the files
was prohibitive.
Archive::Tar::Stream takes two file handles, one purely for reads,
one purely for writes. It does no seeking, it just unpacks
view release on metacpan or search on metacpan
t/Archive/File/Package.pm view on Meta::CPAN
This information is readily available when loaded at a local site.
However, it the load occurs at a remote site and the load crashes
Perl, the remote tester usually will not have this information
readily available.
Other applications include using backup alternative software
if a package does not load. For example if the package
'Compress::Zlib' did not load, an attempt may be made
to use the gzip system command.
=head1 BUGS
view release on metacpan or search on metacpan
unzip-6.0/History.600 view on Meta::CPAN
standard Bourne shell features, and to exit early if egrep returns
status 2 (error). [SMS]
- vms/unzip_cli.help - VMS help updates. [SMS]
- vms/unzip_def.rnh - synchronized option description with unzip_cli.help.
[Chr. Spieler]
- fileio.c: extend backup number range from 65535 to 99999 on 32-bit systems;
fixed limit detection on 16-bit systems. [Chr. Spieler]
- zipinfo.c: changed date layout of "short" (one-line) zipinfo modes to always
use ISO-style YMD order. [Chr. Spieler]
- unix/configure: added a simple compiler test to check for a working C
compiler setup. [Steven M. Schweda]
view release on metacpan or search on metacpan
private/MakeUtil.pm view on Meta::CPAN
use File::Copy ;
return if -d $file ;
my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
copy($file, $backup)
or die "Cannot copy $file to $backup: $!";
my @keep = ();
{
open F, "<$file"
view release on metacpan or search on metacpan
lib/Archive/Zip/Archive.pm view on Meta::CPAN
return _error("no filename in overwriteAs()") unless defined($zipName);
my ($fh, $tempName) = Archive::Zip::tempFile();
return _error("Can't open temp file", $!) unless $fh;
(my $backupName = $zipName) =~ s{(\.[^.]*)?$}{.zbk};
my $status = $self->writeToFileHandle($fh);
$fh->close();
$fh = undef;
lib/Archive/Zip/Archive.pm view on Meta::CPAN
}
my $err;
# rename the zip
if (-f $zipName && !rename($zipName, $backupName)) {
$err = $!;
unlink($tempName);
return _error("Can't rename $zipName as $backupName", $err);
}
# move the temp to the original name (possibly copying)
unless (File::Copy::move($tempName, $zipName)
|| File::Copy::copy($tempName, $zipName)) {
$err = $!;
rename($backupName, $zipName);
unlink($tempName);
return _error("Can't move $tempName to $zipName", $err);
}
# unlink the backup
if (-f $backupName && !unlink($backupName)) {
$err = $!;
return _error("Can't unlink $backupName", $err);
}
return AZ_OK;
}
view release on metacpan or search on metacpan
av_top_index|5.017009|5.003007|p
av_top_index_skip_len_mg|5.025010||Viu
av_undef|5.003007|5.003007|
av_unshift|5.003007|5.003007|
ax|5.003007|5.003007|
backup_one_GCB|5.025003||Viu
backup_one_LB|5.023007||Viu
backup_one_SB|5.021009||Viu
backup_one_WB|5.021009||Viu
bad_type_gv|5.019002||Viu
bad_type_pv|5.016000||Viu
BADVERSION|5.011004||Viu
BASEOP|5.003007||Viu
BhkDISABLE|5.013003||xV
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
=cut
# Emacs Local Variables:
# Emacs mode: perl
# Emacs backup-by-copying-when-linked: t
# Emacs End:
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
backtalks
backtrack
backtracked
backtracking
backtracks
backup
backups
backward
backwardly
backwardness
backwardnesses
backwards
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
backtalks
backtrack
backtracked
backtracking
backtracks
backup
backups
backward
backwardly
backwardness
backwardnesses
backwards
view release on metacpan or search on metacpan
lib/Articulate/Storage/DBIC/Simple.pm view on Meta::CPAN
=head3 empty_all_content
$storage->empty_all_content;
Removes all content. This is totally irreversible, unless you took a
backup!
=cut
sub empty_all_content {
my $self = shift;
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
# Avoid Module::Build generated and utility files.
\bBuild$
\b_build/
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
# Avoid Module::Build generated and utility files.
\bBuild$
\b_build/
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
- Ensure $_ is passed through intact during around advice using proceed
- Aspect::Library::Single no longer incorrectly checks for exceptions,
as the around advice doesn't catch them during proceed (that will be
fixed some time after 1.00)
- Expanded the testing of various edge cases
- Localise $_ in a more contained manner so that don't copy/backup $_
for hooked around pointcuts that don't match the runtime part of the
join point. Using a global for this instead of overloading $_ also
makes pointcut marginally slightly faster.
0.98 Tue 24 May 2011
view release on metacpan or search on metacpan
AssistantFrames.pm view on Meta::CPAN
$self->{'running'} = 1;
bless $self, $class;
return $self;
}
sub backupOne {
my $self = shift;
my $dlgs = $self->{'frames'};
my $answers = $self->{'answers'};
while ($self->getLastFrameRaw() =~ /^\[.*\]$/) {
pop @$dlgs;
AssistantFrames.pm view on Meta::CPAN
$self->continueOne($name, $dlg->{'value'});
if ($name eq "<finish>") {
$self->{'running'} = 0;
}
} elsif ($dlg->{'back'}) {
$self->backupOne();
if ($name eq "<start>") {
$self->{'running'} = 0;
}
} elsif ($dlg->{'abort'}) {
$self->abort();
AssistantFrames.pm view on Meta::CPAN
This checks if the assistant object is in running state. If the "<start>" frame
is aborted, this is reset to 0. If the "<finish>" frame is accepted, this is
reset to 0.
=item backupOne()
This method backs up one frame. This is internally used, you seldom have to
invoke it yourself.
=item continueOne(name, value)
view release on metacpan or search on metacpan
script/add_constant.pl view on Meta::CPAN
die "Can't file $file\n" unless -f $file;
my $schema_file = $file;
$schema_file =~ s/\.xml$/.xsd/;
my $bak = $file . '.bak';
die "Script won't overwrite backup file $bak Stopping.\n" if -f $bak;
my $xml = XML::LibXML->load_xml(location => $file, no_blanks => 1);
my ($name, $description, $value, $precision, $category_list, @categories,
$dimensions, $minValue, $maxValue, $source, );
view release on metacpan or search on metacpan
lib/Astro/FITS/HdrTrans/ESO.pm view on Meta::CPAN
my $basedate = $self->_utdate_to_object( $base );
$return = $self->_add_seconds( $basedate, $FITS_headers->{UTC} );
} elsif ( exists( $FITS_headers->{"HIERARCH.ESO.OBS.START"} ) ) {
# Use the backup of the observation start header, which is encoded in
# FITS data format, i.e. yyyy-mm-ddThh:mm:ss.
$return = $self->_parse_iso_date( $FITS_headers->{"HIERARCH.ESO.OBS.START"});
}
return $return;
}
lib/Astro/FITS/HdrTrans/ESO.pm view on Meta::CPAN
# This is approximate. UTC is time in seconds.
my $startsec = 0.0;
if ( exists ( $FITS_headers->{UTC} ) ) {
$startsec = $FITS_headers->{UTC};
# Use the backup of the observation start header, which is encoded in
# FITS data format, i.e. yyyy-mm-ddThh:mm:ss. So convert ot seconds.
} elsif ( exists( $FITS_headers->{"HIERARCH.ESO.OBS.START"} ) ) {
my $t = $FITS_headers->{"HIERARCH.ESO.OBS.START"};
$startsec = substr( $t, 11, 2 ) * 3600.0 +
substr( $t, 14, 2 ) * 60.0 + substr( $t, 17, 2 );
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\b_build
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\.tmp$
\.old$
\.bak$
\#$
view release on metacpan or search on metacpan
libnova-0.15.0/ltmain.sh view on Meta::CPAN
if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then
eval flag=\"$thread_safe_flag_spec\"
func_append linker_flags " $flag"
fi
# Make a backup of the uninstalled library when relinking
if test "$opt_mode" = relink; then
$opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $?
fi
# Do each of the archive commands.
view release on metacpan or search on metacpan
palsrc/palDfltin.c view on Meta::CPAN
* 2012-03-08 (TIMJ):
* Initial version based on strtod
* Adapted with permission from the Fortran SLALIB library
* although this is a completely distinct implementation of the SLA API.
* 2012-06-21 (TIMJ):
* Provide a backup for missing copysign.
* 2012-06-22 (TIMJ):
* Check __STDC_VERSION__
* {enter_further_changes_here}
* Copyright:
view release on metacpan or search on metacpan
xt/author/celestrak_datasets.t view on Meta::CPAN
%expect = %{ Astro::SpaceTrack->__catalog( 'celestrak_supplemental' ) };
%{ $_ } = ( %{ $_ }, ignore => 0 ) for values %expect;
foreach my $key ( keys %got ) {
if ( $got{$key}{name} =~ m/ \b (
pre-launch | post-deployment | backup \s+ launch \s+ opportunity
) \b /smxi ) {
$expect{$key}{note} = "\u$1 data sets are temporary";
$expect{$key}{name} ||= $got{$key}{name};
$expect{$key}{ignore} = 1;
}
xt/author/celestrak_datasets.t view on Meta::CPAN
# Exclude pre-launch and post-deployment data sets, which are
# ephemeral.
not ref $sibs[0]
and $sibs[0] =~ m/ \b (?:
pre-launch | post-deployment |
backup \s+ launch \s+ opportunity
) \b /smxi
and next;
if ( $href =~ m/ \b (?: sup- )? gp\.php \b /smx ) {
my $uri = URI->new( $href );
view release on metacpan or search on metacpan
- Iridium 96 failed
- Iridium 97 spare
Decays are from Space Track. Other status changes are from Dr. T. S.
Kelso's Celestrak web site. "Spare" conflates several Celestrak
statuses; the above spares are typically "[B]" (backup) or "[P]" (partly
operational).
0.096 2018-05-23 T. R. Wyant
Link to metacpan.org rather than search.cpan.org.
* Add public method intrinsic_events(), which returns events
intrinsic to the body, rather than observational ones like rise
and set, and call it in the pass() method;
* Add protected (and therefore doubly experimental) method
__pass_backup_earliest() to limit how hard the pass() method tries
to find a rise time when the pass starts with the body above the
horizon.
I have no idea whether the class this is in support of will ever see
the light of day.
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
backup_one_LB|||
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\b_build
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\.tmp$
\.old$
\.bak$
\#$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
COVER.SKIP
CPAN.SKIP
t/000_standard__*
Debian_CPANTS.txt
# Temp, old, emacs, vim, backup files.
~$
.old$
.swp$
.tar$
.tar\.gz$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
CPAN.SKIP
t/000_standard__*
Debian_CPANTS.txt
nytprof.out
# Temp, old, emacs, vim, backup files.
~$
\.old$
\.swp$
\.tar$
\.tar\.gz$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
CPAN.SKIP
t/000_standard__*
Debian_CPANTS.txt
nytprof.out
# Temp, old, emacs, vim, backup files.
~$
\.old$
\.swp$
\.tar$
\.tar\.gz$
view release on metacpan or search on metacpan
repository.url = git://github.com/xsawyerx/audio-chromaprint.git
repository.web = https://github.com/xsawyerx/audio-chromaprint
repository.type = git
[PruneFiles]
match = ~$ ; emacs backup files
;[PodCoverageTests]
;[Test::EOL]
[Prereqs::FromCPANfile]