#
# spec file for package perl-File-AtomicWrite
#
# Copyright (c) 2024 SUSE LLC
#
# 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/
#


%define cpan_name File-AtomicWrite
Name:           perl-File-AtomicWrite
Version:        1.210.0
Release:        0
# 1.21 -> normalize -> 1.210.0
%define cpan_version 1.21
License:        BSD-3-Clause
Summary:        Writes files atomically via rename()
URL:            https://metacpan.org/release/%{cpan_name}
Source0:        https://cpan.metacpan.org/authors/id/J/JM/JMATES/%{cpan_name}-%{cpan_version}.tar.gz
Source1:        cpanspec.yml
Source100:      README.md
BuildArch:      noarch
BuildRequires:  perl
BuildRequires:  perl-macros
BuildRequires:  perl(Digest::SHA1)
BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.48
BuildRequires:  perl(File::Temp) >= 0.18
Requires:       perl(Digest::SHA1)
Requires:       perl(File::Temp) >= 0.18
Provides:       perl(File::AtomicWrite) = %{version}
%undefine       __perllib_provides
%{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
%autosetup  -n %{cpan_name}-%{cpan_version}

find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -path "*/scripts/*" ! -name "configure" -print0 | xargs -0 chmod 644

%build
perl Makefile.PL INSTALLDIRS=vendor
%make_build

%check
make test

%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist

%files -f %{name}.files
%doc Changes README
%license LICENSE

%changelog