develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35209 - branches/rvar2/languages/perl6/src/builtins

From:
particle
Date:
January 8, 2009 09:04
Subject:
[svn:parrot] r35209 - branches/rvar2/languages/perl6/src/builtins
Message ID:
20090108170433.16AE2CB9F9@x12.develooper.com
Author: particle
Date: Thu Jan  8 09:04:32 2009
New Revision: 35209

Modified:
   branches/rvar2/languages/perl6/src/builtins/guts.pir

Log:
[rakudo] don't try to register already registered classes; +52 tests

Modified: branches/rvar2/languages/perl6/src/builtins/guts.pir
==============================================================================
--- branches/rvar2/languages/perl6/src/builtins/guts.pir	(original)
+++ branches/rvar2/languages/perl6/src/builtins/guts.pir	Thu Jan  8 09:04:32 2009
@@ -442,10 +442,12 @@
     # Create proto-object with default parent being Any or Grammar.
     $S0 = 'Any'
     $P0 = getprop 'pkgtype', metaclass
+    if null $P0 goto no_pkgtype
     if $P0 != 'grammar' goto register
     $S0 = 'Grammar'
   register:
     p6meta.'register'(metaclass, 'parent'=>$S0)
+  no_pkgtype:
 .end
 
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About