commit 411f73e7b35e9ff8bd4d768aeea8ff59dd4b98f5
author Manuel Pégourié-Gonnard <mpg@elzevir.fr> Fri May 09 13:00:18 2014 +0200
committer Paul Bakker <p.j.bakker@polarssl.org> Thu May 22 13:52:52 2014 +0200
tree 7827bfaa342b8e3dc01a5fa5b722328d628702fe
parent 0598faf15b33d264694a399ab9e6d2480442cbb8

Factor some output code

scripts/update_vs_apps.pl

diff --git a/scripts/update_vs_apps.pl b/scripts/update_vs_apps.pl
index 2ffdace..5038cec 100755
--- a/scripts/update_vs_apps.pl
+++ b/scripts/update_vs_apps.pl
@@ -103,6 +103,14 @@
     return $content;
 }
 
+sub content_to_file {
+    my ($content, $filename) = @_;
+
+    open my $fh, '>', $filename or die "Could not write to $filename\n";
+    print $fh $content;
+    close $fh;
+}
+
 sub gen_app_guid {
     my ($path) = @_;
 
@@ -124,9 +132,7 @@
     $content =~ s/<APPNAME>/$appname/g;
     $content =~ s/<GUID>/$guid/g;
 
-    open my $app_fh, '>', "$dir/$appname.$ext";
-    print $app_fh $content;
-    close $app_fh;
+    content_to_file( $content, "$dir/$appname.$ext" );
 }
 
 sub get_app_list {
@@ -170,9 +176,7 @@
     $out =~ s/SOURCE_ENTRIES\r\n/$source_entries/m;
     $out =~ s/HEADER_ENTRIES\r\n/$header_entries/m;
 
-    open my $fh, '>', $main_out or die;
-    print $fh $out;
-    close $fh;
+    content_to_file( $out, $main_out );
 }
 
 sub gen_vs6_workspace {
@@ -184,9 +188,7 @@
     my $out = slurp_file( $vs6_wsp_tpl_file );
     $out =~ s/APP_ENTRIES\r\n/$entries/m;
 
-    open my $fh, '>', $vs6_wsp_file or die;
-    print $fh $out;
-    close $fh;
+    content_to_file( $out, $vs6_wsp_file );
 }
 
 sub gen_vsx_solution {
@@ -213,9 +215,7 @@
     $out =~ s/APP_ENTRIES\r\n/$app_entries/m;
     $out =~ s/CONF_ENTRIES\r\n/$conf_entries/m;
 
-    open my $fh, '>', $vsx_sln_file or die;
-    print $fh $out;
-    close $fh;
+    content_to_file( $out, $vsx_sln_file );
 }
 
 sub main {