view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bMakeMaker-\d
\bpm_to_blib\.ts$
\bpm_to_blib$
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bMakeMaker-\d
\bpm_to_blib\.ts$
\bpm_to_blib$
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
lib/Config/HAProxy.pm view on Meta::CPAN
$cfg->save(%hash);
$cfg->write($file_or_handle, %hash);
$cfg->backup;
$name = $self->backup_name;
$cfg->reset;
$cfg->push($node);
$node = $cfg->pop;
$node = $cfg->tos;
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
lib/Config/Trivial/Storable.pm view on Meta::CPAN
}
if ( -e $file ) {
croak "ERROR: Insufficient permissions to write to: $file"
unless ( -w $file );
rename $file, $file . $self->{_backup_char}
or croak "ERROR: Unable to rename $file.";
}
my $settings = $args{'configuration'} || $self->{_configuration};
view release on metacpan or search on metacpan
lib/Config/Trivial.pm view on Meta::CPAN
my $object = bless {
_config_file => $_file, # The Config file, default is caller
_self => 1, # Set Self Read
_error_message => q{}, # Error Messages
_configuration => {}, # Where the configuration data goes
_backup_char => q{~}, # Backup marker
_separator => q{ }, # Separator
_multi_file => 0, # Multi file mode
_debug => $args{debug} || 0, # Debugging (verbose) mode
_strict => $args{strict} || 0, # Strict mode
_no_check => $args{no_check} || 0, # Skip filesystem checks
lib/Config/Trivial.pm view on Meta::CPAN
}
if ( -e $file ) {
croak "ERROR: Insufficient permissions to write to: $file"
unless ( -w $file );
rename $file, $file . $self->{_backup_char}
or croak "ERROR: Unable to rename $file.";
}
open my $config, '>', $file
or croak "ERROR: Unable to write configuration file: $file";
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/Config/Writer.pm view on Meta::CPAN
safe temporary configuration file creation, ownership and
access mode setting;
=item *
creation of backup file(-s) of the target configuration file;
=item *
automatic cleanup of outdated or surplus backup files.
=back
Now you are able to restore configuration file even if you
forgot to create a backup file before editing it!
=head1 CAVEATS
=over 4
lib/Config/Writer.pm view on Meta::CPAN
relative path part. Path part handling is described in B<workdir> option description
below.
New temporary file will be created on success and all write operations will be
performed on this temporary file. On `close` method invocation existing configuration
file can be moved to a backup file (see descrition of B<overwrite> option below) and
temporary file is renamed in place of the original configuration file.
=over 4
=item B<FILENAME>
lib/Config/Writer.pm view on Meta::CPAN
Configuration file to be created or replaced name. Can contain either absolute or
relative path part. Path part handling is described in B<workdir> option description below.
New temporary file will be created on success and all write operations will be performed
on this temporary file. On B<close()> method invocation existing configuration file can
be moved to a backup file (see descrition of B<overwrite> option below) and temporary file
is renamed in place of the original configuration file.
=item B<format> = STRING
Configuration file format. Currently unused.
lib/Config/Writer.pm view on Meta::CPAN
Work directory existence check is performed. If work directory does not exist, `undef`
is returned and error flag is set!
=item B<retain> = INTEGER
Quantity of configuration file backups to retain. Default is 0 - do not retain any.
=item B<overwrite> = BOOLEAN
Existing backup file will be either overwritten if the flag is set to true
(overwrite = 1) or stayed untouched (overwrite = 0). E. g. if you choose to
store single backup per day, you'll get either the latest configuration version
before it being updated, or the configuration you've got at the beginning of the
day.
Default is 0.
=item B<extension> = STRING
Configuration file backup extension format as described in POSIX strftime function
documentation. The new extension will replace original one, so the backup files
should not be loaded even in case wildcards (e. g. 'B<*.conf>') are used to include
configuration from a several files. Existing backup files will either stay untouched
or overwritten depending on B<overwrite> flag value.
Default is '-%Y-%m-%d'.
=item B<owner> = STRING
lib/Config/Writer.pm view on Meta::CPAN
closes temporary configuration file;
=item *
tries to rename target configuration file to a backup file (if `retain`
option is non-zero);
=item *
tries to remove surplus (oldest) backup files (if `retain` option is non-zero);
=item *
tries to rename temporary configuration file to a target name.
lib/Config/Writer.pm view on Meta::CPAN
=cut #}}}
if (fileno $self->{'fh'} != -1 and fileno $self->{'fh'} != fileno STDOUT) {
undef $self->{'fh'};
unless ($self->{'retain'} == 0) {
my $backup = $self->{'workdir'} . '/' . $self->{'filename'} . POSIX::strftime($self->{'extension'}, localtime time);
if (! -f $backup or isTrue $self->{'overwrite'}) {
rename($self->{'fullname'}, $backup) or $self->{'error'} = boolean::true;
}
opendir(DH, $self->{'workdir'}) or $self->{'error'} = boolean::true;
my $tmpfiles = {};
foreach my $filename (readdir DH) {
next if $filename !~ /^$self->{'filename'}(?!$|\.[_\w]{6}$)/;
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
.perltidyrc view on Meta::CPAN
##################### Official Melody perltidyrc file #####################
##### HOW TO USE: After installing perltidy, cd to your Melody root
##### directory. To run on a single file, creating a backup at FILE.bak:
#####
##### perltidy PATH/TO/FILE
#####
##### You can use shell glob characters to run on multiple files:
#####
.perltidyrc view on Meta::CPAN
# Same as above. Will create file.ERR
--no-standard-error-output
# We use version control and can reset changes easily, so just rewrite the
# file instead of creating a backup (.bak) for each file
--backup-and-modify-in-place
-backup-file-extension=tdybak
# Causes warnings to be treated like errors (think 'use strict')
--warning-output
#####
.perltidyrc view on Meta::CPAN
# -square-bracket-vertical-tightness-closing=0
# -square-bracket-vertical-tightness=0
# -static-block-comments
# -trim-qw
# -format=tidy
# -backup-file-extension=bak
# -format-skipping
# -pod2html
# -html-table-of-contents
# -html-entities
# -perl-syntax-check-flags=-c -T
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/Configd/Language.pm view on Meta::CPAN
Sorted by name, so the numeric prefixes everybody already writes on C<conf.d>
entries do what they look like they do. Names starting with a dot are skipped,
and so is anything ending in C<~>, C<.disabled>, C<.bak>, or one of the suffixes
dpkg and rpm leave behind -- C<.dpkg-old>, C<.dpkg-new>, C<.dpkg-dist>,
C<.rpmsave>, C<.rpmnew>. Editors and package managers leave those lying about,
and a stray backup silently taking part in the merge is a bad afternoon.
=head2 $language->merge(@fragment_sets)
One list of directives out of several, applying C<accumulates> to decide which
of two directives for the same key wins and which of them join up.
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
dist.ini
# Temp, old and emacs backup files.
~$
\.old$
^#.*#$
^\.#
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.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
lib/Container/Buildah/Stage.pm view on Meta::CPAN
my @product_dirs;
foreach my $product (@$produces) {
push @product_dirs, dropslash($product);
}
# move any existing tarball to backup
if ( -f $tarball_out ) {
rename $tarball_out, $tarball_out.".bak";
}
# create the tarball
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
ctlib/y_parser.c view on Meta::CPAN
{ \
yychar = (Token); \
yylval = (Value); \
YYPOPSTACK (yylen); \
yystate = *yyssp; \
goto yybackup; \
} \
else \
{ \
yyerror (pState, YY_("syntax error: cannot back up")); \
YYERROR; \
ctlib/y_parser.c view on Meta::CPAN
if (yystate == YYFINAL)
YYACCEPT;
goto yybackup;
/*-----------.
| yybackup. |
`-----------*/
yybackup:
/* Do appropriate processing given the current state. Read a
lookahead token if we need one and don't already have one. */
/* First try to decide what to do without reference to lookahead token. */
yyn = yypact[yystate];
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/Convert/Pheno/HTTP/Jobs.pm view on Meta::CPAN
}
sub _metadata_lock {
my ($file, $mode) = @_;
# Lock a stable sibling, not the JSON inode replaced by atomic writes.
# Windows readers must not overlap replacement (including its backup gap).
# Keep this file in place: unlinking it could create two independent locks.
my $lockfile = path($file)->parent->child('.metadata.lock');
open my $lock, '>>', $lockfile
or die "Cannot open job metadata lock <$lockfile>: $!\n";
flock($lock, $mode)
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
uulib/uucheck.c view on Meta::CPAN
liter->size = thesize;
if (liter->state==UUFILE_OK &&
(liter->filename==NULL || liter->filename[0]=='\0')) {
/*
* Emergency backup if the file does not have a filename
*/
_FP_free (liter->filename);
if (liter->subfname && liter->subfname[0] &&
_FP_strpbrk (liter->subfname, "()[];: ") == NULL)
liter->filename = _FP_strdup (liter->subfname);
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
precious.toml view on Meta::CPAN
[commands.perltidy]
type = "both"
include = [ "**/*.{pl,pm,t,psgi}" ]
cmd = [ "perltidy", "--profile=$PRECIOUS_ROOT/perltidyrc" ]
lint_flags = [ "--assert-tidy", "--no-standard-output", "--outfile=/dev/null" ]
tidy_flags = [ "--backup-and-modify-in-place", "--backup-file-extension=/" ]
ok_exit_codes = 0
lint_failure_exit_codes = 2
expect_stderr = true
[commands.podchecker]
precious.toml view on Meta::CPAN
expect_stderr = true
[commands.podtidy]
type = "tidy"
include = [ "**/*.{pl,pm,pod}" ]
cmd = [ "podtidy", "--columns", "80", "--inplace", "--nobackup" ]
ok_exit_codes = 0
lint_failure_exit_codes = 1
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|