From d10405242f11f9cbb9d7354fbc1337339bb9bc0f Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Mon, 21 Mar 2016 12:30:26 -0500
Subject: [PATCH] Fix bump-version to use vanilla perl.

Seems like some perl installs will have File::Slurp and some will have
File::Slurper.  Instead we just use vanilla perl for write_text and
read_text.
---
 bin/bump-version | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/bin/bump-version b/bin/bump-version
index 5e9c8dd43..04cd5df8d 100755
--- a/bin/bump-version
+++ b/bin/bump-version
@@ -1,7 +1,6 @@
 #! /usr/bin/env perl
 
 use FindBin;
-use File::Slurper qw(read_text write_text);
 use Getopt::Long;
 our $old;
 our $new;
@@ -76,3 +75,24 @@ sub transform_files {
 
   }
 }
+
+# can't reliably find File::Slurper, or File::Slurp, so do it
+# old school.
+sub read_text ($) {
+  my $fn = shift;
+  local $/ = undef;
+  open READFILE, $fn or die "Couldn't open file: $fn";
+  binmode READFILE;
+  my $string = <READFILE>;
+  close READFILE;
+  return $string;
+}
+
+sub write_text ($$) {
+  my $fn = shift;
+  my $data = shift;
+  open WRITEFILE, "> $fn" or die "Couldn't open $fn for writing.";
+  print WRITEFILE $data;
+  close WRITEFILE;
+  return 1;
+}
-- 
GitLab