buildverification/smoketest/FileRead.pm
branchRCL_3
changeset 19 4ca382093dae
parent 5 6beaa9cf4752
child 20 493058e57c8c
--- a/buildverification/smoketest/FileRead.pm	Mon Feb 22 17:54:00 2010 +0200
+++ /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