From 21a7806986d58480367cff8d385a12f9659c7754 Mon Sep 17 00:00:00 2001
From: Hans Bolinder <hasse@erlang.org>
Date: Mon, 22 Apr 2013 15:28:49 +0200
Subject: Fix unmatched_returns warnings in STDLIB and Kernel

---
 lib/stdlib/src/erl_tar.erl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'lib/stdlib/src/erl_tar.erl')

diff --git a/lib/stdlib/src/erl_tar.erl b/lib/stdlib/src/erl_tar.erl
index 4b654833ed..f49c2a64f4 100644
--- a/lib/stdlib/src/erl_tar.erl
+++ b/lib/stdlib/src/erl_tar.erl
@@ -45,10 +45,7 @@ open(Name, Mode) ->
 open1({binary,Bin}, read, _Raw, Opts) ->
     case file:open(Bin, [ram,binary,read]) of
 	{ok,File} ->
-	    case Opts of
-		[compressed] -> ram_file:uncompress(File);
-		[] -> ok
-	    end,
+            _ = [ram_file:uncompress(File) || Opts =:= [compressed]],
 	    {ok,{read,File}};
 	Error ->
 	    Error
-- 
cgit v1.2.3