From c40de6c8fb7e04284746d20da423f18cd9c341b5 Mon Sep 17 00:00:00 2001 From: "Andreas J. Koenig" Date: Fri, 29 Oct 2010 08:26:10 +0200 Subject: [PATCH] prepare release of 0.0.8 --- Changes | 7 +++++++ Makefile.PL | 46 +++++++++++++++++++++++++--------------------- 2 files changed, 32 insertions(+), 21 deletions(-) diff --git a/Changes b/Changes index 2077daf..360f6df 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,10 @@ +2010-10-29 Andreas J. Koenig + + * release 0.0.8-TRIAL + + * Client is now forking: children write their state into a YAML file. + Parent stays at constant memory. + 2009-05-03 Andreas J. Koenig * release 0.0.7 diff --git a/Makefile.PL b/Makefile.PL index 335ce42..c3a3221 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -6,30 +6,34 @@ my @sign = (MM->can("signature_target") ? (SIGN => 1) : ()); my $version_diff = 0; # we'll have to die if this becomes true my $version_from = 'lib/File/Rsync/Mirror/Recent.pm'; my $version = MM->parse_version($version_from); -if ($ARGV[0] && $ARGV[0] eq "--setversion") { - die "Your perl is a bit dated[$]].\nDo not make a release with it\n" if $] < 5.008; - die "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nYou should get a new one\n" - if $ExtUtils::MakeMaker::VERSION < 6.4502; - use lib "lib"; - eval { require $version_from; }; die $@ if $@; - my $makefile = "Makefile"; - unless (-f $makefile) { - $makefile = "Makefile.old"; - } - unless (-f $makefile) { - die "no Makefile and no Makefile.old found"; - } - open my $fh, "make -f $makefile the-release-name|" or die "Could not fork: $!"; - local $/; - my ($have_version) = <$fh> =~ /^version\s+([\d\._]+)/m; - close $fh or die "Could not close: $!"; - my ($namespace) = $version_from; - $namespace =~ s|^lib/(.+)\.pm$|$1|; - $namespace =~ s|/|::|g; - eval qq{ if (\$$namespace\::VERSION != \$version) { +if ($ARGV[0]){ + if ($ARGV[0] eq "--setversion") { + die "Your perl is a bit dated[$]].\nDo not make a release with it\n" if $] < 5.008; + die "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nYou should get a new one\n" + if $ExtUtils::MakeMaker::VERSION < 6.4502; + use lib "lib"; + eval { require $version_from; }; die $@ if $@; + my $makefile = "Makefile"; + unless (-f $makefile) { + $makefile = "Makefile.old"; + } + unless (-f $makefile) { + die "no Makefile and no Makefile.old found"; + } + open my $fh, "make -f $makefile the-release-name|" or die "Could not fork: $!"; + local $/; + my ($have_version) = <$fh> =~ /^version\s+([\d\._]+)/m; + close $fh or die "Could not close: $!"; + my ($namespace) = $version_from; + $namespace =~ s|^lib/(.+)\.pm$|$1|; + $namespace =~ s|/|::|g; + eval qq{ if (\$$namespace\::VERSION != \$version) { warn "Not equal: $namespace\\::VERSION[\$$namespace\::VERSION] MM generated version[\$version]"; \$version_diff = 1; }}; + } elsif ($ARGV[0] eq "--trial") { + $version .= "-TRIAL"; + } } my $provides = { -- 2.11.4.GIT