diff options
| author | Robin Houston <robin@cpan.org> | 2001-05-06 18:19:09 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-07 01:22:22 +0000 |
| commit | 34768ba5589286d1bfbb84d0beabdb84ecd6b9df (patch) | |
| tree | 6533f8b7dffc49eae757254abccfe2d7018cd2de /ext/B | |
| parent | 80dc07293684d09f68acfbbf09744c13894768c2 (diff) | |
| download | perl-34768ba5589286d1bfbb84d0beabdb84ecd6b9df.tar.gz | |
undefined folded constants
Message-ID: <20010506171909.A7046@penderel>
p4raw-id: //depot/perl@10013
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index ef367c2557..959bb37eaf 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3022,13 +3022,15 @@ sub const { return $sv->NV; } elsif ($sv->FLAGS & SVf_ROK && $sv->can("RV")) { return "\\(" . const($sv->RV) . ")"; # constant folded - } else { + } elsif ($sv->FLAGS & SVf_POK) { my $str = $sv->PV; if ($str =~ /[^ -~]/) { # ASCII for non-printing return single_delim("qq", '"', uninterp escape_str unback $str); } else { return single_delim("q", "'", unback $str); } + } else { + return "undef"; } } |