RT #117425, fixes .perl for empty itemized Parcel

rakudo · Nov 7, 2013 · d916dbe · d916dbe
1 parent 1d15c6e
commit d916dbe
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
@@ -78,8 +78,14 @@ my class Parcel does Positional { # declared in BOOTSTRAP
             else {
                 $perl = $perl ~ ',';
             }
+            $perl ~ ')'
+        }
+        elsif nqp::iscont(SELF) {
+            $perl ~ ' )' # beause $() is about Matches...
+        }
+        else {
+            $perl ~ ')'
         }
-        $perl ~ ')';
     }
 
     method STORE(|) {