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
lib/Bundler/MultiGem/Model/Gem.pm view on Meta::CPAN
}
=head2 process_single_file
Manipulates each file as follows:
* create a backup of the original file C<.bak>
* replace gem name reference with gem vname (C<foo> with C<v010-foo>)
* replace gem main_module reference with gem vmodule_name (C<Foo> with C<V010::Foo>)
* unlink the backup C<.bak>
=cut
sub process_single_file {
my ($self, $v, $f) = @_;
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
# 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
\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
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.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
zlib/os400/make.sh view on Meta::CPAN
CMD="${CMD} TEXT('ZLIB ${VERSION} dynamic library')"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"
LINK=YES
# Duplicate the service program for a versioned backup.
BACKUP=`echo "${SRVPGM}${VERSION}" |
sed -e 's/.*\(..........\)$/\1/' -e 's/\./_/g'`
BACKUP="`db2_name \"${BACKUP}\"`"
BKUPIFSNAME="${LIBIFSNAME}/${BACKUP}.SRVPGM"
view release on metacpan or search on metacpan
lib/Business/LiveDrive.pm view on Meta::CPAN
croak("Unable to connect to LiveDrive API");
}
return $result;
}
=head2 addbackup
$livedrive->addbackup('123456');
Upgrades a user account to include Backup. The account is specified by
passing the account user ID.
Returns details for the upgraded account.
=cut
sub addbackup {
my ($self, $id) = @_;
croak('You must pass the cutomer ID') unless $id;
my $res = $self->_call("AddBackup", $id);
if ( $res->{Header}->{Code} ne 'UserUpgraded' ) {
croak($res->{Header}->{Description});
}
delete $res->{Header};
return $res;
}
=head2 addbackupwithlimit
$livedrive->addbackupwithlimit( userID => '123456',
capacity => 'OneTeraByte');
Upgrades a user account to include Backup with a limit as specified
Parameters:
lib/Business/LiveDrive.pm view on Meta::CPAN
Returns a hashref with the new details for the account
=cut
sub addbackupwithlimit {
my ($self, %args) = @_;
my @params = ();
foreach (qw/userID capacity/) {
croak("You must pass the $_ parameter") unless $args{$_};
push @params, $_;
view release on metacpan or search on metacpan
0.03 Tue Aug 2 17:56:11 PDT 2005
- Fix inadvertant clobbering of zip code, patch from
<phil@perkpartners.com>, CPAN bug #13896
0.02 Thu Oct 7 15:58:44 PDT 2004
- sponsored by Pro Softnet Corp. / ibackup.com:
- cvv2 support
- authorization only, post authorization, void and credit support
- patch from Robert Graff <rgraff@workingdemo.com> for credits
0.01 Wed Jan 22 02:47:25 PST 2003
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
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
lib/BuzzSaw/UserClassifier.pm view on Meta::CPAN
if ( $username eq 'tmp' ) {
$username = 'temp';
}
my @startlike = ( 'account','admin','backup','cacti','cvs',
'ftp','gast','guest','mysql','nagios','oracle',
'postgres','shoutcast','smb','spam','support',
'sysadm',
'teamspeak','newsreaderg','data','usr','team',
'marketing','monitoring','svn','feedback',
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
^MANIFEST\.
^Makefile$
^blib/
^MakeMaker-\d
# Temp, old and emacs backup files.
~$
\.old$
^#.*#$
^\.#
view release on metacpan or search on metacpan
lib/C/Blocks.xs view on Meta::CPAN
ensure_perlapi(aTHX_ pstate->data);
/* We just identified the character that is one past the end of our
* Perl variable name. Identify the type and construct the mangled
* name for the C-side variable. */
char backup = *pstate->data->end;
*pstate->data->end = '\0';
char * type;
char * long_name;
if (*pstate->sigil_start == '$') {
type = "SV";
lib/C/Blocks.xs view on Meta::CPAN
long_name = savepv(form("_PERL_HASH_%s",
pstate->sigil_start + 1));
}
else {
/* should never happen */
*pstate->data->end = backup;
croak("C::Blocks internal error: unknown sigil %c\n",
*pstate->sigil_start);
}
/* replace any double-colons */
lib/C/Blocks.xs view on Meta::CPAN
else {
int var_offset = (int)pad_findmy_pv(pstate->sigil_start, 0);
/* Ensure that the variable exists in the pad */
if (var_offset == NOT_IN_PAD) {
CopLINE(PL_curcop) += pstate->data->N_newlines;
*pstate->data->end = backup;
croak("Could not find lexically scoped \"%s\"",
pstate->sigil_start);
}
/* If the variable has an annotated type, use the type's
lib/C/Blocks.xs view on Meta::CPAN
}
}
}
/* Reset the character just following the var name */
*pstate->data->end = backup;
/* Add the long name to the main code block in place of the sigiled
* expression, and remove the sigiled varname from the buffer. */
sv_catpv_nomg(pstate->data->code_main, long_name);
lex_unstuff(pstate->data->end);
lib/C/Blocks.xs view on Meta::CPAN
}
void run_filters (pTHX_ c_blocks_data * data, int keyword_type) {
/* Get $_ and place the code in it */
SV * underbar = find_rundefsv();
SV * under_backup = newSVsv(underbar);
sv_setpvf(underbar, "%s%s%s", SvPVbyte_nolen(data->code_top),
SvPVbyte_nolen(data->code_main), SvPVbyte_nolen(data->code_bottom));
/* Apply the different filters */
SV * filters_SV = cophh_fetch_pvs(data->hints_hash, "C::Blocks/filters", 0);
if (filters_SV != &PL_sv_placeholder) {
dSP;
char * filters = SvPVbyte_nolen(filters_SV);
char * start = filters;
char backup;
while(1) {
if (*filters == '\0' && start == filters) break;
if (*filters == '|') {
backup = *filters;
*filters = '\0';
/* construct the function name to call */
char * full_method;
/* if it starts with an ampersand, it's a function name */
if (*start == '&') {
lib/C/Blocks.xs view on Meta::CPAN
full_method = form("%s::c_blocks_filter", start);
}
PUSHMARK(SP);
call_pv(full_method, G_DISCARD|G_NOARGS);
start = filters + 1;
*filters = backup;
}
filters++;
}
}
/* copy contents of underbar into main */
sv_setsv(data->code_main, underbar);
/* restore underbar when done */
sv_setsv(underbar, under_backup);
}
/*************************/
/**** Keyword plugin ****/
/************************/
view release on metacpan or search on metacpan
lib/C/Utility.pm view on Meta::CPAN
package C::Utility;
use warnings;
use strict;
use File::Spec;
use Carp;
use File::Versions 'make_backup';
use File::Slurper qw/read_text write_text/;
use C::Tokenize qw/$comment_re $include $reserved_re/;
use Text::LineNumber;
require Exporter;
lib/C/Utility.pm view on Meta::CPAN
die "$c_file_name is not a C file name";
}
my $h_file_name = $c_file_name;
$h_file_name =~ s/\.c$/\.h/;
if (-f $c_file_name) {
make_backup ($c_file_name);
}
if (-f $h_file_name) {
make_backup ($h_file_name);
}
return $h_file_name;
}
sub convert_to_c_string_pc
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/block/block_int.h view on Meta::CPAN
BlockdevOnError on_target_error,
BlockDriverCompletionFunc *cb,
void *opaque, Error **errp);
/*
* backup_start:
* @bs: Block device to operate on.
* @target: Block device to write to.
* @speed: The maximum speed, in bytes per second, or 0 for unlimited.
* @sync_mode: What parts of the disk image should be copied to the destination.
* @on_source_error: The action to take upon error reading from the source.
* @on_target_error: The action to take upon error writing to the target.
* @cb: Completion function for the job.
* @opaque: Opaque pointer value passed to @cb.
*
* Start a backup operation on @bs. Clusters in @bs are written to @target
* until the job is cancelled or manually completed.
*/
void backup_start(BlockDriverState *bs, BlockDriverState *target,
int64_t speed, MirrorSyncMode sync_mode,
BlockdevOnError on_source_error,
BlockdevOnError on_target_error,
BlockDriverCompletionFunc *cb, void *opaque,
Error **errp);
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
# 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
bin/fm_check_struct view on Meta::CPAN
}
# move config.pro to create a new adapted one
if(!move(getInstallationConfigPro($path), $oldCfg)){
testFailed($test);
if($verbose > 0){
print "Could not backup ". $envCfg ."\n";
}
exit 1;
}
# adapt config
if(!open($fhOld, "<", $oldCfg)){
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
lib/CAPE/Utils.pm view on Meta::CPAN
if ( !-f $opts{file} ) {
die( '"' . $opts{file} . '" is not a file' );
}
# create a backup copy prior to munging
# also only create it if it does not exist
my $pre_munge_file = $opts{file} . '.pre-cape_utils_munge';
if ( !-f $pre_munge_file ) {
copy( $opts{file}, $pre_munge_file )
|| die( 'Creating pre-munge file for "' . $opts{file} . '" failed... ' . $! );
view release on metacpan or search on metacpan
easyxs/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
lib/CCCP/SQLiteWrap.pm view on Meta::CPAN
unless ($obj->db->ping()) {
return "Can't ping SQLite base from ".$obj->path."\n";
};
# check database structure
my $need_rebackup = 0;
my @table = $obj->show_tables;
foreach my $table (@table) {
next unless $table;
eval{$obj->db->selectall_arrayref("SELECT * FROM $table LIMIT 1")};
if ($DBI::errstr) {
$need_rebackup++;
last;
};
};
if ($need_rebackup) {
return "SQLite base from ".$obj->path." return error like 'database disk image is malformed' and goto re-dump";
return "Bug in re-dump SQLite" unless $obj->redump();
};
return;
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
# Avoid Module::Build generated and utility files.
\bBuild$
\b_build
# Avoid temp and backup files.
~$
\.gz$
\.old$
\.bak$
\.swp$
view release on metacpan or search on metacpan
use 5.008006;
use strict;
use warnings;
use CDP::backupTask qw /:ALL/;
use CDP::diskSafe qw /:ALL/;
use CDP::mySQL qw /:ALL/;
use CDP::taskRun qw /:ALL/;
use CDP::volume qw /:ALL/;
use CDP::Connect qw /:ALL/;
You may import all methods:
use CDP qw/:ALL/;
Or You may impliment each module independently.
use CDP::backupTask qw /:ALL/;
use CDP::diskSafe qw /:ALL/;
use CDP::mySQL qw /:ALL/;
use CDP::taskRun qw /:ALL/;
use CDP::volume qw /:ALL/;
use CDP::Connect qw /:ALL/;