From 7fa29f39d199553bd32b7514fe1f5441a20954de Mon Sep 17 00:00:00 2001
From: Volth <volth@webmaster.ms>
Date: Thu, 22 Jun 2017 19:08:19 +0000
Subject: [PATCH] a little simpification (use File::Slurp)

---
 pkgs/applications/editors/jetbrains/update.pl | 27 +++----------------
 1 file changed, 4 insertions(+), 23 deletions(-)

diff --git a/pkgs/applications/editors/jetbrains/update.pl b/pkgs/applications/editors/jetbrains/update.pl
index ecdedca9e153b9..62943787111630 100755
--- a/pkgs/applications/editors/jetbrains/update.pl
+++ b/pkgs/applications/editors/jetbrains/update.pl
@@ -1,30 +1,11 @@
 #!/usr/bin/env nix-shell
-#!nix-shell -i perl -p perl perlPackages.LWPProtocolhttps
+#!nix-shell -i perl -p perl perlPackages.LWPProtocolhttps perlPackages.FileSlurp
 
 use strict;
 use List::Util qw(reduce);
-use File::Basename qw(dirname);
+use File::Slurp;
 use LWP::Simple;
 
-sub readFile {
-  my ($filename) = @_;
-  local $/ = undef;
-  open FILE, $filename or die "readFile($filename) failed: $!";
-  binmode FILE;
-  my $data = <FILE>;
-  close FILE;
-  return $data;
-}
-
-sub writeFile {
-  my ($filename, $content) = @_;
-  make_path(dirname($filename)) or die "$!" unless -d dirname($filename);
-  open FH, ">$filename" or die "writeFile($filename) failed: $!";
-  binmode FH; # do not emit \r
-  print FH $content;
-  close FH;
-}
-
 sub semantic_less {
   my ($a, $b) = @_;
   $a =~ s/\b(\d+)\b/sprintf("%010s", $1)/eg;
@@ -88,6 +69,6 @@ sub update_nix_block {
   return $block;
 }
 
-my $nix = readFile 'default.nix';
+my $nix = read_file 'default.nix';
 $nix =~ s/(= build\w+ rec \{.+?\};\n\n)/update_nix_block($1)/gse;
-writeFile 'default.nix', $nix;
+write_file 'default.nix', $nix;