Change 18694: [PATCH] More B::Concise fixes

[Rafael Garcia-Suarez]

Change 18694 by rgs@rgs-home on 2003/02/11 19:44:00

        Subject: [PATCH] More B::Concise fixes
        From: Stephen McCamant <[EMAIL PROTECTED]>
        Date: Sun, 9 Feb 2003 17:28:38 -0500
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/B/B/Concise.pm#18 edit

Differences ...

==== //depot/perl/ext/B/B/Concise.pm#18 (text) ====
Index: perl/ext/B/B/Concise.pm
--- perl/ext/B/B/Concise.pm#17~18657~   Tue Feb  4 12:06:19 2003
+++ perl/ext/B/B/Concise.pm     Tue Feb 11 11:44:00 2003
@@ -8,7 +8,7 @@
 
 use Exporter ();
 
-our $VERSION   = "0.53";
+our $VERSION   = "0.54";
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(set_style add_callback);
 
@@ -132,17 +132,15 @@
        if (!@args or $do_main) {
            print "main program:\n" if $do_main;
            sequence(main_start);
+           $curcv = main_cv;
            if ($order eq "exec") {
                return if class(main_start) eq "NULL";
-               $curcv = main_cv;
                walk_exec(main_start);
            } elsif ($order eq "tree") {
                return if class(main_root) eq "NULL";
-               $curcv = main_cv;
                print tree(main_root, 0);
            } elsif ($order eq "basic") {
                return if class(main_root) eq "NULL";
-               $curcv = main_cv;
                walk_topdown(main_root,
                             sub { $_[0]->concise($_[1]) }, 0);
            }
@@ -393,13 +391,13 @@
            $sv = $sv->RV;
        }
        if (class($sv) eq "SPECIAL") {
-           $hr->{svval} = ["Null", "sv_undef", "sv_yes", "sv_no"]->[$$sv];
+           $hr->{svval} .= ["Null", "sv_undef", "sv_yes", "sv_no"]->[$$sv];
        } elsif ($sv->FLAGS & SVf_NOK) {
-           $hr->{svval} = $sv->NV;
+           $hr->{svval} .= $sv->NV;
        } elsif ($sv->FLAGS & SVf_IOK) {
-           $hr->{svval} = $sv->IV;
+           $hr->{svval} .= $sv->IV;
        } elsif ($sv->FLAGS & SVf_POK) {
-           $hr->{svval} = cstring($sv->PV);
+           $hr->{svval} .= cstring($sv->PV);
        }
        return $hr->{svclass} . " " .  $hr->{svval};
     }
End of Patch.