Surprise! We've been running on hardware provided by BuyVM for a few months and wanted to show them a little appreciation.
Running a paste site comes with unique challenges, ones that aren't always obvious and hard to control. As such, BuyVM offered us a home where we could worry less about the hosting side of things and focus on maintaining a clean and useful service! Go check them out and show them some love!
Submitted on April 5, 2013 at 02:31 AM

Download - Report

Section 1 (Text)

12345678910111213141516171819202122 
diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
index f695d7b..d716443 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(|) {