Due to issues with the Internet.ee domain registry, our main domain, paste.ee, is currently disabled due to abuse reports. We are looking into alternative domains to continue operation, but for now the pastee.dev domain is the primary domain.
If you wish to blame someone, blame the scum using this site as a malware host.
Submitted on April 5, 2013 at 02:38 AM

Download - Report

Section 1 (Text)

1234567891011121314151617181920212223242526272829303132333435 
From ef40738ae81ef6a8996d962e974f73024232dfef Mon Sep 17 00:00:00 2001
From: Timo Paulssen <timonator@perpetuum-immobile.de>
Date: Fri, 5 Apr 2013 04:37:35 +0200
Subject: [PATCH] .perl empty parcels to () or ().item now.

this fixes the erroneous output of $() for empty parcels in item context
---
 src/core/Parcel.pm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
index f695d7b..12bf46b 100644
--- a/src/core/Parcel.pm
+++ b/src/core/Parcel.pm
@@ -49,7 +49,7 @@ my class Parcel does Positional {
 
     multi method perl(Parcel:D \SELF:) {
         my Mu $rpa := nqp::clone($!storage);
-        my $perl = nqp::iscont(SELF) ?? '$(' !! '(';
+        my $perl = '(';
         if $rpa {
             $perl = $perl ~ nqp::shift($rpa).perl;
             if $rpa {
@@ -59,7 +59,7 @@ my class Parcel does Positional {
                 $perl = $perl ~ ',';
             }
         }
-        $perl ~ ')';
+        $perl ~ (nqp::iscont(SELF) ?? ').item' !! ')');
     }
 
     method STORE(|) {
-- 
1.7.10.4