Browse files

propagate cvs version number as $VERSION

  • Loading branch information...
1 parent beec6f8 commit 747e19512469d39c8bde88badd3846d2fb8ba4ca @rcaputo committed Jan 10, 2002
View
2 lib/POE.pm
@@ -58,7 +58,7 @@ __END__
=head1 NAME
-POE - multitasking and networking with perl
+POE - multitasking and networking framework for perl
=head1 SYNOPSIS
View
4 lib/POE/Component.pm
@@ -4,6 +4,10 @@
package POE::Component;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
sub new {
View
3 lib/POE/Component/Client/TCP.pm
@@ -4,6 +4,9 @@ package POE::Component::Client::TCP;
use strict;
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(carp croak);
# Explicit use to import the parameter constants;
View
6 lib/POE/Driver.pm
@@ -3,7 +3,11 @@
package POE::Driver;
use strict;
-use Carp;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
+use Carp qw(croak);
#------------------------------------------------------------------------------
View
6 lib/POE/Driver/SysRW.pm
@@ -7,8 +7,12 @@
package POE::Driver::SysRW;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use POSIX qw(EAGAIN);
-use Carp;
+use Carp qw(croak);
sub OUTPUT_QUEUE () { 0 }
sub CURRENT_OCTETS_DONE () { 1 }
View
6 lib/POE/Filter.pm
@@ -3,7 +3,11 @@
package POE::Filter;
use strict;
-use Carp;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
+use Carp qw(croak);
#------------------------------------------------------------------------------
View
4 lib/POE/Filter/Block.pm
@@ -3,6 +3,10 @@
package POE::Filter::Block;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
sub BLOCK_SIZE () { 0 }
View
4 lib/POE/Filter/Grep.pm
@@ -3,6 +3,10 @@
package POE::Filter::Grep;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
sub CODEBOTH () { 0 }
View
4 lib/POE/Filter/HTTPD.pm
@@ -12,8 +12,12 @@
# and from HTTPD filters, they should say so on POE's mailing list.
package POE::Filter::HTTPD;
+
use strict;
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
use HTTP::Status;
use HTTP::Request;
View
6 lib/POE/Filter/Line.pm
@@ -3,7 +3,11 @@
package POE::Filter::Line;
use strict;
-use Carp;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
+use Carp qw(carp croak);
sub DEBUG () { 0 }
View
4 lib/POE/Filter/Map.pm
@@ -3,6 +3,10 @@
package POE::Filter::Map;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
sub CODEBOTH () { 0 }
View
6 lib/POE/Filter/RecordBlock.pm
@@ -2,9 +2,13 @@
package POE::Filter::RecordBlock;
-use Carp qw(croak);
use strict;
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
+use Carp qw(croak);
+
sub BLOCKSIZE () { 0 };
sub GETBUFFER () { 1 };
sub PUTBUFFER () { 2 };
View
6 lib/POE/Filter/Reference.pm
@@ -6,7 +6,11 @@
package POE::Filter::Reference;
use strict;
-use Carp;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
+use Carp qw(carp croak);
#------------------------------------------------------------------------------
# Try to require one of the default freeze/thaw packages.
View
4 lib/POE/Filter/Stackable.pm
@@ -9,6 +9,10 @@
package POE::Filter::Stackable;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
sub FILTERS () { 0 }
View
3 lib/POE/Filter/Stream.pm
@@ -4,6 +4,9 @@ package POE::Filter::Stream;
use strict;
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
#------------------------------------------------------------------------------
sub new {
View
6 lib/POE/Kernel.pm
@@ -3,6 +3,10 @@
package POE::Kernel;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use POSIX qw(errno_h fcntl_h sys_wait_h);
use Carp qw(carp croak confess);
use Sys::Hostname qw(hostname);
@@ -2379,7 +2383,7 @@ sub alarm_remove_all {
my $removed_alarm = splice(@kr_events, $index, 1);
delete $kr_event_ids{$removed_alarm->[ST_SEQ]};
push( @removed,
- ( @$removed_alarm[ST_NAME, ST_TIME], @{$removed_alarm->[ST_ARGS]} )
+ [ @$removed_alarm[ST_NAME, ST_TIME], @{$removed_alarm->[ST_ARGS]} ]
);
}
}
View
5 lib/POE/Loop/Event.pm
@@ -5,6 +5,11 @@
# Empty package to appease perl.
package POE::Kernel::Event;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
# Everything plugs into POE::Kernel.
package POE::Kernel;
View
8 lib/POE/Loop/Gtk.pm
@@ -5,11 +5,19 @@
# Empty package to appease perl.
package POE::Kernel::Gtk;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
# Everything plugs into POE::Kernel.
package POE::Kernel;
use strict;
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
# Ensure that no other substrate module has been loaded.
BEGIN {
die( "POE can't use Gtk and " . &POE_SUBSTRATE_NAME . "\n" )
View
5 lib/POE/Loop/Select.pm
@@ -5,6 +5,11 @@
# Empty package to appease perl.
package POE::Kernel::Select;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
# Everything plugs into POE::Kernel.
package POE::Kernel;
View
4 lib/POE/Loop/Tk.pm
@@ -5,10 +5,8 @@
# Empty package to appease perl.
package POE::Kernel::Tk;
-# Bogus version to appease perl, otherwise it finds the next "unless"
-# statement, and CPAN.pm fails.
use vars qw($VERSION);
-$VERSION = '0.00';
+$VERSION = (qw($Revision$ ))[1];
BEGIN {
die "POE's Tk support requires version Tk 800.021 or higher.\n"
View
4 lib/POE/NFA.pm
@@ -3,6 +3,10 @@
package POE::NFA;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(carp croak confess);
use POE::Preprocessor;
View
4 lib/POE/Pipe.pm
@@ -7,6 +7,10 @@
package POE::Pipe;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Symbol qw(gensym);
use IO::Socket;
use POSIX qw(fcntl_h errno_h);
View
4 lib/POE/Pipe/OneWay.pm
@@ -6,6 +6,10 @@
package POE::Pipe::OneWay;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Symbol qw(gensym);
use IO::Socket;
use POE::Pipe;
View
4 lib/POE/Pipe/TwoWay.pm
@@ -6,6 +6,10 @@
package POE::Pipe::TwoWay;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Symbol qw(gensym);
use IO::Socket;
use POE::Pipe;
View
4 lib/POE/Preprocessor.pm
@@ -3,6 +3,10 @@
package POE::Preprocessor;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
use Filter::Util::Call;
View
4 lib/POE/Session.pm
@@ -3,6 +3,10 @@
package POE::Session;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(carp croak);
use POSIX qw(ENOSYS);
View
6 lib/POE/Wheel.pm
@@ -3,7 +3,11 @@
package POE::Wheel;
use strict;
-use Carp;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
+use Carp qw(croak);
# Used to generate unique IDs for wheels. This is static data, shared
# by all.
View
6 lib/POE/Wheel/Curses.pm
@@ -1,8 +1,12 @@
#!/usr/bin/perl -w
-use strict;
package POE::Wheel::Curses;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp qw(croak);
use Curses;
use POE qw(Wheel);
View
4 lib/POE/Wheel/FollowTail.pm
@@ -3,6 +3,10 @@
package POE::Wheel::FollowTail;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp;
use Symbol;
use POSIX qw(SEEK_SET SEEK_CUR SEEK_END);
View
4 lib/POE/Wheel/ListenAccept.pm
@@ -3,6 +3,10 @@
package POE::Wheel::ListenAccept;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp;
use Symbol;
View
4 lib/POE/Wheel/ReadLine.pm
@@ -3,6 +3,10 @@
package POE::Wheel::ReadLine;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp;
use POE qw(Wheel);
View
4 lib/POE/Wheel/ReadWrite.pm
@@ -3,6 +3,10 @@
package POE::Wheel::ReadWrite;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp;
use POE qw(Wheel Driver::SysRW Filter::Line);
View
4 lib/POE/Wheel/Run.pm
@@ -3,6 +3,10 @@
package POE::Wheel::Run;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp;
use POSIX; # termios stuff
View
4 lib/POE/Wheel/SocketFactory.pm
@@ -3,6 +3,10 @@
package POE::Wheel::SocketFactory;
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Carp;
use Symbol;
View
4 mylib/Devel/Null.pm
@@ -4,6 +4,10 @@
# optional, and it may not even work.
use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
package Null; # satisfies 'use'
package DB;
View
6 mylib/Devel/Trace.pm
@@ -3,9 +3,13 @@
# This is a `perl -d` debugger module that simply traces execution.
# It's optional, and it may not even work.
-use strict;
package Trace; # satisfies 'use'
+use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
package DB;
use vars qw($sub @args);
View
5 mylib/MyOtherFreezer.pm
@@ -3,6 +3,11 @@
package MyOtherFreezer;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
sub new {
my $type = shift;
return bless [ ], $type;
View
3 mylib/TestSetup.pm
@@ -5,6 +5,9 @@ package TestSetup;
use strict;
+use vars qw($VERSION);
+$VERSION = (qw($Revision$ ))[1];
+
use Exporter;
@TestSetup::ISA = qw(Exporter);
@TestSetup::EXPORT = qw( &test_setup

0 comments on commit 747e195

Please sign in to comment.