Fix a couple of pir:: bits.

Author: jnthn

src/NQPQ/Grammar.pm

@@ -17,7 +17,7 @@ grammar NQP::Grammar is HLL::Grammar {
         # Serialization context builder - keeps track of objects that
         # cross the compile-time/run-time boundary that are associated
         # with this compilation unit.
-        my $file := pir::find_caller_lex__ps('$?FILES');
+        my $file := pir::find_caller_lex__Ps('$?FILES');
         my $source_id := nqp::sha1(nqp::getattr_s(self, NQPCursor, '$!target')) ~
             '-' ~ ~nqp::time_n();
         my $*W := nqp::isnull($file) ??

src/NQPQ/World.pm

@@ -264,12 +264,12 @@ class NQP::World is HLL::World {
             if $have_code_type {
                 %!code_object_fixup_list{$past.cuid()} := $fixups;
                 if self.is_precompilation_mode() {
-                    pir::setprop__vPsP($dummy, 'CLONE_CALLBACK', sub ($orig, $clone, $code_obj) {
+                    pir::setprop__0PsP($dummy, 'CLONE_CALLBACK', sub ($orig, $clone, $code_obj) {
                         %!code_objects_to_fix_up{$past.cuid()}.push($code_obj);
                     });
                 }
                 else {
-                    pir::setprop__vPsP($dummy, 'CLONE_CALLBACK', sub ($orig, $clone, $code_obj) {
+                    pir::setprop__0PsP($dummy, 'CLONE_CALLBACK', sub ($orig, $clone, $code_obj) {
                         # Emit fixup code.
                         self.add_object($code_obj);
                         $fixups.push(QAST::Op.new(