diff -r 6beaa9cf4752 -r 4ca382093dae buildverification/smoketest/FileRead.pm --- 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 = ; - close(FILE) || die "close $filename: $!"; - - return $slurparr[0]; -} - -1; \ No newline at end of file