[svn:parrot] r35962 - trunk/examples/pir

[email protected] Sat, 24 Jan 2009 12:11:13 -0800 (PST)
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: julianalbo
Date: Sat Jan 24 12:11:11 2009
New Revision: 35962

Modified:
   trunk/examples/pir/pirric.pir

Log:
pirric: activate deprecation warnings

Modified: trunk/examples/pir/pirric.pir
==============================================================================
--- trunk/examples/pir/pirric.pir	(original)
+++ trunk/examples/pir/pirric.pir	Sat Jan 24 12:11:11 2009
@@ -42,6 +42,8 @@
 .include 'except_types.pasm'
 .include 'cclass.pasm'
 
+.include 'warnings.pasm'
+
 #-----------------------------------------------------------------------
 
 .sub pirric_aux_loadbytecode
@@ -60,6 +62,8 @@
 #-----------------------------------------------------------------------
 .sub init :load :init
 
+    warningson .PARROT_WARNINGS_DEPRECATED_FLAG
+
     .local pmc func
     func = get_global ['Tokenizer'], 'newTokenizer'
     set_global 'newTokenizer', func