view release on metacpan or search on metacpan
vhost/dumper.sh view on Meta::CPAN
#mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert reports >cgi-bin/db/reports-backup.sql
#mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert reports monitor >cgi-bin/db/monitor.sql
mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert --ignore-table=reports.hits --ignore-table=reports.sessions reports >cgi-bin/db/reports-backup.sql
mysqldump -u barbie --create-options --add-drop-table --no-data reports >cgi-bin/db/reports-schema.sql
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
view release on metacpan or search on metacpan
vhost/dumper.sh view on Meta::CPAN
mysqldump -u secret -p --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert cpanwiki >cgi-bin/db/cpanwiki-backup.sql
mysqldump -u secret -p --create-options --add-drop-table --no-data cpanwiki >cgi-bin/db/cpanwiki-schema.sql
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
\b_build
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
^\.#
\.bak$
view release on metacpan or search on metacpan
t/data/cpanriver.01.build.log view on Meta::CPAN
t/28_schemachange.t ................................... ok
t/30_auto_rollback.t .................................. ok
t/31_bind_weird_number_param.t ........................ ok
t/32_inactive_error.t ................................. ok
t/33_non_latin_path.t ................................. ok
t/34_online_backup.t .................................. ok
t/35_table_info.t ..................................... ok
t/36_hooks.t .......................................... ok
t/37_regexp.t ......................................... ok
t/38_empty_statement.t ................................ ok
t/39_foreign_keys.t ................................... ok
view release on metacpan or search on metacpan
lib/CPAN2RT.pm view on Meta::CPAN
$ua->timeout( 10 );
foreach my $file ( @files ) {
debug { "Fetching '$file'\n" };
my $store = $self->file_path( $file );
$self->backup_file( $store ) if -e $store;
my $response = $ua->get( "$mirror/$file", ':content_file' => $store );
unless ( $response->is_success ) {
print STDERR $response->status_line, "\n";
next;
}
my $mtime = $response->header('Last-Modified');
debug { "Fetched '$file' -> '$store'\n" };
if ( $store =~ /(.*)\.gz$/ ) {
$self->backup_file( $1 );
`gunzip -f $store`;
$store =~ s/\.gz$//;
debug { "Unzipped '$store'\n" };
}
lib/CPAN2RT.pm view on Meta::CPAN
my $old = $new .'.old';
return 1 unless -e $old;
return (stat $new)[9] > (stat $old)[9]? 1 : 0;
}
sub backup_file {
my $self = shift;
my $old = shift;
my $new = $old .'.old';
rename $old, $new;
}
view release on metacpan or search on metacpan
misc/make_dist.pl view on Meta::CPAN
use strict;
use Pod::Html;
use Cwd;
use File::Spec;
my $backup = 0;
my $root = shift @ARGV || '../';
$root =~ tr|\\|/|;
$root = "$root/" unless $root =~ m|/$|;
make_clean($root);
misc/make_dist.pl view on Meta::CPAN
my $file = shift;
local $/;
open my $fh, "+<$file" or die "Can't open $file for R/W $!\n";
binmode $fh;
my $data = <$fh>;
write_file( "$file.bak" , $data ) if $backup;
$data =~ s/\015\012/\012/g;
$data =~ s/ +\012/\012/g;
$data =~ s/\t/ /g;
seek $fh, 0, 0;
truncate $fh, 0;
view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
use Carp;
use Symbol 'gensym','qualify_to_ref'; # For the 'any data type' hack
@CPANPLUS::YACSmoke::IniFiles::errors = ( );
# $Header: /home/shlomi/progs/perl/cpan/Config/IniFiles/config-inifiles-cvsbackup/config-inifiles/IniFiles.pm,v 2.41 2003-12-08 10:50:56 domq Exp $
=head1 NAME
Config::IniFiles - A module for reading .ini-style configuration files.
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
=item *
No locking is done by [Re]WriteConfig. When writing servers, take
care that only the parent ever calls this, and consider making your
own backup.
=back
=head1 Data Structure
view release on metacpan or search on metacpan
inc/bundle/Module/Pluggable/Object.pm view on Meta::CPAN
sub _is_editor_junk {
my $self = shift;
my $name = shift;
# Emacs (and other Unix-y editors) leave temp files ending in a
# tilde as a backup.
return 1 if $name =~ /~$/;
# Emacs makes these files while a buffer is edited but not yet
# saved.
return 1 if $name =~ /^\.#/;
# Vim can leave these files behind if it crashes.
view release on metacpan or search on metacpan
lib/CPAN/Audit/DB.pm view on Meta::CPAN
use warnings;
our $VERSION = '20260419.002';
sub db {
{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}
__PACKAGE__;
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bbuild.com$
# and Module::Build::Tiny generated files
\b_build_params$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
lib/CPU/Emulator/Memory.pm view on Meta::CPAN
=over
=item file
if provided, will provide a disc-based backup of the
RAM represented. This file will be read when the object is created
(if it exists) and written whenever anything is altered. If no
file exists or no filename is provided, then memory is initialised
to all zeroes. If the file exists it must be writeable and of the
correct size.
view release on metacpan or search on metacpan
lib/CPU/Emulator/Z80/Manual.pod view on Meta::CPAN
file => 'memory.ram'
)
);
Generally, the default is what you want, but note that the default
configuration does *not* backup the CPU's RAM to a file. Note that
if you define your own memory, it *must* be little-endian.
=head1 HOW DO IT GET A PROGRAM INTO MEMORY
The hard way, which is also most suitable for very small hacks, is
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
/* discard current node */
CssDiscardNode(curr);
/* reset "head" if that's what got pruned */
if (curr == head)
head = prev ? prev : next;
/* backup and try again if possible */
curr = prev ? prev : next;
break;
case PRUNE_NEXT:
/* discard next node */
CssDiscardNode(next);
view release on metacpan or search on metacpan
lib/CSS/Object/Format.pm view on Meta::CPAN
property_separator
)];
return( $self );
}
sub backup_parameters { return( shift->clone ); }
sub class { return( ref( $_[0] ) ); }
sub close_brace_on_new_line { return( shift->_set_get_boolean( 'close_brace_on_new_line', @_ ) ); }
lib/CSS/Object/Format.pm view on Meta::CPAN
=back
=head1 METHODS
=head2 backup_parameters
This will create a deep copy of this formatter's L</parameters> and return it.
See L</restore_parameters>
lib/CSS/Object/Format.pm view on Meta::CPAN
This returns the current character value as a L<Module::Generic::Scalar> object.
=head2 restore_parameters
Provided with an hash reference, typically that created by L</backup_parameters> and this will restore this formatter's L</parameters>
It returns our object
=head2 rule_as_string
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
Makefile$
# Exclude the stamp file
pm_to_blib
# Exclude the META files made by ExtUtils::MakeMaker
MYMETA..*
# Exclude backup files made by ExtUtils::MakeMaker
.*\.bak
# Exclude untarred distribution files
^CSS-Tidy-[0-9\.]+/$
# Exclude tarred distribution files
^CSS-Tidy-[0-9\.]+\.tar\.gz$
view release on metacpan or search on metacpan
lib/CTK/Log.pm view on Meta::CPAN
$logger->log_except( "..." ); # 9 exception, aborts program!
$logger->log_fatal( "..." ); # 8 system unusable, aborts program!
$logger->log_emerg( "..." ); # 7 system is unusable
$logger->log_alert( "..." ); # 6 failure in primary system
$logger->log_crit( "..." ); # 5 failure in backup system
$logger->log_error( "..." ); # 4 non-urgent program errors, a bug
$logger->log_warning( "..." ); # 3 possible problem, not necessarily error
$logger->log_notice( "..." ); # 2 unusual conditions
$logger->log_info( "..." ); # 1 normal messages, no action required
$logger->log_debug( "..." ); # 0 debugging messages (default)
lib/CTK/Log.pm view on Meta::CPAN
0 7 debug debugging messages, copious tracing output
1 6 info normal messages, no action required
2 5 notice note unusual conditions
3 4 warning warn possible problem, not necessarily error
4 3 error err non-urgent program errors, a bug
5 2 critical crit failure in backup system
6 1 alert failure in primary system
7 0 emergency emerg system unusable
8 0 fatal system unusable, aborts program!
9 0 exception except exception, aborts program!
view release on metacpan or search on metacpan
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
arbitrary data structure such as a parse tree for I<$input>) just as B<Call>
would. If parsing fails, B<Try> does not abort but simply returns B<undef>,
ignoring any error messages generated during the attempt. In addition, the
call stack is restored and all parameters are reset to their previous values,
so that parsing can continue as if nothing had happened (note, however, that
this is based on flat backup copies, so complex data structures may have been
altered destructively).
=cut
sub Try {
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
unless @_ == 3;
my ($self, $rule, $input) = @_;
confess "Sorry, we're not parsing yet"
unless defined $self->{INPUT};
## make flat backup copies of important data structures and ensure they are restored upon return
## (this is not completely safe, but should undo most changes that a failed parse may have made)
my $back_param = [ @{$self->{PARAM}} ];
my $back_callstack = [ @{$self->{CALLSTACK}} ];
my ($back_groups, $back_current_group, $back_groupstack) = (undef, undef, undef);
if (defined $self->{GROUPS}) {
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
$back_groupstack = [ @{$self->{GROUPSTACK}} ];
}
my $result = eval { $self->Call($rule, $input) };
## if parsing failed, restore internal data structures from backup copies
if (not defined $result) {
$self->{PARAM} = $back_param;
$self->{CALLSTACK} = $back_callstack;
$self->{GROUPS} = $back_groups;
if (defined $back_groups and defined $back_current_group) {
view release on metacpan or search on metacpan
gen/Makefile.unix view on Meta::CPAN
all: cperl
install: cperl
@if [ -f "$(CACHEDIR)/bin/cache.old" ] ; then \
echo "sorry, there is already a backup copy of your cache binary" ; \
echo "Aborting - nothing done" ; \
exit 1 ; \
fi
mv "$(CACHEDIR)/bin/cache" "$(CACHEDIR)/bin/cache.old"
cp ./cperl "$(CACHEDIR)/bin/cperl"
view release on metacpan or search on metacpan
lib/Cache/CacheFactory.pm view on Meta::CPAN
Pruning and validity policies are set on a per-cache basis rather than
on a per-storage-policy basis, this makes multiple storage policies
largely pointless for most purposes where you'd find it useful.
If you wanted the cache to transparently use a small fast memory cache
first and fall back to a larger slower file cache as backup: you can't
do it, because the size pruning policy would be the same for both storage
policies.
About the only current use of multiple storage policies is to have a
memory cache and a file cache so that processes that haven't pulled
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\.#
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_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
lib/CallBackery/GuiPlugin/Abstract.pm view on Meta::CPAN
};
=head2 stateFiles
A list of files that contain the state of the settings configured by
this plugin this is used both for backup purposes and to replicate the
settings to a second installation.
=cut
has stateFiles => sub {
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
MANIFEST.SKIP view on Meta::CPAN
^Makefile$
^andy/
^blib/
^pm_to_blib$
# Temp, old and emacs backup files.
~$
^\.DS_Store
\.(old|tmp|bak)$
^#.*#$
^\.#