Change 20686 by [EMAIL PROTECTED] on 2003/08/13 18:42:50
Subject: Re: script wanted
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Wed, 13 Aug 2003 20:46:09 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/B/B.pm#54 edit
... //depot/perl/ext/B/B/Bblock.pm#14 edit
... //depot/perl/ext/B/B/C.pm#69 edit
... //depot/perl/ext/B/B/Debug.pm#23 edit
... //depot/perl/ext/B/B/Lint.pm#17 edit
... //depot/perl/ext/Fcntl/Fcntl.pm#26 edit
... //depot/perl/ext/File/Glob/Glob.pm#29 edit
... //depot/perl/ext/IO/IO.pm#12 edit
... //depot/perl/ext/IO/lib/IO/File.pm#18 edit
... //depot/perl/ext/IO/lib/IO/Handle.pm#29 edit
... //depot/perl/ext/IO/lib/IO/Select.pm#17 edit
... //depot/perl/ext/IO/lib/IO/Socket.pm#32 edit
... //depot/perl/ext/IO/lib/IO/Socket/INET.pm#23 edit
... //depot/perl/ext/IPC/SysV/Msg.pm#10 edit
... //depot/perl/ext/IPC/SysV/Semaphore.pm#11 edit
... //depot/perl/ext/POSIX/POSIX.pm#35 edit
... //depot/perl/ext/Sys/Hostname/Hostname.pm#5 edit
... //depot/perl/ext/Sys/Syslog/Syslog.pm#19 edit
... //depot/perl/ext/re/re.pm#18 edit
... //depot/perl/ext/threads/shared/shared.pm#33 edit
... //depot/perl/ext/threads/threads.pm#33 edit
Differences ...
==== //depot/perl/ext/B/B.pm#54 (text) ====
Index: perl/ext/B/B.pm
--- perl/ext/B/B.pm#53~20253~ Sun Jul 27 21:56:48 2003
+++ perl/ext/B/B.pm Wed Aug 13 11:42:50 2003
@@ -7,7 +7,7 @@
#
package B;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
use XSLoader ();
require Exporter;
==== //depot/perl/ext/B/B/Bblock.pm#14 (text) ====
Index: perl/ext/B/B/Bblock.pm
--- perl/ext/B/B/Bblock.pm#13~18737~ Mon Feb 17 16:47:00 2003
+++ perl/ext/B/B/Bblock.pm Wed Aug 13 11:42:50 2003
@@ -1,6 +1,6 @@
package B::Bblock;
-our $VERSION = '1.00';
+our $VERSION = '1.02';
use Exporter ();
@ISA = "Exporter";
==== //depot/perl/ext/B/B/C.pm#69 (text) ====
Index: perl/ext/B/B/C.pm
--- perl/ext/B/B/C.pm#68~18220~ Sun Dec 1 16:58:54 2002
+++ perl/ext/B/B/C.pm Wed Aug 13 11:42:50 2003
@@ -7,7 +7,7 @@
#
package B::C::Section;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
use B ();
use base B::Section;
==== //depot/perl/ext/B/B/Debug.pm#23 (text) ====
Index: perl/ext/B/B/Debug.pm
--- perl/ext/B/B/Debug.pm#22~19939~ Wed Jul 2 13:10:47 2003
+++ perl/ext/B/B/Debug.pm Wed Aug 13 11:42:50 2003
@@ -1,6 +1,6 @@
package B::Debug;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
use strict;
use B qw(peekop class walkoptree walkoptree_exec
==== //depot/perl/ext/B/B/Lint.pm#17 (text) ====
Index: perl/ext/B/B/Lint.pm
--- perl/ext/B/B/Lint.pm#16~18149~ Sat Nov 16 12:10:50 2002
+++ perl/ext/B/B/Lint.pm Wed Aug 13 11:42:50 2003
@@ -1,6 +1,6 @@
package B::Lint;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
=head1 NAME
==== //depot/perl/ext/Fcntl/Fcntl.pm#26 (text) ====
Index: perl/ext/Fcntl/Fcntl.pm
--- perl/ext/Fcntl/Fcntl.pm#25~19798~ Mon Jun 16 05:26:29 2003
+++ perl/ext/Fcntl/Fcntl.pm Wed Aug 13 11:42:50 2003
@@ -60,7 +60,7 @@
require Exporter;
use XSLoader ();
@ISA = qw(Exporter);
-$VERSION = "1.04";
+$VERSION = "1.05";
# Items to export into callers namespace by default
# (move infrequently used names to @EXPORT_OK below)
@EXPORT =
==== //depot/perl/ext/File/Glob/Glob.pm#29 (text) ====
Index: perl/ext/File/Glob/Glob.pm
--- perl/ext/File/Glob/Glob.pm#28~20445~ Fri Aug 1 23:24:30 2003
+++ perl/ext/File/Glob/Glob.pm Wed Aug 13 11:42:50 2003
@@ -56,7 +56,7 @@
) ],
);
-$VERSION = '1.01';
+$VERSION = '1.02';
sub import {
require Exporter;
==== //depot/perl/ext/IO/IO.pm#12 (text) ====
Index: perl/ext/IO/IO.pm
--- perl/ext/IO/IO.pm#11~20194~ Thu Jul 24 01:45:55 2003
+++ perl/ext/IO/IO.pm Wed Aug 13 11:42:50 2003
@@ -7,7 +7,7 @@
use strict;
use warnings;
-our $VERSION = "1.20";
+our $VERSION = "1.21";
XSLoader::load 'IO', $VERSION;
sub import {
==== //depot/perl/ext/IO/lib/IO/File.pm#18 (text) ====
Index: perl/ext/IO/lib/IO/File.pm
--- perl/ext/IO/lib/IO/File.pm#17~19634~ Thu May 29 02:11:30 2003
+++ perl/ext/IO/lib/IO/File.pm Wed Aug 13 11:42:50 2003
@@ -121,7 +121,7 @@
@ISA = qw(IO::Handle IO::Seekable Exporter);
-$VERSION = "1.09";
+$VERSION = "1.10";
@EXPORT = @IO::Seekable::EXPORT;
==== //depot/perl/ext/IO/lib/IO/Handle.pm#29 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm#28~19631~ Thu May 29 01:11:42 2003
+++ perl/ext/IO/lib/IO/Handle.pm Wed Aug 13 11:42:50 2003
@@ -263,7 +263,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.21_00";
+$VERSION = "1.22_00";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(
==== //depot/perl/ext/IO/lib/IO/Select.pm#17 (text) ====
Index: perl/ext/IO/lib/IO/Select.pm
--- perl/ext/IO/lib/IO/Select.pm#16~18853~ Sat Mar 8 11:40:13 2003
+++ perl/ext/IO/lib/IO/Select.pm Wed Aug 13 11:42:50 2003
@@ -11,7 +11,7 @@
use vars qw($VERSION @ISA);
require Exporter;
-$VERSION = "1.15";
+$VERSION = "1.16";
@ISA = qw(Exporter); # This is only so we can do version checking
==== //depot/perl/ext/IO/lib/IO/Socket.pm#32 (text) ====
Index: perl/ext/IO/lib/IO/Socket.pm
--- perl/ext/IO/lib/IO/Socket.pm#31~20193~ Thu Jul 24 01:43:33 2003
+++ perl/ext/IO/lib/IO/Socket.pm Wed Aug 13 11:42:50 2003
@@ -23,7 +23,7 @@
@ISA = qw(IO::Handle);
-$VERSION = "1.27";
+$VERSION = "1.28";
@EXPORT_OK = qw(sockatmark);
==== //depot/perl/ext/IO/lib/IO/Socket/INET.pm#23 (text) ====
Index: perl/ext/IO/lib/IO/Socket/INET.pm
--- perl/ext/IO/lib/IO/Socket/INET.pm#22~18748~ Tue Feb 18 16:00:41 2003
+++ perl/ext/IO/lib/IO/Socket/INET.pm Wed Aug 13 11:42:50 2003
@@ -15,7 +15,7 @@
use Errno;
@ISA = qw(IO::Socket);
-$VERSION = "1.26";
+$VERSION = "1.27";
my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
==== //depot/perl/ext/IPC/SysV/Msg.pm#10 (text) ====
Index: perl/ext/IPC/SysV/Msg.pm
--- perl/ext/IPC/SysV/Msg.pm#9~18811~ Sun Mar 2 14:30:50 2003
+++ perl/ext/IPC/SysV/Msg.pm Wed Aug 13 11:42:50 2003
@@ -11,7 +11,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.00_00";
+$VERSION = "1.01_00";
$VERSION = eval $VERSION;
{
==== //depot/perl/ext/IPC/SysV/Semaphore.pm#11 (text) ====
Index: perl/ext/IPC/SysV/Semaphore.pm
--- perl/ext/IPC/SysV/Semaphore.pm#10~17825~ Wed Sep 4 03:53:59 2002
+++ perl/ext/IPC/SysV/Semaphore.pm Wed Aug 13 11:42:50 2003
@@ -12,7 +12,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.00_00";
+$VERSION = "1.01_00";
$VERSION = eval $VERSION;
{
==== //depot/perl/ext/POSIX/POSIX.pm#35 (text) ====
Index: perl/ext/POSIX/POSIX.pm
--- perl/ext/POSIX/POSIX.pm#34~20596~ Sun Aug 10 10:38:35 2003
+++ perl/ext/POSIX/POSIX.pm Wed Aug 13 11:42:50 2003
@@ -2,7 +2,7 @@
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
-our $VERSION = "1.05" ;
+our $VERSION = "1.06" ;
use AutoLoader;
==== //depot/perl/ext/Sys/Hostname/Hostname.pm#5 (text) ====
Index: perl/ext/Sys/Hostname/Hostname.pm
--- perl/ext/Sys/Hostname/Hostname.pm#4~19621~ Sun May 25 11:51:00 2003
+++ perl/ext/Sys/Hostname/Hostname.pm Wed Aug 13 11:42:50 2003
@@ -15,7 +15,7 @@
our $host;
BEGIN {
- $VERSION = '1.1';
+ $VERSION = '1.11';
{
local $SIG{__DIE__};
eval {
==== //depot/perl/ext/Sys/Syslog/Syslog.pm#19 (text) ====
Index: perl/ext/Sys/Syslog/Syslog.pm
--- perl/ext/Sys/Syslog/Syslog.pm#18~20533~ Wed Aug 6 11:39:49 2003
+++ perl/ext/Sys/Syslog/Syslog.pm Wed Aug 13 11:42:50 2003
@@ -7,7 +7,7 @@
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(openlog closelog setlogmask syslog);
@EXPORT_OK = qw(setlogsock);
-$VERSION = '0.03';
+$VERSION = '0.04';
# it would be nice to try stream/unix first, since that will be
# most efficient. However streams are dodgy - see _syslog_send_stream
==== //depot/perl/ext/re/re.pm#18 (text) ====
Index: perl/ext/re/re.pm
--- perl/ext/re/re.pm#17~18217~ Fri Nov 29 04:11:28 2002
+++ perl/ext/re/re.pm Wed Aug 13 11:42:50 2003
@@ -1,6 +1,6 @@
package re;
-our $VERSION = 0.03;
+our $VERSION = 0.04;
=head1 NAME
==== //depot/perl/ext/threads/shared/shared.pm#33 (text) ====
Index: perl/ext/threads/shared/shared.pm
--- perl/ext/threads/shared/shared.pm#32~19715~ Mon Jun 9 02:35:47 2003
+++ perl/ext/threads/shared/shared.pm Wed Aug 13 11:42:50 2003
@@ -7,7 +7,7 @@
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(share cond_wait cond_broadcast cond_signal);
- our $VERSION = '0.90';
+ our $VERSION = '0.91';
if ($threads::threads) {
*cond_wait = \&cond_wait_enabled;
==== //depot/perl/ext/threads/threads.pm#33 (xtext) ====
Index: perl/ext/threads/threads.pm
--- perl/ext/threads/threads.pm#32~19818~ Thu Jun 19 06:57:55 2003
+++ perl/ext/threads/threads.pm Wed Aug 13 11:42:50 2003
@@ -52,7 +52,7 @@
our @EXPORT = qw(
async
);
-our $VERSION = '0.99';
+our $VERSION = '1.00';
sub equal {
End of Patch.
