Permalink
Browse files

More changed for rename to TCP::Rebuild

  • Loading branch information...
1 parent 7782e81 commit c9449a4121047c29114d39d2aff5afc7cdee8fef @edeca committed Jul 3, 2010
Showing with 10 additions and 11 deletions.
  1. +3 −3 bin/tcprebuild
  2. +1 −2 lib/TCP/Rebuild.pm
  3. +6 −6 lib/TCP/Rebuild/App.pm
View
6 bin/tcprebuild
@@ -2,14 +2,14 @@
use strict;
use warnings;
-use Net::RebuildTCP::App;
-Net::RebuildTCP::App->run;
+use TCP::Rebuild::App;
+TCP::Rebuild::App->run;
__END__
=head1 NAME
-tcprebuild - uses Net::RebuildTCP to reconstruct TCP streams to files on disk
+tcprebuild - uses TCP::Rebuild to reconstruct TCP streams to files on disk
=head1 SYNOPSIS
View
3 lib/TCP/Rebuild.pm
@@ -20,7 +20,6 @@ Version 0.01
our $VERSION = '0.01';
-
=head1 SYNOPSIS
Rebuilds TCP streams to plain text files on disk, one file per connection.
@@ -215,7 +214,7 @@ sub _cleanup {
=head1 AUTHOR
-David Cannings, C<< <david at edeca.net> >>
+David Cannings <david at edeca.net>
=head1 BUGS
View
12 lib/TCP/Rebuild/App.pm
@@ -1,17 +1,17 @@
use strict;
use warnings;
-package Net::RebuildTCP::App;
+package TCP::Rebuild::App;
=head1 NAME
-Net::RebuildTCP::App - the guts of the tcprebuild command
+TCP::Rebuild::App - the guts of the tcprebuild command
=head1 SYNOPSIS
#!/usr/bin/perl
- use Net::RebuildTCP::App;
- Net::RebuildTCP::App->run;
+ use TCP::Rebuild::App;
+ TCP::Rebuild::App->run;
=cut
@@ -23,7 +23,7 @@ sub _display_version {
my $class = shift;
no strict 'refs';
print "tcprebuild",
- ($class ne 'Net::RebuildTCP' ? ' (from Net::RebuildTCP)' : q{}),
+ ($class ne 'TCP::Rebuild' ? ' (from TCP::Rebuild)' : q{}),
", powered by $class ", $class->VERSION, "\n\n";
exit;
}
@@ -37,7 +37,7 @@ something sensible is plain silly.
sub run {
my %config;
- $config{class} = 'Net::RebuildTCP';
+ $config{class} = 'TCP::Rebuild';
my $version;
$config{filter} = '';

0 comments on commit c9449a4

Please sign in to comment.