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]
view release on metacpan or search on metacpan
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
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
libsamplerate/Cfg/ltmain.sh view on Meta::CPAN
if test yes = "$thread_safe" && 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 relink = "$opt_mode"; 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
lib/Audio/M4P/QuickTime.pm view on Meta::CPAN
use Cwd;
use strict;
use warnings;
use Audio::M4P::QuickTime;
my $backup_requested = "yes";
my $win = new MainWindow;
my $frm = $win->Frame()->pack;
$frm->Label(
-text => "Anonymize Apple iTunes Plus .m4a Files",
-font => "Garamond 20 bold",
)->pack;
my $do_backup_choice = $frm->Radiobutton(
-text => "Back Up (append .old.m4a to old files)",
-value => 'yes',
-variable => \$backup_requested,
-font => "Garamond 14 bold",
)->pack;
my $do_no_backup_choice = $frm->Radiobutton(
-text => "Do Not Back Up (files will be over-written!)",
-value => 'no',
-variable => \$backup_requested,
-font => "Garamond 14 bold",
)->pack;
my $convert_button = $win->Button(
-text => "Convert Files",
lib/Audio/M4P/QuickTime.pm view on Meta::CPAN
)->pack;
MainLoop;
sub push_button {
my $write_extension = $backup_requested eq 'no' ? '' : '.old.m4a';
my @file_list = $win->getOpenFile(
-defaultextension => ".pl",
-filetypes => [ [ 'MP4a files', '.m4a', ], [ 'All Files', '*', ], ],
-initialdir => Cwd::cwd(),
-initialfile => "getopenfile",
view release on metacpan or search on metacpan
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
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
mpg123/CHANGES view on Meta::CPAN
and 2.2 on a Pentium-166 (20% CPU).
Added Digital Unix. Tested with DU 3.2 on a DEC 3000/500
(Alpha AXP 150 MHz, 33% CPU). Does not support DEC's
audio interface ("AudioFile"), decodes to stdout only.
Improved "clean" target to remove core files and editor
backup files.
Added "install" target.
Added "dist" target to create a .tar.gz file of the source
directory.
In the distributed Makefile, all system sections are
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
^MYMETA.yml$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\.tmp$
\.old$
\.bak$
\#$
view release on metacpan or search on metacpan
lib/Audit/Log.pm view on Meta::CPAN
name => qr/somefile.txt/i,
);
=head1 WHY
I had to do reporting for non-incremental backups.
I needed something faster than GNU find, and which took less memory as well.
I didn't want to stat 1M+ files.
Just reads a log and keeps the bare minimum useful information.
You can use auditd for a number of other interesting purposes, which this should support as well.
lib/Audit/Log.pm view on Meta::CPAN
It's common to have the audit log be quite verbose, and log-rotated.
To get around that you can dump pieces of the audit log as appropriate with ausearch.
Here's an example of dumping keyed events for the last day, which you could then load into new().
ausearch --raw --key backupwatch -ts `date --date yesterday '+%x'` > yesterdays-audit.log
If you pass 'ausearch' as the audit log path to new(), we will pipe-open to this in subsequent search() calls.
=head3 configuring retention
lib/Audit/Log.pm view on Meta::CPAN
Auditd logs are also structured in blocks separated between SYSCALL lines, which are normally filtered by 'key', which corresponds to rule name.
We can speed up processing by ignoring events of the incorrect key.
Example:
my $rows = $parser->search( type => qr/path/i, nametype=qr/delete|create|normal/i, key => qr/backup_watch/i );
The above will ignore events from all rules save those from the "backup_watch" rule.
=head3 Speeding it up: by timeframe
Auditd log rules also print a timestamp, which means we need a numeric comparison.
Pass in 'older' and 'newer', and we can filter out things appropriately.
view release on metacpan or search on metacpan
use this ticket system with applications that store data that has to be
private. E.g. a patient document system.
There's a catch in such systems. If the user looses his/hers password,
he/she won't be able to decrypt his/hers data. This poses a problem
for helpdesks. The Aut systems provides the following backup for this
situation.
=head3 The backup system for lost passwords
If a user looses his/hers password, an administrator would normally
provide the user with a new password. However, this would mean that
the users looses all his/hers encrypted data, because his/hers password
is connected to the encrypted data by means of encryption/decryption keys.
view release on metacpan or search on metacpan
lib/Auth/Kokolores/Plugin/DumpRequest.pm view on Meta::CPAN
use Data::Dumper;
sub authenticate {
my ( $self, $r ) = @_;
my $sort_keys_backup;
if( $self->hide_server_obj ) {
$sort_keys_backup = $Data::Dumper::Sortkeys;
$Data::Dumper::Sortkeys = sub {
my ($hash) = @_;
return [ grep { $_ ne 'server' } keys %$hash ];
};
}
$r->log(4, 'request data: '.Dumper($r) );
if( $self->hide_server_obj ) {
$Data::Dumper::Sortkeys = $sort_keys_backup;
}
return $self->success;
}
view release on metacpan or search on metacpan
lib/Authen/DecHpwd.pm view on Meta::CPAN
This module implements the C<SYS$HASH_PASSWORD> password hashing function
from VMS (also known as C<LGI$HPWD>), and some associated VMS username
and password handling functions.
The password hashing function is implemented in XS, with a hideously
slow pure Perl backup version for systems that can't handle XS.
=cut
package Authen::DecHpwd;
view release on metacpan or search on metacpan
lib/Authen/Passphrase/Scrypt.pm view on Meta::CPAN
=head1 DESCRIPTION
B<This is experimental code, DO NOT USE in security-critical software>.
Scrypt is a key derivation function that was originally developed for
use in the Tarsnap online backup system and is designed to be far more
secure against hardware brute-force attacks than alternative functions
such as PBKDF2 or bcrypt.
Authen::Passphrase::Scrypt is a module for hashing and verifying
passphrases using scrypt. It offers the same interface as
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$