File perl-File-AtomicWrite.spec of Package perl-File-AtomicWrite

Overview Repositories Revisions Requests Users Attributes Meta

File perl-File-AtomicWrite.spec of Package perl-File-AtomicWrite

#
# spec file for package perl-File-AtomicWrite
#
# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.

# Please submit bugfixes or comments via https://bugs.opensuse.org/
#

Name:           perl-File-AtomicWrite
Version:        1.21
Release:        0
%define cpan_name File-AtomicWrite
Summary:        Writes Files Atomically Via Rename()
License:        BSD-3-Clause
Group:          Development/Libraries/Perl
Url:            https://metacpan.org/release/%{cpan_name}
Source0:        https://cpan.metacpan.org/authors/id/J/JM/JMATES/%{cpan_name}-%{version}.tar.gz
Source1:        cpanspec.yml
BuildArch:      noarch
BuildRoot:      %{_tmppath}/%{name}-%{version}-build
BuildRequires:  perl
BuildRequires:  perl-macros
BuildRequires:  perl(Digest::SHA1)
BuildRequires:  perl(File::Temp) >= 0.18
Requires:       perl(Digest::SHA1)
Requires:       perl(File::Temp) >= 0.18
%{perl_requires}

%description
This module offers atomic file writes via a temporary file created in the
same directory (and therefore probably the same partition) as the specified
*file*. After data has been written to the temporary file, the 'rename'
system call is used to replace the target *file*. The module optionally
supports various sanity checks (*min_size*, *CHECKSUM*) that help ensure
the data is written without errors.

Should anything go awry, the module will 'die' or 'croak'. All calls should
be wrapped in 'eval' blocks or better yet Try::Tiny.

eval { File::AtomicWrite->write_file(...) };
  if ($@) { die "uh oh: $@" }

The module attempts to 'flush' and 'sync' the temporary filehandle prior to
the 'rename' call. This may cause portability problems. If so, please let
the author know. Also notify the author if false positives from the 'close'
call are observed.

%prep
%setup -q -n %{cpan_name}-%{version}
find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644

%build
perl Makefile.PL INSTALLDIRS=vendor
%{__make} %{?_smp_mflags}

%check
%{__make} test

%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist

%files -f %{name}.files
%defattr(-,root,root,755)
%doc Changes README
%license LICENSE

%changelog

Places

File perl-File-AtomicWrite.spec of Package perl-File-AtomicWrite

Places