develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33785 - trunk/languages/perl6/src/classes

From:
tene
Date:
December 10, 2008 18:04
Subject:
[svn:parrot] r33785 - trunk/languages/perl6/src/classes
Message ID:
20081211020415.24CF3CBA89@x12.develooper.com
Author: tene
Date: Wed Dec 10 18:04:14 2008
New Revision: 33785

Modified:
   trunk/languages/perl6/src/classes/Failure.pir

Log:
[rakudo]: Create a protoobject for Exception

Modified: trunk/languages/perl6/src/classes/Failure.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Failure.pir	(original)
+++ trunk/languages/perl6/src/classes/Failure.pir	Wed Dec 10 18:04:14 2008
@@ -7,7 +7,7 @@
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
     failureproto = p6meta.'new_class'('Failure', 'parent'=>'Undef Any', 'attr'=>'$!exception')
     p6meta.'register'('Undef', 'parent'=>failureproto, 'protoobject'=>failureproto)
-    exceptionproto = p6meta.'new_class'('Perl6Exception', 'parent'=>'Any', 'attr'=>'$!exception')
+    exceptionproto = p6meta.'new_class'('Perl6Exception', 'parent'=>'Any', 'attr'=>'$!exception', 'name'=>'Exception')
     p6meta.'register'('Exception', 'protoobject'=>exceptionproto)
 
     $P0 = box 1



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