From: Charles McGarvey <chazmcgarvey@brokenzipper.com>
Date: Fri, 7 Jun 2013 17:28:22 +0000 (-0600)
Subject: remove use of `say' to support older perls
X-Git-Tag: v0.06~2
X-Git-Url: https://git.dogcows.com/gitweb?a=commitdiff_plain;h=8539173b3a410b7aca44069e3d5f07b43e2d2401;p=chaz%2Fp5-Alien-ZMQ

remove use of `say' to support older perls
---

diff --git a/Build.PL b/Build.PL
index 9fb1901..e20a3bd 100644
--- a/Build.PL
+++ b/Build.PL
@@ -1,4 +1,3 @@
-use v5.10.1;
 use warnings FATAL => 'all';
 use strict;
 
diff --git a/inc/My/Build.pm b/inc/My/Build.pm
index c68ee63..add7449 100644
--- a/inc/My/Build.pm
+++ b/inc/My/Build.pm
@@ -1,6 +1,5 @@
 package My::Build;
 
-use v5.10.1;
 use warnings FATAL => 'all';
 use strict;
 use utf8;
@@ -30,14 +29,14 @@ sub ACTION_code {
     $self->have_c_compiler or die "C compiler not found";
 
     unless (exists $args{'zmq-skip-probe'}) {
-        say "Probing...";
+        print "Probing...\n";
         %vars = $self->probe_zeromq;
     }
 
     if ($vars{inc_version} && $vars{lib_version} && $vars{inc_dir} && $vars{lib_dir}) {
-        say "Found ØMQ $vars{lib_version}; skipping installation";
+        print "Found ØMQ $vars{lib_version}; skipping installation\n";
     } else {
-        say "ØMQ not found; building from source...";
+        print "ØMQ not found; building from source...\n";
         %vars = $self->install_zeromq;
     }
 
@@ -159,11 +158,11 @@ sub install_zeromq {
     my $sha1 = $self->notes('zmq-sha1');
     my $archive = "zeromq-$version.tar.gz";
 
-    say "Downloading ØMQ $version source archive from download.zeromq.org...";
+    print "Downloading ØMQ $version source archive from download.zeromq.org...\n";
     getstore("http://download.zeromq.org/$archive", $archive) == RC_OK
         or die "Failed to download ØMQ source archive";
 
-    say "Verifying...";
+    print "Verifying...\n";
     my $sha1sum = Digest::SHA->new;
     open my $ARCHIVE, '<', $archive or die "Can't open source archive";
     binmode $ARCHIVE;
@@ -171,7 +170,7 @@ sub install_zeromq {
     close $ARCHIVE;
     $sha1sum->hexdigest eq $sha1 or die "Source archive checksum mismatch";
 
-    say "Extracting...";
+    print "Extracting...\n";
     Archive::Tar->new($archive)->extract;
     unlink $archive;
 
@@ -181,20 +180,20 @@ sub install_zeromq {
     my $srcdir  = catdir($basedir, "zeromq-$version");
     chdir $srcdir;
 
-    say "Patching...";
+    print "Patching...\n";
     for my $patch (glob("$basedir/files/zeromq-$version-*.patch")) {
 	run [qw/patch -p1/], '<', $patch or die "Failed to patch ØMQ";
     }
 
-    say "Configuring...";
+    print "Configuring...\n";
     my @config = $cb->split_like_shell($self->args('zmq-config') || "");
     $cb->do_system(qw/sh configure CPPFLAGS=-Wno-error/, "--prefix=$prefix", @config)
         or die "Failed to configure ØMQ";
 
-    say "Compiling...";
+    print "Compiling...\n";
     $cb->do_system("make") or die "Failed to make ØMQ";
 
-    say "Installing...";
+    print "Installing...\n";
     $cb->do_system(qw|make install prefix=/|, "DESTDIR=$datadir")
         or die "Failed to install ØMQ";