1 #

     2 # Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

     3 # All rights reserved.

     4 # This component and the accompanying materials are made available

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

     6 # which accompanies this distribution, and is available

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

     8 #

     9 # Initial Contributors:

    10 # Nokia Corporation - initial contribution.

    11 #

    12 # Contributors:

    13 #

    14 # Description: 

    15 #

    16 use warnings;

    17 use strict;

    18 use FindBin;		# for FindBin::Bin

    19 my $PerlLibPath;	# fully qualified pathname of the directory containing our Perl modules

    20 

    21 BEGIN {

    22 # check user has a version of perl that will cope

    23 	require 5.005_03;

    24 # establish the path to the Perl libraries

    25     $PerlLibPath = $FindBin::Bin;	# X:/epoc32/tools

    26     $PerlLibPath =~ s/\//\\/g;	# X:\epoc32\tools

    27     $PerlLibPath .= "\\";

    28 }

    29 

    30 use  lib $PerlLibPath;

    31 use spitool qw(&createSpi);

    32 createSpi(@ARGV);