X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=50ba378034fa54a17ab6a2e4366926528aa3e52f;hp=611f780d617ad220649149b56ab64094db53cb59;hb=3ad0dc082fd7c56afdc76066a7f8c94c4ae28e69;hpb=abeae39be61a1284ff7551d1d669e0b458e264e8

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index 611f780..50ba378 100644
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -273,7 +273,7 @@ sub inspect {
   if (null $op) {
    # If the logop has no else branch, it can also return the *scalar* result of
    # the conditional
-   $l3 = { 1 => $c };
+   $l3 = { 1 => 1 };
   } else {
    ($r3, $l3) = $self->inspect($op);
   }