1 files changed, 0 insertions, 102 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/B/Terse.pm b/chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/B/Terse.pm
deleted file mode 100644
index 562c58abd83..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/B/Terse.pm
+++ /dev/null
@@ -1,102 +0,0 @@
-package B::Terse;
-
-our $VERSION = '1.05';
-
-use strict;
-use B qw(class @specialsv_name);
-use B::Concise qw(concise_subref set_style_standard);
-use Carp;
-
-sub terse {
-    my ($order, $subref) = @_;
-    set_style_standard("terse");
-    if ($order eq "exec") {
-	concise_subref('exec', $subref);
-    } else {
-	concise_subref('basic', $subref);
-    }
-}
-
-sub compile {
-    my @args = @_;
-    my $order = @args ? shift(@args) : "";
-    $order = "-exec" if $order eq "exec";
-    unshift @args, $order if $order ne "";
-    B::Concise::compile("-terse", @args);
-}
-
-sub indent {
-    my ($level) = @_ ? shift : 0;
-    return "    " x $level;
-}
-
-# Don't use this, at least on OPs in subroutines: it has no way of
-# getting to the pad, and will give wrong answers or crash.
-sub B::OP::terse {
-    carp "B::OP::terse is deprecated; use B::Concise instead";
-    B::Concise::b_terse(@_);
-}
-
-sub B::SV::terse {
-    my($sv, $level) = (@_, 0);
-    my %info;
-    B::Concise::concise_sv($sv, \%info);
-    my $s = indent($level)
-	. B::Concise::fmt_line(\%info, $sv,
-				 "#svclass~(?((#svaddr))?)~#svval", 0);
-    chomp $s;
-    print "$s\n" unless defined wantarray;
-    $s;
-}
-
-sub B::NULL::terse {
-    my ($sv, $level) = (@_, 0);
-    my $s = indent($level) . sprintf "%s (0x%lx)", class($sv), $$sv;
-    print "$s\n" unless defined wantarray;
-    $s;
-}
-
-sub B::SPECIAL::terse {
-    my ($sv, $level) = (@_, 0);
-    my $s = indent($level)
-	. sprintf( "%s #%d %s", class($sv), $$sv, $specialsv_name[$$sv]);
-    print "$s\n" unless defined wantarray;
-    $s;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-B::Terse - Walk Perl syntax tree, printing terse info about ops
-
-=head1 SYNOPSIS
-
-	perl -MO=Terse[,OPTIONS] foo.pl
-
-=head1 DESCRIPTION
-
-This version of B::Terse is really just a wrapper that calls B::Concise
-with the B<-terse> option. It is provided for compatibility with old scripts
-(and habits) but using B::Concise directly is now recommended instead.
-
-For compatibility with the old B::Terse, this module also adds a
-method named C<terse> to B::OP and B::SV objects. The B::SV method is
-largely compatible with the old one, though authors of new software
-might be advised to choose a more user-friendly output format. The
-B::OP C<terse> method, however, doesn't work well. Since B::Terse was
-first written, much more information in OPs has migrated to the
-scratchpad datastructure, but the C<terse> interface doesn't have any
-way of getting to the correct pad. As a kludge, the new version will
-always use the pad for the main program, but for OPs in subroutines
-this will give the wrong answer or crash.
-
-=head1 AUTHOR
-
-The original version of B::Terse was written by Malcolm Beattie,
-E<lt>mbeattie@sable.ox.ac.ukE<gt>. This wrapper was written by Stephen
-McCamant, E<lt>smcc@MIT.EDUE<gt>.
-
-=cut