imgtools/buildrom/tools/spitool.pl
changeset 590 360bd6b35136
parent 0 044383f39525
--- a/imgtools/buildrom/tools/spitool.pl	Wed Jun 16 16:51:40 2010 +0300
+++ b/imgtools/buildrom/tools/spitool.pl	Wed Jun 23 16:56:47 2010 +0800
@@ -1,32 +1,33 @@
-#
-# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of the License "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: 
-#
-use warnings;
-use strict;
-use FindBin;		# for FindBin::Bin
-my $PerlLibPath;	# fully qualified pathname of the directory containing our Perl modules
-
-BEGIN {
-# check user has a version of perl that will cope
-	require 5.005_03;
-# establish the path to the Perl libraries
-    $PerlLibPath = $FindBin::Bin;	# X:/epoc32/tools
-    $PerlLibPath =~ s/\//\\/g;	# X:\epoc32\tools
-    $PerlLibPath .= "\\";
-}
-
-use  lib $PerlLibPath;
-use spitool qw(&createSpi);
-createSpi(@ARGV);
+#!/usr/bin/perl
+#
+# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of the License "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: 
+#
+use warnings;
+use strict;
+use FindBin;		# for FindBin::Bin
+my $PerlLibPath;	# fully qualified pathname of the directory containing our Perl modules
+
+BEGIN {
+# check user has a version of perl that will cope
+	require 5.005_03;
+# establish the path to the Perl libraries
+    $PerlLibPath = $FindBin::Bin;
+    $PerlLibPath =~ s/\\/\//g;
+    $PerlLibPath .= "\/";
+}
+
+use  lib $PerlLibPath;
+use spitool qw(&createSpi);
+createSpi(@ARGV);