[svn:parrot] r37102 - trunk/examples/mops

[japhb at svn.parrot.org]

Author: japhb
Date: Wed Mar  4 06:00:16 2009
New Revision: 37102
URL: https://trac.parrot.org/parrot/changeset/37102

Log:
[examples/mops] Fix mops.p6 for current Perl 6 (and Rakudo)

* Fix pod for minimal Perl 6 compliance
* Uppercase name of MAIN subroutine so that it will be executed

Modified:
   trunk/examples/mops/mops.p6

Modified: trunk/examples/mops/mops.p6
==============================================================================
--- trunk/examples/mops/mops.p6	Wed Mar  4 04:29:56 2009	(r37101)
+++ trunk/examples/mops/mops.p6	Wed Mar  4 06:00:16 2009	(r37102)
@@ -1,6 +1,8 @@
 # Copyright (C) 2001-2003, Parrot Foundation.
 # $Id$
 
+=begin pod
+
 =head1 NAME
 
 examples/mops/mops.c - Calculate M ops/s
@@ -32,9 +34,21 @@
 
 =back
 
-=cut
+=head1 SEE ALSO
+
+F<examples/benchmarks/mops.pasm>,
+F<examples/mops/mops.c>,
+F<examples/mops/mops.cs>,
+F<examples/mops/mops.il>,
+F<examples/mops/mops.pl>,
+F<examples/mops/mops.ps>,
+F<examples/mops/mops.py>,
+F<examples/mops/mops.rb>,
+F<examples/mops/mops.scheme>.
+
+=end pod
 
-sub main() {
+sub MAIN() {
 	my ($I1, $I2, $I3, $I4, $I5, $N1, $N2, $N4, $N5);
 $I2 = 0;                      # set    I2, 0
 $I3 = 1;                      # set    I3, 1
@@ -75,16 +89,3 @@
                               #
 }				# end main
 
-=head1 SEE ALSO
-
-F<examples/benchmarks/mops.pasm>,
-F<examples/mops/mops.c>,
-F<examples/mops/mops.cs>,
-F<examples/mops/mops.il>,
-F<examples/mops/mops.pl>,
-F<examples/mops/mops.ps>,
-F<examples/mops/mops.py>,
-F<examples/mops/mops.rb>,
-F<examples/mops/mops.scheme>.
-
-=cut