diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-30 17:09:49 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-30 16:34:33 +0000 |
| commit | 35fc55f19b519e263ab1aad78ac7b89f95205de1 (patch) | |
| tree | 4ff73c8cddee304d05aac9d2e3ea027cce51260d /ext/B | |
| parent | f52f3be278b23c3517df18c555b0653faa969373 (diff) | |
| download | perl-35fc55f19b519e263ab1aad78ac7b89f95205de1.tar.gz | |
suppress warning
Message-ID: <20010430160949.A25086@penderel>
p4raw-id: //depot/perl@9921
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Concise.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index cd657c0831..2663b9179c 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -153,8 +153,9 @@ my %opclass = ('OP' => "0", 'UNOP' => "1", 'BINOP' => "2", 'LOGOP' => "|", 'LISTOP' => "@", 'PMOP' => "/", 'SVOP' => "\$", 'GVOP' => "*", 'PVOP' => '"', 'LOOP' => "{", 'COP' => ";"); -my @linenoise = ('#', - qw'() sc ( @? 1 $* gv *{ m$ m@ m% m? p/ *$ $ $# & a& pt \\ s\\ rf bl +no warnings 'qw'; # "Possible attempt to put comments..." +my @linenoise = + qw'# () sc ( @? 1 $* gv *{ m$ m@ m% m? p/ *$ $ $# & a& pt \\ s\\ rf bl ` *? <> ?? ?/ r/ c/ // qr s/ /c y/ = @= C sC Cp sp df un BM po +1 +I -1 -I 1+ I+ 1- I- ** * i* / i/ %$ i% x + i+ - i- . " << >> < i< > i> <= i, >= i. == i= != i! <? i? s< s> s, s. s= s! s? b& b^ b| -0 -i @@ -168,7 +169,7 @@ my @linenoise = ('#', co cr u. cm ut r. l@ s@ r@ mD uD oD rD tD sD wD cD f$ w$ p$ sh e$ k$ g3 g4 s4 g5 s5 T@ C@ L@ G@ A@ S@ Hg Hc Hr Hw Mg Mc Ms Mr Sg Sc So rq do {e e} {t t} g6 G6 6e g7 G7 7e g8 G8 8e g9 G9 9e 6s 7s 8s 9s 6E 7E 8E 9E Pn - Pu GP SP EP Gn Gg GG SG EG g0 c$ lk t$ ;s n>'); + Pu GP SP EP Gn Gg GG SG EG g0 c$ lk t$ ;s n>'; my $chars = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; |