diff --git a/bin/bump-version b/bin/bump-version index 5e9c8dd43fef3226c97272536a57418759b5d361..04cd5df8daebeabd9a010d04c4b30610f8ac05b1 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; +}