trafficcontrol-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From dang...@apache.org
Subject [01/27] incubator-trafficcontrol git commit: updated to make errors show file paths
Date Tue, 09 May 2017 18:30:36 GMT
Repository: incubator-trafficcontrol
Updated Branches:
  refs/heads/master bd603e85e -> 9bc5f048e


updated to make errors show file paths


Project: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/repo
Commit: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/commit/1a296ab2
Tree: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/tree/1a296ab2
Diff: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/diff/1a296ab2

Branch: refs/heads/master
Commit: 1a296ab2aaeeb263c78c3af1380c0cd606af5b25
Parents: 3336900
Author: Dewayne Richardson <dewrich@apache.org>
Authored: Wed May 3 10:48:55 2017 -0600
Committer: Dan Kirkwood <dangogh@gmail.com>
Committed: Tue May 9 18:28:58 2017 +0000

----------------------------------------------------------------------
 traffic_ops/install/lib/InstallUtils.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/blob/1a296ab2/traffic_ops/install/lib/InstallUtils.pm
----------------------------------------------------------------------
diff --git a/traffic_ops/install/lib/InstallUtils.pm b/traffic_ops/install/lib/InstallUtils.pm
index 22f53b8..040a8e9 100644
--- a/traffic_ops/install/lib/InstallUtils.pm
+++ b/traffic_ops/install/lib/InstallUtils.pm
@@ -199,7 +199,7 @@ sub trim {
 
 sub readJson {
     my $file = shift;
-    open( my $fh, '<', $file ) or die("open($file): $!");
+    open( my $fh, '<', $file ) or die("open(): $!");
     local $/;    # slurp mode
     my $text = <$fh>;
     undef $fh;
@@ -208,7 +208,7 @@ sub readJson {
 
 sub writeJson {
     my $file = shift;
-    open( my $fh, '>', $file ) or die("open($file): $!");
+    open( my $fh, '>', $file ) or die("open(): $!");
     logger( "Writing json to $file", "info" );
     foreach my $data (@_) {
         my $json_text = JSON->new->utf8->pretty->encode($data);
@@ -221,7 +221,7 @@ sub writePerl {
     my $file = shift;
     my $data = shift;
 
-    open( my $fh, '>', $file ) or die("open($file): $!");
+    open( my $fh, '>', $file ) or die("open(): $!");
     my $dumper = Data::Dumper->new( [$data] );
 
     # print without var names and with simple indentation


Mime
View raw message