1 #!/usr/bin/perl

     2 # Copyright (c) 2010 Symbian Foundation Ltd

     3 # This component and the accompanying materials are made available

     4 # under the terms of the License "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Mike Kinghan, mikek@symbian.org, for Symbian Foundation Ltd - initial contribution.

    10 

    11 # Subroutines to call a perl script in the current directory.

    12 

    13 use strict;

    14 

    15 # Run the perl script and return its return code.

    16 sub perl_run($)

    17 {

    18 	my $cmd = shift;

    19 	return system("perl $cmd") >> 8; 

    20 }

    21 

    22 # Run the perl script and return its stdout.

    23 sub perl_slurp($)

    24 {

    25 	my $cmd = shift;

    26 	return `perl $cmd`; 

    27 }

    28 

    29 1;

    30