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