buildverification/smoketest/FileRead.pm
changeset 15 5b5908ec640f
parent 13 3a35f7917fa6
child 17 03d9ade4748d
--- a/buildverification/smoketest/FileRead.pm	Thu May 27 12:52:45 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,41 +0,0 @@
-# Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "Eclipse Public License v1.0"
-# which accompanies this distribution, and is available
-# at the URL "http://www.eclipse.org/legal/epl-v10.html".
-#
-# Initial Contributors:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-#
-
-#!/usr/bin/perl -w
-package FileRead;
-use strict;
-##########################################################################
-#
-# Name    :  file_read()
-# Synopsis:  Reads in the contents of a file into an array
-# Inputs  :  Filename
-# Outputs :  array
-#
-##########################################################################
-sub file_read
-{
-    my ($filename) = @_;
-
-    local($/) = undef;
-    local(*FILE);
- 
-    open(FILE, "<$filename") || die "open $filename: $!";
-    my @slurparr = <FILE>;
-    close(FILE) || die "close $filename: $!";
-
-    return $slurparr[0];
-}
-
-1;
\ No newline at end of file