From d9d0e6d5021bc27ffcdbb63243039760dd61d2e1 Mon Sep 17 00:00:00 2001
From: Tim Bunce <tim.bunce@pobox.com>
Date: Sun, 1 Feb 2004 11:32:45 +0000
Subject: [PATCH] Updating source to current work-in-progress and adding some
 non-source files

git-svn-id: https://svn.perl.org/modules/dbi/trunk@48 50811bd7-b8ce-0310-adc1-d9db26280581
---
 Changes                                     |  31 +
 DBI.pm                                      | 224 ++++--
 DBI.xs                                      | 244 ++++--
 DBIXS.h                                     |   6 +-
 MANIFEST.SKIP                               |  24 +
 META.yml                                    |   2 +-
 README                                      |  16 +-
 ToDo                                        | 344 ++++----
 err_new/err_disconchk.msg                   | 142 ++++
 err_new/err_docsmissingexe.msg              |  69 ++
 err_new/err_exe_for_fetch_empty.msg         |  61 ++
 err_new/err_ithead_clone_modglobal.msg      | 622 +++++++++++++++
 err_new/err_leaktracking.msg                | 315 ++++++++
 err_new/err_metadatadocs.msg                | 149 ++++
 err_new/err_metayml.mgs                     |  65 ++
 err_new/err_modeling.msg                    |  69 ++
 err_new/err_modglobalclone.msg              | 103 +++
 err_new/err_mxauth.msg                      | 110 +++
 err_new/err_nonrefattr.msg                  |  93 +++
 err_new/err_oldconnect.patch                | 225 ++++++
 err_new/err_perl582thr.msg                  | 275 +++++++
 err_new/err_plserverbug.msg                 |  66 ++
 err_new/err_prof_empty_stmts.msg            |  99 +++
 err_new/err_profilewin32hires.msg           | 319 ++++++++
 err_new/err_proxyrpc.msg                    |  52 ++
 err_new/err_registry.msg                    |  37 +
 err_new/err_signal-docs.msg                 | 696 +++++++++++++++++
 err_new/err_type_info_all.patch.msg         |  65 ++
 err_shelved/err_add-defaults-last-insid.msg | 104 +++
 err_shelved/err_breaks.msg                  | 253 ++++++
 err_shelved/err_dbtype.msg                  | 400 ++++++++++
 err_shelved/err_leakdetection.msg           |  83 ++
 err_shelved/err_multidrivercore.msg         | 825 ++++++++++++++++++++
 err_shelved/err_paramtypeattr.msg           | 127 +++
 err_shelved/err_poddocs.msg                 |  69 ++
 err_shelved/err_priv_attr_subclass.msg      |  71 ++
 err_shelved/err_provide_sth_reset.msg       | 130 +++
 err_shelved/err_proxybindnamed.msg          | 400 ++++++++++
 err_shelved/err_proxytest.msg               |  70 ++
 err_shelved/err_setmagic_rowfetch.msg       |  82 ++
 err_shelved/err_state.msg                   |  76 ++
 err_shelved/err_successwithinfo.msg         |  89 +++
 err_shelved/err_svpv.msg                    |  98 +++
 err_shelved/err_utf8trsnacodexs.msg         |  78 ++
 err_shelved/err_warnhandler.msg             | 523 +++++++++++++
 err_shelved/ref_croakxs.msg                 |  76 ++
 err_shelved/ref_gotoxs.msg                  |  25 +
 err_shelved/ref_in_eval.msg                 | 179 +++++
 err_shelved/ref_magicsv.txt                 |  53 ++
 err_shelved/ref_tie_xs.info                 | 129 +++
 lib/DBI/DBD.pm                              |  12 +-
 lib/DBI/DBD/Metadata.pm                     |  14 +-
 lib/DBI/PurePerl.pm                         | 146 +++-
 t/01basics.t                                |   3 +
 t/02dbidrv.t                                |   5 +-
 t/03handle.t                                |   6 +-
 t/08keeperr.t                               | 125 ++-
 t/15array.t                                 |  21 +-
 t/40profile.t                               |   6 +
 test.pl                                     |   8 +-
 60 files changed, 8454 insertions(+), 355 deletions(-)
 create mode 100644 MANIFEST.SKIP
 create mode 100644 err_new/err_disconchk.msg
 create mode 100644 err_new/err_docsmissingexe.msg
 create mode 100644 err_new/err_exe_for_fetch_empty.msg
 create mode 100644 err_new/err_ithead_clone_modglobal.msg
 create mode 100644 err_new/err_leaktracking.msg
 create mode 100644 err_new/err_metadatadocs.msg
 create mode 100644 err_new/err_metayml.mgs
 create mode 100644 err_new/err_modeling.msg
 create mode 100644 err_new/err_modglobalclone.msg
 create mode 100644 err_new/err_mxauth.msg
 create mode 100644 err_new/err_nonrefattr.msg
 create mode 100644 err_new/err_oldconnect.patch
 create mode 100644 err_new/err_perl582thr.msg
 create mode 100644 err_new/err_plserverbug.msg
 create mode 100644 err_new/err_prof_empty_stmts.msg
 create mode 100644 err_new/err_profilewin32hires.msg
 create mode 100644 err_new/err_proxyrpc.msg
 create mode 100644 err_new/err_registry.msg
 create mode 100644 err_new/err_signal-docs.msg
 create mode 100644 err_new/err_type_info_all.patch.msg
 create mode 100644 err_shelved/err_add-defaults-last-insid.msg
 create mode 100644 err_shelved/err_breaks.msg
 create mode 100644 err_shelved/err_dbtype.msg
 create mode 100644 err_shelved/err_leakdetection.msg
 create mode 100644 err_shelved/err_multidrivercore.msg
 create mode 100644 err_shelved/err_paramtypeattr.msg
 create mode 100644 err_shelved/err_poddocs.msg
 create mode 100644 err_shelved/err_priv_attr_subclass.msg
 create mode 100644 err_shelved/err_provide_sth_reset.msg
 create mode 100644 err_shelved/err_proxybindnamed.msg
 create mode 100644 err_shelved/err_proxytest.msg
 create mode 100644 err_shelved/err_setmagic_rowfetch.msg
 create mode 100644 err_shelved/err_state.msg
 create mode 100644 err_shelved/err_successwithinfo.msg
 create mode 100644 err_shelved/err_svpv.msg
 create mode 100644 err_shelved/err_utf8trsnacodexs.msg
 create mode 100644 err_shelved/err_warnhandler.msg
 create mode 100644 err_shelved/ref_croakxs.msg
 create mode 100644 err_shelved/ref_gotoxs.msg
 create mode 100644 err_shelved/ref_in_eval.msg
 create mode 100644 err_shelved/ref_magicsv.txt
 create mode 100644 err_shelved/ref_tie_xs.info

diff --git a/Changes b/Changes
index 8617547e..0ea5a5da 100644
--- a/Changes
+++ b/Changes
@@ -6,6 +6,37 @@ DBI::Changes - List of significant changes to the DBI
 
 =head1 CHANGES
 
+set_err -> set_state?
+Add clear_state / clear_err
+Document smarts in set_err
+Drivers to change how they get debug level (with masked bits).
+
+  Fixed execute_for_array() so tuple_status parameter is optional
+    as per docs, thanks to Ed Avis.
+  Fixed execute_for_array() docs to say that it returns undef if
+    any of the execute() calls fail.
+  Fixed take_imp_data() test on m68k reported by Christian Hammers.
+  Fixed write_typeinfo_pm inconsistencies in DBI::DBD::Metadata
+    thanks to Andy Hassall.
+
+  Changed set_err() to append to errstr, with a leading "\n" if it's
+    not empty, so that multiple error/warning messages are recorded.
+  Changed trace to limit elements dumped when an array reference is
+    returned from a method to the max(40, $DBI::neat_maxlen/10)
+    so that fetchall_arrayref(), for example, doesn't flood the trace.
+
+  Added way for drivers to indicate 'success with info' or 'warning'
+    by setting err to "0" for warning and "" for information.
+    Both values are false and so don't trigger RaiseError etc.
+    Warnings (err="0") are automatically printed if PrintError is set.
+    Thanks to Steffen Goeldner for the original idea.
+  Added $h->{HandleSetError} = sub { ... } to be called at the
+    point that an error, warn, or info state is recorded.
+    The code can alter the err, errstr, and state values
+    (e.g., to promote an error to a warning, or the reverse).
+  Added details of DBI::Const::GetInfoType module to get_info() docs.
+  Added ref count of inner handle to "DESTROY ignored for outer" msg.
+
 =head2 Changes in DBI 1.40,    7th January 2004
 
   Fixed handling of CachedKids when DESTROYing threaded handles.
diff --git a/DBI.pm b/DBI.pm
index 2355a2be..548e50e9 100644
--- a/DBI.pm
+++ b/DBI.pm
@@ -1,4 +1,4 @@
-# $Id: DBI.pm,v 11.42 2004/01/08 14:03:46 timbo Exp $
+# $Id: DBI.pm,v 11.43 2004/02/01 11:16:16 timbo Exp $
 # vim: ts=8:sw=4
 #
 # Copyright (c) 1994-2004  Tim Bunce  Ireland
@@ -9,7 +9,7 @@
 require 5.006_00;
 
 BEGIN {
-$DBI::VERSION = "1.40"; # ==> ALSO update the version in the pod text below!
+$DBI::VERSION = "1.41"; # ==> ALSO update the version in the pod text below!
 }
 
 =head1 NAME
@@ -118,8 +118,8 @@ Tim he's very likely to just forward it to the mailing list.
 
 =head2 NOTES
 
-This is the DBI specification that corresponds to the DBI version 1.40
-(C<$Date: 2004/01/08 14:03:46 $>).
+This is the DBI specification that corresponds to the DBI version 1.41
+(C<$Date: 2004/02/01 11:16:16 $>).
 
 The DBI is evolving at a steady pace, so it's good to check that
 you have the latest copy.
@@ -150,7 +150,7 @@ L<"http://search.cpan.org/search?query=DBI&mode=all">.
 
 package DBI;
 
-my $Revision = substr(q$Revision: 11.42 $, 10);
+my $Revision = substr(q$Revision: 11.43 $, 10);
 
 use Carp();
 use DynaLoader ();
@@ -532,7 +532,7 @@ sub connect {
 
     # Set $driver. Old style driver, if specified, overrides new dsn style.
     $driver = $old_driver || $1 || $ENV{DBI_DRIVER}
-	or Carp::croak("Can't connect(@_), no database driver specified "
+	or Carp::croak("Can't connect to data source $dsn, no database driver specified "
 		."and DBI_DSN env var not set");
 
     if ($ENV{DBI_AUTOPROXY} && $driver ne 'Proxy' && $driver ne 'Sponge' && $driver ne 'Switch') {
@@ -594,6 +594,7 @@ sub connect {
 	    $errstr = '(no error string)' if !defined $errstr;
 	    my $msg = "$class connect('$dsn','$user',...) failed: $errstr";
 	    DBI->trace_msg("       $msg\n");
+	    # XXX HandleWarn
 	    unless ($attr->{HandleError} && $attr->{HandleError}->($msg, $drh, $dbh)) {
 		Carp::croak($msg) if $attr->{RaiseError};
 		Carp::carp ($msg) if $attr->{PrintError};
@@ -633,7 +634,7 @@ sub connect {
 		$dbh->{$a} = delete $attr->{$a};
 	    }
 	    foreach $a (keys %$attr) {
-		$dbh->{$a} = $attr->{$a};
+		eval { $dbh->{$a} = $attr->{$a} } or $@ && warn $@;
 	    }
 	}
 
@@ -1719,7 +1720,8 @@ sub _new_sth {	# called by DBD::<drivername>::db::prepare)
 
     sub execute_for_fetch {
 	my ($sth, $fetch_tuple_sub, $tuple_status) = @_;
-	@$tuple_status = () if $tuple_status; # reset the status array
+	# start with empty status array
+	($tuple_status) ? @$tuple_status = () : $tuple_status = [];
 
 	my ($err_count, %errstr_cache);
 	while ( my $tuple = &$fetch_tuple_sub() ) {
@@ -2214,7 +2216,7 @@ Returns a database handle object if the connection succeeds. Use
 C<$dbh-E<gt>disconnect> to terminate the connection.
 
 If the connect fails (see below), it returns C<undef> and sets both C<$DBI::err>
-and C<$DBI::errstr>. (It does I<not> set C<$!>, etc.) You should generally
+and C<$DBI::errstr>. (It does I<not> explicitly set C<$!>.) You should generally
 test the return status of C<connect> and C<print $DBI::errstr> if it has failed.
 
 Multiple simultaneous connections to multiple databases through multiple
@@ -2593,30 +2595,47 @@ method called. The code is typically an integer but you should not
 assume that.
 
 The DBI resets $h->err to undef before most DBI method calls, so the
-value only has a short lifespan. Also, most drivers share the same
-error variables across all their handles, so calling a method on
-one handle will typically reset the error on all the other handles
-that are children of that driver.
+value only has a short lifespan. Also, for most drivers, the statement
+handles share the same error variable as the parent database handle,
+so calling a method on one handle may reset the error on the
+related handles.
 
 If you need to test for individual errors I<and> have your program be
 portable to different database engines, then you'll need to determine
 what the corresponding error codes are for all those engines and test for
 all of them.
 
+A driver may return C<0> from err() to indicate a warning condition
+after a method call. Similarly, a driver may return an empty string
+to indicate a 'success with information' condition. In both these
+cases the value is false but not undef. The errstr() and state()
+methods may be used to retrieve extra information.
+
+See L</set_err> for more information.
+
 =item C<errstr>
 
   $str = $h->errstr;
 
-Returns the native database engine error message from the last driver
+Returns the native database engine error message from the last DBI
 method called. This has the same lifespan issues as the L</err> method
 described above.
 
+The returned string may contain multiple messages separated by
+newline characters.
+
+The errstr() method should not be used to test for errors, use err()
+for that, because drivers may return 'success with information' or
+warning messages via errstr() for methods that have not 'failed'.
+
+See L</set_err> for more information.
+
 =item C<state>
 
   $str = $h->state;
 
-Returns an error code in the standard SQLSTATE five character format.
-Note that the specific success code C<00000> is translated to 'C<>'
+Returns a state code in the standard SQLSTATE five character format.
+Note that the specific success code C<00000> is translated to any empty string
 (false). If the driver does not support SQLSTATE (and most don't),
 then state will return C<S1000> (General Error) for all errors.
 
@@ -2624,24 +2643,60 @@ The driver is free to return any value via C<state>, e.g., warning
 codes, even if it has not declared an error by returning a true value
 via the L</err> method described above.
 
+The state() method should not be used to test for errors, use err()
+for that, because drivers may return a 'success with information' or
+warning state code via errstr() for methods that have not 'failed'.
+
 =item C<set_err>
 
   $rv = $h->set_err($err, $errstr);
+  $rv = $h->set_err($err, $errstr, $state);
   $rv = $h->set_err($err, $errstr, $state, $method);
   $rv = $h->set_err($err, $errstr, $state, $method, $rv);
 
 Set the C<err>, C<errstr>, and C<state> values for the handle.
-This will trigger the normal DBI error handling mechanisms,
-such as C<RaiseError> and C<HandleError>, if they are enabled.
 This method is typically only used by DBI drivers and DBI subclasses.
 
-The $method parameter provides an alternate method name, instead
-of the fairly unhelpful 'C<set_err>', for the
-C<RaiseError>/C<PrintError> error string.
+If the L</HandleSetError> attribute holds a reference to a subroutine
+it is called first. The subroutine can alter the $err, $errstr, $state,
+and $method values. See L</HandleSetError> for full details.
+If the subroutine returns a true value then the handle C<err>,
+C<errstr>, and C<state> values are not altered and set_err() returns
+an empty list (it normally returns $rv which defaults to undef, see below).
+
+Setting C<err> to a I<true> value indicates an error and will trigger
+the normal DBI error handling mechanisms, such as C<RaiseError> and
+C<HandleError>, if they are enabled, when execution returns from
+the DBI back to the application.
+
+Setting C<err> to C<""> indicates an 'information' state, and setting
+it to C<"0"> indicates a 'warning' state.
+
+The $method parameter provides an alternate method name for the
+C<RaiseError>/C<PrintError> error string instead of the fairly
+unhelpful 'C<set_err>'.
 
 The C<set_err> method normally returns undef.  The $rv parameter
-provides an alternate return value. The C<HandleError> subroutine
-can access and alter this value.
+provides an alternate return value.
+
+Some special rules apply if the C<err> or C<errstr>
+values for the handle are already set...
+
+If C<errstr> is true then: "C< [err was %s now %s]>" is appended if
+$err is true and C<err> is already true; "C< [state was %s now %s]>"
+is appended if $state is true and C<state> is already true; then
+"C<\n>" and the new $errstr are appended. Obviously the C<%s>'s
+above are replaced by the corresponding values.
+
+The handle C<err> value is set to $err if: $err is true; or handle
+C<err> value is undef; or $err is defined and the length is greater
+than the handle C<err> length. The effect is that an 'information'
+state only overides undef; a 'warning' overrides undef or 'information',
+and an 'error' state overrides anything.
+
+The handle C<state> value is set to $state if $state is true and
+the handle C<err> value was set (by the rules above).
+
 
 =item C<trace>
 
@@ -2917,7 +2972,7 @@ and altering the return value of the failed method. For example:
   $h->{HandleError} = sub {
     return 0 unless $_[0] =~ /^\S+ fetchrow_arrayref failed:/;
     return 0 unless $_[1]->err == 1234; # the error to 'hide'
-    $h->set_err(0,"");	# turn off the error
+    $h->set_err(undef,undef);	# turn off the error
     $_[2] = [ ... ];	# supply alternative return value
     return 1;
   };
@@ -2927,6 +2982,40 @@ to make reliable (avoiding infinite loops, for example) and so isn't
 recommended for general use!  If you find a I<good> use for it then
 please let me know.
 
+=item C<HandleSetError> (code ref, inherited)
+
+The C<HandleSetError> attribute can be used to intercept
+the setting of handle C<err>, C<errstr>, and C<state> values.
+If set to a reference to a subroutine then that subroutine is called
+whenever set_err() is called, typically by the driver or a subclass.
+
+The subroutine is called with five arguments, the first five that
+were passed to set_err(): the handle, the C<err>, C<errstr>, and
+C<state> values being set, and the method name. These can be altered
+by changing the values in the @_ array. The return value affects
+set_err() behaviour, see L</set_err> for details.
+
+It is possible to 'stack' multiple HandleSetError handlers by using
+closures. See L</HandleError> for an example.
+
+The C<HandleSetError> and C<HandleError> subroutines differ in subtle
+but significant ways. HandleError is only invoked at the point where
+the DBI is about to return to the application with C<err> set true.
+It's not invoked by the failure of a method that's been caled by
+another DBI method.  HandleSetError, on the other hand, is called
+whenever set_err() is called with a defined C<err> value, even if false.
+So it's not just for errors, despite the name, but also warn and info states.
+The set_err method, and thus HandleSetError, may be called multiple
+times within a method and is usually invoked from deep within driver code.
+
+In theory a driver can use the return value from HandleSetError via
+set_err() to decide whether to continue or not. If set_err() returns
+an empty list, indicating that the HandleSetError code has 'handled'
+the 'error', the driver could then continue instead of failing (if
+that's a reasonable thing to do).  This isn't excepted to be
+common and any such cases should be clearly marked in the driver
+documentation.
+
 
 =item C<ShowErrorStatement> (boolean, inherited)
 
@@ -2973,11 +3062,12 @@ does not support it must arrange to return C<undef> as the attribute value.
 
 =item C<LongReadLen> (unsigned integer, inherited)
 
-The C<LongReadLen> attribute may be used to control the maximum length of long fields
-("blob", "memo", etc.) which the driver will read from the
-database automatically when it fetches each row of data.  The
-C<LongReadLen> attribute only relates to fetching and reading long values; it
-is not involved in inserting or updating them.
+The C<LongReadLen> attribute may be used to control the maximum
+length of 'long' fields ("blob", "memo", etc.) which the driver will
+read from the database automatically when it fetches each row of data.
+
+The C<LongReadLen> attribute only relates to fetching and reading
+long values; it is not involved in inserting or updating them.
 
 A value of 0 means not to automatically fetch any long data. (C<fetch>
 should return C<undef> for long fields when C<LongReadLen> is 0.)
@@ -2987,23 +3077,36 @@ Applications fetching long fields should set this value to slightly
 larger than the longest long field value to be fetched.
 
 Some databases return some long types encoded as pairs of hex digits.
-For these types, C<LongReadLen> relates to the underlying data length and not the
-doubled-up length of the encoded string.
+For these types, C<LongReadLen> relates to the underlying data
+length and not the doubled-up length of the encoded string.
 
 Changing the value of C<LongReadLen> for a statement handle after it
 has been C<prepare>'d will typically have no effect, so it's common to
 set C<LongReadLen> on the C<$dbh> before calling C<prepare>.
 
-Note that the value used here has a direct effect on the memory used
-by the application, so don't be too generous.
+For most drivers the value used here has a direct effect on the
+memory used by the statement handle while it's active, so don't be
+too generous. If you can't be sure what value to use you could
+execute an extra select statement to determine the longest value.
+For example:
+
+  $dbh->{LongReadLen} = $dbh->selectrow_array{qq{
+      SELECT MAX(long_column_name) FROM table WHERE ...
+  });
+  $sth = $dbh->prepare(qq{
+      SELECT long_column_name, ... FROM table WHERE ...
+  });
+
+You may need to take etra care if the table can be modified between
+the first select and the second being executed.
 
 See L</LongTruncOk> for more information on truncation behaviour.
 
 =item C<LongTruncOk> (boolean, inherited)
 
-The C<LongTruncOk> attribute may be used to control the effect of fetching a long
-field value which has been truncated (typically because it's longer
-than the value of the C<LongReadLen> attribute).
+The C<LongTruncOk> attribute may be used to control the effect of
+fetching a long field value which has been truncated (typically
+because it's longer than the value of the C<LongReadLen> attribute).
 
 By default, C<LongTruncOk> is false and so fetching a long value that
 needs to be truncated will cause the fetch to fail.
@@ -3625,19 +3728,22 @@ unknown or unimplemented information types. For example:
 See L</"Standards Reference Information"> for more detailed information
 about the information types and their meanings and possible return values.
 
-The DBI curently doesn't provide a name to number mapping for the
-information type codes or the results. Applications are expected to use
-the integer values directly, with the name in a comment, or define
-their own named values using something like the L<constant> pragma.
+The DBI::Const::GetInfoType module exports a %GetInfoType hash that
+can be used to map info type names to numbers. For example:
+
+  $database_version = $dbh->get_info( $GetInfoType{SQL_DBMS_VER} );
+
+The names are a merging of the ANSI and ODBC standards (which differ
+in some cases). See L<DBI::Const::GetInfoType> for more details.
 
 Because some DBI methods make use of get_info(), drivers are strongly
 encouraged to support I<at least> the following very minimal set
 of information types to ensure the DBI itself works properly:
 
  Type  Name                        Example A     Example B
- ----  --------------------------  ------------  ------------
+ ----  --------------------------  ------------  ----------------
    17  SQL_DBMS_NAME               'ACCESS'      'Oracle'
-   18  SQL_DBMS_VER                '03.50.0000'  '08.01.0721'
+   18  SQL_DBMS_VER                '03.50.0000'  '08.01.0721 ...'
    29  SQL_IDENTIFIER_QUOTE_CHAR   '`'           '"'
    41  SQL_CATALOG_NAME_SEPARATOR  '.'           '@'
   114  SQL_CATALOG_LOCATION        1             2
@@ -4809,8 +4915,9 @@ The execute_for_fetch() method calls $fetch_tuple_sub, without any
 parameters, until it returns a false value. Each tuple returned is
 used to provide bind values for an $sth->execute(@$tuple) call.
 
-The number of tuples executed is returned, regardless of the success
-or failure of those executions. Use tuple_status to check.
+The number of tuples executed is returned I<only if> there were no errors.
+If there were any errors then C<undef> is returned and the @tuple_status
+array can be used to discover which tuples failed and with what errors.
 
 If \@tuple_status is passed then the execute_for_fetch method uses
 it to return status information. The tuple_status array holds one
@@ -4824,7 +4931,8 @@ to call $sth->execute(@$tuple_array_ref) the exact timing may vary.
 Drivers are free to accumulate sets of tuples to pass to the
 database server in bulk group operations for more efficient execution.
 However, the $fetch_tuple_sub is specifically allowed to return
-the same array reference each time.
+the same array reference each time (which is what fetchrow_arrayref()
+usually does).
 
 For example:
 
@@ -5173,7 +5281,7 @@ of these attributes are read-only.
 Changes to these statement handle attributes do not affect any other
 existing or future statement handles.
 
-Attempting to set or get the value of an unknown attribute is fatal,
+Attempting to set or get the value of an unknown attribute is I<fatal>,
 except for private driver specific attributes (which all have names
 starting with a lowercase letter).
 
@@ -5181,8 +5289,13 @@ Example:
 
   ... = $h->{NUM_OF_FIELDS};	# get/read
 
-Note that some drivers cannot provide valid values for some or all of
-these attributes until after C<$sth-E<gt>execute> has been called.
+Some drivers cannot provide valid values for some or all of these
+attributes until after C<$sth-E<gt>execute> has been successfully
+called. Typically the attribute will be C<undef> in these situations.
+
+Some attributes, like NAME, are not appropriate to some types of
+statement, like SELECT. Typically the attribute will be C<undef>
+in these situations.
 
 See also L</finish> to learn more about the effect it
 may have on some attributes.
@@ -5510,10 +5623,13 @@ databases can't usually know in advance the length of the longest long
 that will be returned from a C<SELECT> statement (unlike other data
 types), some special handling is required.
 
-In this situation, the value of the C<$h-E<gt>{LongReadLen}> attribute is used
-to determine how much buffer space to allocate when fetching such
-fields.  The C<$h-E<gt>{LongTruncOk}> attribute is used to determine how to
-behave if a fetched value can't fit into the buffer.
+In this situation, the value of the C<$h-E<gt>{LongReadLen}>
+attribute is used to determine how much buffer space to allocate
+when fetching such fields.  The C<$h-E<gt>{LongTruncOk}> attribute
+is used to determine how to behave if a fetched value can't fit
+into the buffer.
+
+See the description of L</LongReadLen> for more information.
 
 When trying to insert long or binary values, placeholders should be used
 since there are often limits on the maximum size of an C<INSERT>
@@ -5583,7 +5699,6 @@ quotes that may be used in the SQL statement. Use the double-quote like
 C<qq{...}> operator if you want to interpolate variables into the string.
 See L<perlop/"Quote and Quote-like Operators"> for more details.
 
-
 =head2 Threads and Thread Safety
 
 Perl 5.7 and later support a new threading model called iThreads.
@@ -5616,7 +5731,8 @@ one thread to enter the code, even if I<not> at the same time,
 can cause problems. You have been warned.
 
 Using DBI with perl threads is not yet recommended for production
-environments.
+environments. For more information see
+L<http://www.perlmonks.org/index.pl?node_id=288022>
 
 Note: There is a bug in perl 5.8.2 when configured with threads
 and debugging enabled (bug #24463) which causes a DBI test to fail.
diff --git a/DBI.xs b/DBI.xs
index ee4cc12e..cfb8c419 100644
--- a/DBI.xs
+++ b/DBI.xs
@@ -1,6 +1,6 @@
 /* vim: ts=8:sw=4
  *
- * $Id: DBI.xs,v 11.37 2004/01/07 17:38:51 timbo Exp $
+ * $Id: DBI.xs,v 11.38 2004/02/01 11:16:16 timbo Exp $
  *
  * Copyright (c) 1994-2003  Tim Bunce  Ireland.
  *
@@ -70,7 +70,8 @@ static SV	 *dbih_event	   _((SV *h, char *name, SV*, SV*));
 static int        dbih_set_attr_k  _((SV *h, SV *keysv, int dbikey, SV *valuesv));
 static SV        *dbih_get_attr_k  _((SV *h, SV *keysv, int dbikey));
 
-static int	set_err _((SV *h, imp_xxh_t *imp_xxh, int errval, char *errstr, char *state));
+static int      set_err_char	_((SV *h, imp_xxh_t *imp_xxh, char *err, char *errstr, char *state, char *method));
+static int	set_err_sv	_((SV *h, imp_xxh_t *imp_xxh, SV *err, SV *errstr, SV *state, SV *method));
 static int	quote_type _((int sql_type, int p, int s, int *base_type, void *v));
 static int	dbi_hash _((char *string, long i));
 static void	dbih_dumphandle _((SV *h, char *msg, int level));
@@ -392,22 +393,96 @@ neatsvpv(SV *sv, STRLEN maxlen) /* return a tidy ascii value, for debugging only
 
 
 static int
-set_err(SV *h, imp_xxh_t *imp_xxh, int errval, char *errstr, char *state)
+set_err_char(SV *h, imp_xxh_t *imp_xxh, char *err, char *errstr, char *state, char *method)
 {
-    STRLEN lna;
-    sv_setiv(DBIc_ERR(imp_xxh),    errval);
-    if (!errstr || !*errstr)
-	errstr = SvPV(DBIc_ERR(imp_xxh), lna);
-    sv_setpv(DBIc_ERRSTR(imp_xxh), errstr);
-    if (state && *state) {
-	if (strlen(state) != 5)
-	    croak("set_err: state must be 5 character string");
-	sv_setpv(DBIc_STATE(imp_xxh), state);
+    SV *err_sv    = (strEQ(err,"1")) ? &sv_yes : sv_2mortal(newSVpvn(err, strlen(err)));
+    SV *errstr_sv = sv_2mortal(newSVpvn(errstr, strlen(errstr)));
+    SV *state_sv  = (state && *state)   ? sv_2mortal(newSVpvn(state,  strlen(state)))  : &sv_undef;
+    SV *method_sv = (method && *method) ? sv_2mortal(newSVpvn(method, strlen(method))) : &sv_undef;
+    return set_err_sv(h, imp_xxh, err_sv, errstr_sv, state_sv, method_sv);
+}
+
+static int
+set_err_sv(SV *h, imp_xxh_t *imp_xxh, SV *err, SV *errstr, SV *state, SV *method)
+{
+    SV *h_err;
+    SV *h_errstr;
+    SV *h_state;
+    SV **hook_svp;
+    int err_changed = 0;
+
+    if (!SvOK(err))
+	return 0;
+
+    if (    DBIc_has(imp_xxh, DBIcf_HandleSetError)
+	&& (hook_svp = hv_fetch((HV*)SvRV(h),"HandleSetError",14,0))
+	&&  hook_svp && SvOK(*hook_svp)
+    ) {
+	dSP;
+	IV items;
+	SV *response_sv;
+	if (SvREADONLY(err))	err    = sv_mortalcopy(err);
+	if (SvREADONLY(errstr))	errstr = sv_mortalcopy(errstr);
+	if (SvREADONLY(state))	state  = sv_mortalcopy(state);
+	if (SvREADONLY(method))	method = sv_mortalcopy(method);
+	if (DBIS->debug >= 2)
+	    PerlIO_printf(DBILOGFP,"    -> HandleSetError(%s, err=%s, errstr=%s, state=%s, %s)\n",
+		neatsvpv(h,0), neatsvpv(err,0), neatsvpv(errstr,0), neatsvpv(state,0),
+		neatsvpv(method,0)
+	    );
+	PUSHMARK(SP);
+	XPUSHs(sv_2mortal(newRV((SV*)DBIc_MY_H(imp_xxh))));
+	XPUSHs(err);
+	XPUSHs(errstr);
+	XPUSHs(state);
+	XPUSHs(method);
+	PUTBACK;
+	items = perl_call_sv(*hook_svp, G_SCALAR);
+	SPAGAIN;
+	response_sv = (items) ? POPs : &sv_undef;
+	PUTBACK;
+	if (DBIS->debug >= 1)
+	    PerlIO_printf(DBILOGFP,"    <- HandleSetError= %s (err=%s, errstr=%s, state=%s, %s)\n",
+		neatsvpv(response_sv,0), neatsvpv(err,0), neatsvpv(errstr,0), neatsvpv(state,0),
+		neatsvpv(method,0)
+	    );
+	if (SvTRUE(response_sv))	/* handler says it has handled it, so... */
+	    return 0;
+    }
+
+    /* fetch these after calling HandleSetError */
+    h_err    = DBIc_ERR(imp_xxh);
+    h_errstr = DBIc_ERRSTR(imp_xxh);
+    h_state  = DBIc_STATE(imp_xxh);
+
+    if (SvTRUE(h_errstr)) {
+	/* append current err, if any, to errstr if it's going to change */
+	if (SvTRUE(h_err) && SvTRUE(err))
+	    sv_catpvf(h_errstr, " [err was %s now %s]", SvPV_nolen(h_err), SvPV_nolen(err));
+	if (SvTRUE(h_state) && SvTRUE(state))
+	    sv_catpvf(h_errstr, " [state was %s now %s]", SvPV_nolen(h_state), SvPV_nolen(state));
+	sv_catpvn(h_errstr, "\n", 1);
+        sv_catsv(h_errstr, errstr);
     }
-    else {
-	(void)SvOK_off(DBIc_STATE(imp_xxh));
+    else
+	sv_setsv(h_errstr, errstr);
+
+    /* SvTRUE(err) > "0" > "" > undef */
+    if (SvTRUE(err)		/* new error: so assign			*/
+	|| !SvOK(h_err)	/* no existing warn/info: so assign	*/
+	   /* new warn ("0" len 1) > info ("" len 0): so assign		*/
+	|| (SvOK(err) && SvCUR(err) > SvCUR(h_err)) ) {
+	sv_setsv(h_err, err);
+	err_changed = 1;
+    }
+
+    if (SvTRUE(state) && err_changed) {
+	if (SvCUR(state) != 5)
+	    croak("set_err: state must be 5 character string");
+	sv_setsv(h_state, state);
     }
-    return 0;
+
+    return 1;
 }
 
 
@@ -869,6 +944,7 @@ dbih_setup_handle(SV *orv, char *imp_class, SV *parent, SV *imp_datasv)
 	DBIc_ATTR(imp, TraceLevel)=COPY_PARENT("TraceLevel",0,0);/* scalar (int)*/
 	DBIc_ATTR(imp, FetchHashKeyName) = COPY_PARENT("FetchHashKeyName",0,0);	/* scalar ref */
 	if (parent) {
+	    dbih_setup_attrib(h,"HandleSetError",parent,0,1);
 	    dbih_setup_attrib(h,"HandleError",parent,0,1);
 	    if (DBIc_has(parent_imp,DBIcf_Profile)) {
 		dbih_setup_attrib(h,"Profile",parent,0,1);
@@ -934,6 +1010,7 @@ dbih_dumpcom(imp_xxh_t *imp_xxh, char *msg, int level)
     if (DBIc_is(imp_xxh, DBIcf_ChopBlanks))	sv_catpv(flags,"ChopBlanks ");
     if (DBIc_is(imp_xxh, DBIcf_RaiseError))	sv_catpv(flags,"RaiseError ");
     if (DBIc_is(imp_xxh, DBIcf_PrintError))	sv_catpv(flags,"PrintError ");
+    if (DBIc_is(imp_xxh, DBIcf_HandleSetError))	sv_catpv(flags,"HandleSetError ");
     if (DBIc_is(imp_xxh, DBIcf_HandleError))	sv_catpv(flags,"HandleError ");
     if (DBIc_is(imp_xxh, DBIcf_ShowErrorStatement))	sv_catpv(flags,"ShowErrorStatement ");
     if (DBIc_is(imp_xxh, DBIcf_AutoCommit))	sv_catpv(flags,"AutoCommit ");
@@ -1268,6 +1345,13 @@ dbih_set_attr_k(SV *h, SV *keysv, int dbikey, SV *valuesv)
 	DBIc_set(imp_xxh,DBIcf_HandleError, on);
 	cacheit = 1; /* child copy setup by dbih_setup_handle() */
     }
+    else if (strEQ(key, "HandleSetError")) {
+	if ( on && (!SvROK(valuesv) || (SvTYPE(SvRV(valuesv)) != SVt_PVCV)) ) {
+	    croak("Can't set HandleSetError to '%s'",neatsvpv(valuesv,0));
+	}
+	DBIc_set(imp_xxh,DBIcf_HandleSetError, on);
+	cacheit = 1; /* child copy setup by dbih_setup_handle() */
+    }
     else if (strEQ(key, "Profile")) {
 	char *dbi_class = "DBI::Profile";
 	if (on && (!SvROK(valuesv) || (SvTYPE(SvRV(valuesv)) != SVt_PVHV)) ) {
@@ -1369,6 +1453,8 @@ dbih_set_attr_k(SV *h, SV *keysv, int dbikey, SV *valuesv)
 			    || strEQ(key,"ImplementorClass")
 			    || strEQ(key,"Statement")
 			    || strEQ(key,"Username")
+	/* these are here for backwards histerical raisons */
+	|| strEQ(key,"USER") || strEQ(key,"CURRENT_USER")
     ) ) {
 	cacheit = 1;
     }
@@ -1654,6 +1740,7 @@ dbih_get_attr_k(SV *h, SV *keysv, int dbikey)
 	else if (!isUPPER(*key))	/* dbd_*, private_* etc */
 	    valuesv = &sv_undef;
 	else if (	(*key=='H' && strEQ(key, "HandleError"))
+		||	(*key=='H' && strEQ(key, "HandleSetError"))
 		||	(*key=='S' && strEQ(key, "Statement"))
 		||	(*key=='P' && strEQ(key, "ParamValues"))
 		||	(*key=='P' && strEQ(key, "Profile"))
@@ -2078,6 +2165,8 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
     SV *st1 = ST(1);		/* used in debugging */
     SV *st2 = ST(2);		/* used in debugging */
     SV *orig_h = h;
+    SV *err_sv;
+    SV **hook_svp = 0;
     MAGIC *mg;
     STRLEN lna;
     int gimme = GIMME;
@@ -2143,8 +2232,11 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 	    if (imp_xxh && DBIc_TYPE(imp_xxh) <= DBIt_DB && DBIc_CACHED_KIDS((imp_drh_t*)imp_xxh))
 		clear_cached_kids(mg->mg_obj, imp_xxh, meth_name, debug);
 	    if (debug >= 3)
-                PerlIO_printf(DBILOGFP,"%c   <> DESTROY ignored for outer handle %s (inner %s)\n",
-		    (dirty?'!':' '), neatsvpv(h,0), neatsvpv(mg->mg_obj,0));
+                PerlIO_printf(DBILOGFP,
+		    "%c   <> DESTROY ignored for outer handle %s (inner %s has ref cnt %ld)\n",
+		    (dirty?'!':' '), neatsvpv(h,0), neatsvpv(mg->mg_obj,0),
+		    (long)SvREFCNT(SvRV(mg->mg_obj))
+		);
 	    /* for now we ignore it since it'll be followed soon by	*/
 	    /* a destroy of the inner hash and that'll do the real work	*/
 	    XSRETURN(0);
@@ -2326,10 +2418,12 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 
     /* --- dispatch --- */
 
-    if (!keep_error) {
-	if (debug >= 4 && SvTRUE(DBIc_ERR(imp_xxh))) {
+    if (!keep_error && !(*meth_name=='s' && strEQ(meth_name,"set_err"))) {
+	SV *err_sv;
+	if (debug >= 4 && SvOK(err_sv=DBIc_ERR(imp_xxh))) {
 	    PerlIO *logfp = DBILOGFP;
-	    PerlIO_printf(logfp, "    !! ERROR: %s CLEARED by call to %s method\n",
+	    PerlIO_printf(logfp, "    !! %s: %s CLEARED by call to %s method\n",
+		SvTRUE(err_sv) ? "ERROR" : SvCUR(err_sv) ? "warn" : "info",
 		neatsvpv(DBIc_ERR(imp_xxh),0), meth_name);
 	}
 	DBIh_CLEAR_ERROR(imp_xxh);
@@ -2468,6 +2562,8 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 
     post_dispatch:
 
+    err_sv = DBIc_ERR(imp_xxh);
+
     if (debug >= 1
 	&& !(debug == 1 /* don't trace nested calls at level 1 */
 	    && call_depth <= 1
@@ -2480,11 +2576,10 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 	    /* skip the 'middle' rows to reduce output */
 	    goto skip_meth_return_trace;
 	}
-	if (SvTRUE(DBIc_ERR(imp_xxh))) {
-	    PerlIO_printf(logfp,
-		(keep_error) ? "       error: %s %s\n"
-			     : "    !! ERROR: %s %s\n",
-		neatsvpv(DBIc_ERR(imp_xxh),0), neatsvpv(DBIc_ERRSTR(imp_xxh),0));
+	if (SvOK(err_sv)) {
+	    PerlIO_printf(logfp, "    %s %s %s %s\n", (keep_error) ? "  " : "!!",
+		SvTRUE(err_sv) ? "ERROR:" : SvCUR(err_sv) ? "warn:" : "info:",
+		neatsvpv(err_sv,0), neatsvpv(DBIc_ERRSTR(imp_xxh),0));
 	}
 	PerlIO_printf(logfp,"%c%c  <- %s",
 		    (call_depth > 1)  ? '0'+call_depth-1 : (dirty?'!':' '),
@@ -2506,9 +2601,17 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 	    if ( SvROK(s) && SvTYPE(SvRV(s))==SVt_PVAV) {
 		AV *av = (AV*)SvRV(s);
 		int avi;
+		int avi_last = SvIV(DBIS->neatsvpvlen) / 10;
+		if (avi_last < 39)
+		    avi_last = 39;
 		PerlIO_printf(logfp, " [");
-		for(avi=0; avi <= AvFILL(av); ++avi)
+		for (avi=0; avi <= AvFILL(av); ++avi) {
 		    PerlIO_printf(logfp, " %s",  neatsvpv(AvARRAY(av)[avi],0));
+		    if (avi >= avi_last && AvFILL(av) - avi > 1) {
+			PerlIO_printf(logfp, " ... %ld others skipped", AvFILL(av) - avi);
+			break;
+		    }
+		}
 		PerlIO_printf(logfp, " ]");
 	    }
 	    else {
@@ -2595,15 +2698,18 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 	}
     }
 
-    if (   !keep_error				/* so would be a new error	*/
-	&& SvTRUE(DBIc_ERR(imp_xxh))		/* and an error exists		*/
-	&& call_depth <= 1			/* skip nested (internal) calls	*/
-	&& DBIc_has(imp_xxh, DBIcf_RaiseError|DBIcf_PrintError|DBIcf_HandleError)
-	/* check that we're not nested inside a call to our parent */
+    if (   !keep_error			/* is a new err/warn/info		*/
+	&& call_depth <= 1		/* skip nested (internal) calls		*/
+	&& (
+		   /* is an error and has RaiseError|PrintError|HandleError set	*/
+	   (SvTRUE(err_sv) && DBIc_has(imp_xxh, DBIcf_RaiseError|DBIcf_PrintError|DBIcf_HandleError))
+		   /* is a warn (not info) and has PrintError set		*/
+	|| (  SvOK(err_sv) && SvCUR(err_sv) && DBIc_has(imp_xxh, DBIcf_PrintError))
+	)
+		   /* check that we're not nested inside a call to our parent	*/
 	&& (!DBIc_PARENT_COM(imp_xxh) || DBIc_CALL_DEPTH(DBIc_PARENT_COM(imp_xxh)) < 1)
     ) {
 	SV *msg;
-	SV **hook_svp = 0;
 	SV **statement_svp = NULL;
 	char *err_meth_name = meth_name;
 	char intro[200];
@@ -2614,7 +2720,9 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 		err_meth_name = SvPV(*sem_svp,lna);
 	}
 
-	sprintf(intro,"%s %s failed: ", HvNAME(DBIc_IMP_STASH(imp_xxh)), err_meth_name);
+	/* XXX change to vsprintf into sv directly */
+	sprintf(intro,"%s %s %s: ", HvNAME(DBIc_IMP_STASH(imp_xxh)), err_meth_name,
+	    SvTRUE(err_sv) ? "failed" : SvCUR(err_sv) ? "warning" : "information");
 	msg = sv_2mortal(newSVpv(intro,0));
 	sv_catsv(msg, DBIc_ERRSTR(imp_xxh));
 
@@ -2656,9 +2764,10 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 	    }
 	}
 
-	if (DBIc_has(imp_xxh, DBIcf_HandleError)
-		&& (hook_svp=hv_fetch((HV*)SvRV(h),"HandleError",11,0))
-		&&  hook_svp && SvOK(*hook_svp)
+	if (    SvTRUE(err_sv)
+	    &&  DBIc_has(imp_xxh, DBIcf_HandleError)
+	    && (hook_svp = hv_fetch((HV*)SvRV(h),"HandleError",11,0))
+	    &&  hook_svp && SvOK(*hook_svp)
 	) {
 	    dSP;
 	    PerlIO *logfp = DBILOGFP;
@@ -2690,8 +2799,6 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 	    SPAGAIN;
 	    status = (items) ? POPs : &sv_undef;
 	    PUTBACK;
-	    if (!SvTRUE(status)) /* handler says it didn't handle it, so... */
-		hook_svp = 0;  /* pretend we didn't have a handler...     */
 	    if (debug)
 		PerlIO_printf(logfp,"    <- HandleError= %s%s%s%s\n",
 		    neatsvpv(status,0),
@@ -2699,6 +2806,8 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 		    (!outitems ? "" : neatsvpv(result,0)),
 		    (!outitems ? "" : ")")
 		);
+	    if (!SvTRUE(status)) /* handler says it didn't handle it, so... */
+		hook_svp = 0;  /* pretend we didn't have a handler...     */
 	}
 
 	if (profile_t1) { /* see also dbi_profile() call a few lines below */
@@ -2709,7 +2818,7 @@ XS(XS_DBI_dispatch)         /* prototype must match XS produced code */
 	if (!hook_svp) {
 	    if (DBIc_has(imp_xxh, DBIcf_PrintError))
 		warn("%s", SvPV(msg,lna));
-	    if (DBIc_has(imp_xxh, DBIcf_RaiseError))
+	    if (DBIc_has(imp_xxh, DBIcf_RaiseError) && SvTRUE(err_sv))
 		croak("%s", SvPV(msg,lna));
 	}
     }
@@ -2985,7 +3094,7 @@ preparse(SV *dbh, char *statement, IV ps_return, IV ps_accept, void *foo)
                    if (pln != idx) {
 			char buf[99];
 			sprintf(buf, "preparse found placeholder :%d out of sequence, expected :%d", pln, idx);
-			set_err(dbh, imp_xxh, 1, buf, 0);
+			set_err_char(dbh, imp_xxh, "1", buf, 0, "preparse");
 			return &sv_undef;
                    }
 		   while(isDIGIT(*src)) src++;
@@ -3016,7 +3125,7 @@ preparse(SV *dbh, char *statement, IV ps_return, IV ps_accept, void *foo)
 	if (laststyle && style != laststyle) {
 	    char buf[99];
 	    sprintf(buf, "preparse found mixed placeholder styles (%s / %s)", style, laststyle);
-	    set_err(dbh, imp_xxh, 1, buf, 0);
+	    set_err_char(dbh, imp_xxh, "1", buf, 0, "preparse");
             return &sv_undef;
         }
 	laststyle = style;
@@ -3027,19 +3136,19 @@ preparse(SV *dbh, char *statement, IV ps_return, IV ps_accept, void *foo)
     switch (in_quote)
     {
     case '\'':
-	    set_err(dbh, imp_xxh, 1, "preparse found unterminated single-quoted string", 0);
+	    set_err_char(dbh, imp_xxh, "1", "preparse found unterminated single-quoted string", 0, "preparse");
 	    break;
     case '\"':
-	    set_err(dbh, imp_xxh, 1, "preparse found unterminated double-quoted string", 0);
+	    set_err_char(dbh, imp_xxh, "1", "preparse found unterminated double-quoted string", 0, "preparse");
 	    break;
     }
     switch (in_comment)
     {
     case DBIpp_L_BRACE:
-	    set_err(dbh, imp_xxh, 1, "preparse found unterminated bracketed {...} comment", 0);
+	    set_err_char(dbh, imp_xxh, "1", "preparse found unterminated bracketed {...} comment", 0, "preparse");
 	    break;
     case '/':
-	    set_err(dbh, imp_xxh, 1, "preparse found unterminated bracketed C-style comment", 0);
+	    set_err_char(dbh, imp_xxh, "1", "preparse found unterminated bracketed C-style comment", 0, "preparse");
 	    break;
     }
 
@@ -3490,7 +3599,7 @@ take_imp_data(h)
     if (DBIc_TYPE(imp_xxh) <= DBIt_DB && DBIc_CACHED_KIDS((imp_dbh_t*)imp_xxh))
 	clear_cached_kids(h, imp_xxh, "take_imp_data", DBIc_DEBUGIV(imp_xxh));
     if (DBIc_KIDS(imp_xxh)) {	/* safety check, may be relaxed later to DBIc_ACTIVE_KIDS */
-	set_err(h, imp_xxh, 1, "Can't take_imp_data from handle while it still has kids", 0);
+	set_err_char(h, imp_xxh, "1", "Can't take_imp_data from handle while it still has kids", 0, "take_imp_data");
 	XSRETURN(0);
     }
     dbih_getcom2(h, &mg);	/* get the MAGIC so we can change it	*/
@@ -3815,41 +3924,38 @@ errstr(h)
 
 
 void
-set_err(h, errval, errstr=&sv_no, state=&sv_undef, method=&sv_undef, result=Nullsv)
+set_err(h, err, errstr=&sv_no, state=&sv_undef, method=&sv_undef, result=Nullsv)
     SV *	h
-    SV *	errval
+    SV *	err
     SV *	errstr
     SV *	state
     SV *	method
     SV *	result
-    CODE:
+    PPCODE:
     {
     D_imp_xxh(h);
-    STRLEN lna;
     SV **sem_svp;
-    sv_setsv(DBIc_ERR(imp_xxh),    errval);
-    if (errstr==&sv_no || !SvOK(errstr))
-	errstr = errval;
-    sv_setsv(DBIc_ERRSTR(imp_xxh), errstr);
-    if (SvTRUE(state)) {
-	STRLEN len;
-	if (SvPV(state, len) && len != 5)
-	    croak("set_err: state must be 5 character string");
-	sv_setsv(DBIc_STATE(imp_xxh), state);
+
+    if (DBIc_has(imp_xxh, DBIcf_HandleSetError) && SvREADONLY(method))
+	method = sv_mortalcopy(method); /* HandleSetError may want to change it */
+
+    if (!set_err_sv(h, imp_xxh, err, errstr, state, method)) {
+	/* set_err was canceled by HandleSetError,		*/
+	/* don't set "dbi_set_err_method", return an empty list	*/
     }
     else {
-	(void)SvOK_off(DBIc_STATE(imp_xxh));
+	/* store provided method name so handler code can find it */
+	sem_svp = hv_fetch((HV*)SvRV(h), "dbi_set_err_method", 18, 1);
+	if (SvOK(method)) {
+	    sv_setpv(*sem_svp, SvPV_nolen(method));
+	}
+	else
+	    (void)SvOK_off(*sem_svp);
+	EXTEND(SP, 1);
+	PUSHs( result ? result : &sv_undef );
     }
-    /* store provided method name so handler code can find it */
-    sem_svp = hv_fetch((HV*)SvRV(h), "dbi_set_err_method", 18, 1);
-    if (SvOK(method))
-	sv_setpv(*sem_svp, SvPV(method,lna));
-    else
-	(void)SvOK_off(*sem_svp);
-
     /* We don't check RaiseError and call die here because that must be	*/
-    /* done by returning theough dispatch and letting the DBI handle it	*/
-    ST(0) = (result ? result : &sv_undef);
+    /* done by returning through dispatch and letting the DBI handle it	*/
     }
 
 
diff --git a/DBIXS.h b/DBIXS.h
index ec9fe12d..cca8218a 100644
--- a/DBIXS.h
+++ b/DBIXS.h
@@ -1,4 +1,4 @@
-/* $Id: DBIXS.h,v 11.17 2003/11/13 13:04:38 timbo Exp $
+/* $Id: DBIXS.h,v 11.18 2004/02/01 11:16:16 timbo Exp $
  *
  * Copyright (c) 1994-2002  Tim Bunce  Ireland
  *
@@ -232,14 +232,14 @@ typedef struct {		/* -- FIELD DESCRIPTOR --		*/
 #define DBIcf_AutoCommit  0x000200	/* dbh only. used by drivers		*/
 #define DBIcf_LongTruncOk 0x000400	/* truncation to LongReadLen is okay	*/
 #define DBIcf_MultiThread 0x000800	/* allow multiple threads to enter	*/
-/*	spare		  0x001000						*/
+#define DBIcf_HandleSetError  0x001000	/* has coderef HandleSetError attribute	*/
 #define DBIcf_ShowErrorStatement  0x002000   /* include Statement in error	*/
 #define DBIcf_BegunWork   0x004000	/* between begin_work & commit/rollback */
 #define DBIcf_HandleError 0x008000	/* has coderef in HandleError attribute */
 #define DBIcf_Profile     0x010000	/* profile activity on this handle      */
 #define DBIcf_TaintIn     0x020000	/* check inputs for taintedness */
 #define DBIcf_TaintOut    0x040000	/* taint outgoing data */
-/* new flags may require clone() to be updated */
+/* NOTE: new flags may require clone() to be updated */
 
 #define DBIcf_INHERITMASK		/* what NOT to pass on to children */	\
   (U32)( DBIcf_COMSET | DBIcf_IMPSET | DBIcf_ACTIVE | DBIcf_IADESTROY		\
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
new file mode 100644
index 00000000..3f9cfd75
--- /dev/null
+++ b/MANIFEST.SKIP
@@ -0,0 +1,24 @@
+\bRCS\b
+^MANIFEST\.
+^Makefile$
+~$
+\.html$
+\.old$
+^blib/
+^tmp/
+^Talks/
+^info/
+^BOOK/
+^DIST/
+^old/
+^DBI-\d
+^nt-odbc/
+^dbi.perl.org/
+^Devel-PPPort
+^oratcl/
+^ado/
+^err/
+^err_
+^[oj]dbc/
+^mail/
+^t/zz_\w+_pp.t$
diff --git a/META.yml b/META.yml
index 2ca35a1d..2ac7a695 100644
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         DBI
-version:      1.39
+version:      1.41
 version_from: DBI.pm
 installdirs:  site
 requires:
diff --git a/README b/README
index 4c1d7d1d..b52e4433 100644
--- a/README
+++ b/README
@@ -118,12 +118,8 @@ Tim Bunce.
 =======================================================================
 
 ---
-If you get an error like "fatal: relocation error: symbol not found: ..."
-using gcc <3.x then try not using GNU as or GNU ld on Solaris.
-
----
-If you get compiler warnings like "value computed is not used" and
-"unused variable" you can ignore them.
+If you get an error like "gcc: command not found" or "cc: command not found"
+you need to install a compiler. But also read the next item:
 
 ---
 If you get compiler errors refering to Perl's own header files
@@ -133,4 +129,12 @@ Perl that was built on the system you are trying to use and it's also
 important to use the same compiler that was used to build the Perl you
 are using.
 
+---
+If you get an error like "fatal: relocation error: symbol not found: ..."
+on Solaris when using gcc <3.x then try not using GNU as or GNU ld.
+
+---
+If you get compiler warnings like "value computed is not used" and
+"unused variable" you can ignore them.
+
 End.
diff --git a/ToDo b/ToDo
index d2fd005e..8511388f 100644
--- a/ToDo
+++ b/ToDo
@@ -1,26 +1,134 @@
 *** Changes for DBI v2 ***
 
-New connect() code using parse_dsn()
+--- Changes that may impact applications:
+
+Turning AutoCommit on should trigger rollback not commit.
+(ODBC does a commit) This will break code that assumes a commit.
+
+Always taint check the $sql for do() and prepare()
+if perl is in taint mode (can't be disabled).
+Default TaintIn=>1 in perl taint mode?
+Default TaintOut=>1 in perl taint mode but exclude placeholders?
+
+Remove support for "old-style" connect syntax
+(where the driver name is the 4th parameter).
+
+Remove undocumented DBI->err and DBI->errstr methods.
+
+Remove old informix fudge in tables() (would only impact people
+using very old DBD::Informix versions as it now has it's own).
+
+Minor change to parameters of HandleError callback
+(add $err and $state ahead of $return).
+
+Increase size of com struct (requires driver rebuild)
+and improve size sanity checks.
+
+
+--- Additions and other changes visible to applications:
+
+Make ShowErrorStatement=>1 the default
+
+Define expected uft8 behaviour. Basically drivers need to set the
+uft8 flag on returned strings themselves when appropriate.
+The DBI I<may> define a way for an application to indicate that
+a particular column should be flagged as uft8 to help drivers
+that are not able to determine that themselves.
+The DBI won't support automatic character set conversions.
+
+Change "TraceLevel" to support "topic bits" that can be set
+independantly of the current integer "level". In other words
+the lowest 4 bits will be used for the "level", as now.
+The next 4 bits are reserved. The next 16bits are each
+associated with a particular topic defined by the DBI.
+The top 8 bits are from for the driver to use.
+The topics will be assigned letters which can be used to
+set the trace level to make it easier to remember settings.
+Need to decide which drivers should use, DBIS->debug or imp_xxh->debug.
+Change macro to get debug level to only return last 4 bits.
+Add macro framework for 'topic' bits.
+Use one bit for logging just the SQL statement executed
+(with no extra text) ideally in a way that lets the text
+file be parsed again later. Perhaps append ";\n\n\n" to each.
+
+Ability to remove a handle from the parents cache:
+	$sth->uncache;
+and	$dbh->uncache; for connect_cached
+
+Add discard_pending_rows() as an alias
+for finish() - which will be deprecated.
+
+$sth->{ParamTypes} eg { "1" => SQL_VARCHAR, "2" => { TYPE=>SQL_VARCHAR, ora_type=>99 }};
+
+$h->{KidsHandles} = ref to cache (array or hash?)
+of weakrefs to child handles.
+
+DBI::Profile: some way to get count of 'executions' only, not all method calls.
+So avg time is totaltime/executions not totaltime/methodcalls.
+
+Document DbTypeSubclass (ala DBIx::AnyDBD)
+Polish up and document _dbtype_names with an external interface and using get_info.
+
+Count do()'s and execute()s (that aren't called by do()s) in imp_dbh.
+Make available as an ExecuteCount attribute.
+Reset count in commit/rollback.
+Add InTransaction attribute that defaults to: !AutoCommit && ExecuteCount>0
+Drivers are expected to implement InTransaction if they can.
+In $dbh->DESTROY if !AutoCommit don't rollback&warning
+unless InTransaction is true.
+
+FetchHashReuse attrib (=1 or ={}) copy from dbh to sth
+and use to optimise fetchrow_hash
+
+--- Changes that may affect driver authors
 
 Add PERL_NO_GET_CONTEXT for multiplicity/threads?
-force it for drivers
-And enable xsbypass if possible.
+force it for drivers?
+And enable xsbypass in dispatch if possible.
 
-Need to add docs for DbTypeSubclass (ala DBIx::AnyDBD)
-Move TIEHASH etc to XS (and pureperl)
+Add function pointer for setting fetched field values into DBIS.
+Drivers would use this instead of calling sv_setpv (etc) themselves.
 
-$dbh->{Statement} can be wrong because fetch doesn't update value
-maybe imp_dbh holds imp_sth (or inner handle) of last sth method
-called (if not DESTROY) and sth outer DESTROY clears it (to reduce ref count)
-Then $dbh->{LastSth} would work (returning outer handle if valid).
-Then $dbh->{Statement} would be the same as $dbh->{LastSth}->{Statement}
-Also $dbh->{ParamValues} would be the same as $dbh->{LastSth}->{ParamValues}.
+Allow bind_col() \%attr to be given an integer sql type just
+like bind_param.
+
+Specify expected behaviour when using SQL_DATE (etc) type
+with bind_col and bind_param, e.g., that the string should be
+returned/given in the standard (ODBC) format for the type.
+
+Add bind_col($n, $foo, { OnFetch => sub { ... } });
+
+Add way to specify default bind_col attributes for each TYPE
+e.g.	$dbh->{BindColumnTypes} = {
+	  SQL_DATE => SQL_DATE,
+	  SQL_DATETIME => { TYPE => SQL_DATETIME, OnFetch => \&foo },
+	}
+
+Add a handle flag to say that the driver has a hash that maps error
+codes into SQLSTATE values. The error event mechanism could check for
+the flag and lookup the SQLSTATE value for the error from the hash.
+Allow code hook as well. Maybe $dbh->{SQLSTATE_map} = code or hash ref
+
+Add minimum subset of ODBC3 SQLSTATE values that should be supported
+(and corresponding ODBC2 values?)
 
 Add more macro hooks to Driver.xst: ping, quote etc.
 
-Make common data a separate SV? Or sv_grow existing imp data sv and
-place com struct at end? But both still mean com pointer is invalid after clone.
-Maybe just increase size of it and check/improve size sanity checks.
+Add dbh active checks to some more sth methods where reasonable.
+
+Rework handle creation to use methods.
+Maybe $h->new_child(\%override_attr)
+    dr::connect =>
+	$dbh = $drh->new_child(\%attr);
+	$dbh->reset(...)	- revert to 'virgin' state
+	$dbh->connect(...)
+&   db::prepare =>
+	$sth = $dbh->new_child(\%attr);
+	$sth->reset(...)	- revert to 'virgin' state
+	$sth->prepare($statement)	# once only?
+	$sth->close(???)		# to 'reset' before a different prepare()?
+need to think through prepare_cached and connect_cached
+and relationship to preparse().
 
 Sort out DBIcDBISTATE() and DBIS mess. dDBIS?
 Make it cheap to get h from imp_xxh so only imp_xxh needs
@@ -29,27 +137,41 @@ to be passed around?
 Define consise DBI<>DBD interface with view towards parrot.
 	note that parrot will use more method calls instead of
 	'sideways' hooks into DBIS and the driver C code.
-Update DBI::DBD with overview (at least) recommend Driver.xst strongly.
+DBI::DBD::Base module?
+Update DBI::DBD with overview and (at least) recommend Driver.xst strongly.
 Find XS drivers that don't use it and talk to authors.
-Ship separate DBD::TemplateP and DBD::TemplateXS drivers as examples.
 
-UTF8
+Review drivers for handling of multiple result sets
+to define common api for all.
+$sth->more_results, maybe via $sth->become($sth2) later (or transplant/swap)
+
+#define a large negative number to mean 'error' from st_execute and
+change *.xst to treat either that or -2 as an error. (The -2 is
+a transition for old drivers.)
 
-Rename finish to discard_pending_rows :-) [or just add an alias and docs :-]
-Or maybe to 'close' (the ODBC equiv - study close() options)
+--- Other changes
 
-Rework handle creation to use methods. Maybe $h->new_child(\%override_attr)
+Mechanism to 'unset' the keep_error flag for the current call, which
+could then be used by FETCH when appropriate. Or, better:
+New ima flags: CLEAR_ERR (on entry), CHECK_ERR (on exit), CHECK_NEW_ERR
+(check if error count has been incremented by set_err).
+Then FETCH would have just CHECK_NEW_ERR.
 
-    dr::connect =>
-	$dbh = $drh->new_child(\%attr);
-	$dbh->connect(...)
-and
-    db::prepare =>
-	$sth = $dbh->new_child(\%attr);
-	$sth->prepare($statement)	# once only?
-	$sth->close(???)		# to 'reset' before a different prepare()?
-need to think through prepare_cached and connect_cached
-and relationship to preparse.
+Change $h->DBI::set_err calls to $h->set_err (re subclassing etc)
+Check for other $h->DBI::foo calls
+
+Trace to tied file handle.
+
+Hooks for method entry and exit.
+
+$dbh->{Statement} can be wrong because fetch doesn't update value
+maybe imp_dbh holds imp_sth (or inner handle) of last sth method
+called (if not DESTROY) and sth outer DESTROY clears it (to reduce ref count)
+Then $dbh->{LastSth} would work (returning outer handle if valid).
+Then $dbh->{Statement} would be the same as $dbh->{LastSth}->{Statement}
+Also $dbh->{ParamValues} would be the same as $dbh->{LastSth}->{ParamValues}.
+
+Remove dummy 'Switch' driver.
 
 Sponge behave_like - generalize into new_child()
 	copy RaiseError, PrintError, HandleError etc from the specified handle
@@ -57,7 +179,18 @@ Sponge behave_like - generalize into new_child()
 	as we're acting as a proxy behind the scenes.
 	Should behave_like handle be dbh or sth or either or same as parent?
 
-Phalanx?
+Add per-handle debug file pointer:
+	NULL default => h->dbis->tracefp
+	if not NULL then dup() via PerlIO for child handles
+	close(h->tracefp) at end of DESTROY
+	macro to do (h->tracefp || h->dbis->tracefp)
+
+Move TIEHASH etc to XS (and to PurePerl)
+
+Change CachedKids to be a simple attribute cached in the handle hash
+to remove FETCH method call overhead in prepare_cached().
+
+--- Other things to consider
 
 Study alternate DBI's:
 	ruby
@@ -65,49 +198,20 @@ Study alternate DBI's:
 	php
 	others?
 	ADO object model
-identify any features we need to support and any incompatibilities etc
-
-Perhaps $h->{PrintWarn} $h->{RaiseWarn} $h->{HandleWarn}
-or better still, a more general event mechanism
-but one that makes the above very easy: $h->{HandleEvent}
-but need to classify 'events'. At least SUCCESS_WITH_INFO
-(which covers eg mysql warnings), and something for 'messages'
-from the server while executing stored procedures.
-The DBI needs some standard way to handle the 'success with info' concept:
-	$h->{HandleEvent}
-	(event_type (== SUCCESS_WITH_INFO)
-	event_msg
-	event_info	driver-specific
-	)
-
-Add per-handle debug file pointer:
-	NULL => default => DBIS->tracefp
-	if not NULL then dup() for child handles
-	close(h->tracefp) at end of DESTROY
-	macro to do (h->tracefp || DBIS->tracefp)
-Maybe also need to add locking to prevent file contents being mangled
-by multiple threads/interpreters (esp mod_perl v2 and ActivePerl)?
+identify any features we could usefully support and any incompatibilities etc
 
-Look for existing CPAN module that reblesses an object into a unique subclass
-and supports SUPER:: from that subclass up into the original class.
-In order to emulate a common perl6 implementation approach.
+Consider closer mapping to SQL3 CLI API for driver API.
 
-#define a large negative number to mean 'error' from st_execute and
-change *.xst to treat eaither that or -2 as an error. (The -2 is
-a transition for old drivers.)
+Phalanx?
 
-Remove old informix fudge in tables() (DBD::Informix now has it's own)
+=cut
 
 *** Small/quick/simple changes/checks ***
 
+fetchall_hashref for multiple keys - pending
 
-*** Assorted to-do items and random thoughts *** IN NO PARTICULAR ORDER ***
-
-Document DBIx::AnyDBD functionality into the DBI
-Polish up and document _dbtype_names with an external interface and using get_info.
-DBI->setup_driver alias for _setup_driver, and make idempotent?
 
-Limit trace array/hash dump eg return from fetchall_arrayref()
+*** Assorted to-do items and random thoughts *** IN NO PARTICULAR ORDER ***
 
 DBIx::DWIW
 
@@ -121,11 +225,23 @@ http://www.vpservices.com/jeff/programs/SQL/docs/odbc-getinfo-msdn.html
 Proxy: allow config to specify SQL to allow/deny via regexen
 Docs for connect_cached and test with proxy.
 
+Attribute to prepare() to prefer lazy-prepare,
+e.g., don't talk to server till first execute
+or a statement handle attribute is accessed.
+
+How to report error from attribute FETCH as fetch method is marked
+keep_error? Perhaps some way to make the current keep_error value
+in the dispatch code available to change (via pointer in DBIS?) so
+a method can change the value of keep_error that's used when the
+method returns.
+
 BINDING:
 
 Add to docs & tutorial re wrong bind type on a param may cause
 index to not be used! (Find real examples first)
 check using EXPLAIN SELECT * WHERE int_indexed_col='42' vs =42.
+also WHERE int_column = '01' relies on db to convert '01' to an int
+rather than convert int_colum values to strings (which wouldn't match).
 
 > And note that if you are using bind_param_inout as 'bind_param_by_ref',
 > then the $maxlen parameter is redundant.  I suspect all drivers could
@@ -144,14 +260,6 @@ OTHERS:
 Change bind_column to save the info for get_fbav to use when
 first called. Thus making bind before execute work for all drivers.
 
-Add a handle flag to say that the driver has a hash that maps error
-codes into SQLSTATE values. The error event mechanism could check for
-the flag and lookup the SQLSTATE value for the error from the hash.
-Allow code hook as well. $dbh->{SQLSTATE_map} = code or hash ref
-
-Add minimum subset of ODBC3 SQLSTATE values that should be supported
-(and corresponding ODBC2 values?)
-
 ODBC attribute defining if transactions are supported
 http://www.vpservices.com/jeff/programs/SQL/docs/odbc-getinfo-msdn.html
 
@@ -163,10 +271,6 @@ source directory containing key driver and config info.
 test suite
 http://www.mipt.sw.ru/en/products/ots/
 
-Review drivers for handling of multiple result sets
-to define common api for all.
-$sth->more_results, maybe via $sth->become($sth2) later (or transplant/swap)
-
 Add $h->swap_internal_handle($other_h)
 
 dbish - state AutoCommit status clearly at connect time.
@@ -177,54 +281,6 @@ check out http://tegan.deltanet.com/~phlip/DBUIframe.html
 
 Check DBD::Proxy connect&fetch latency (e.g. CGI use).
 
-Indentify get_info(?) to indicate if placeholders are supported.
-http://www.vpservices.com/jeff/programs/SQL/docs/odbc-getinfo-msdn.html
-
----
-> > Is there any way to know whether a particular DBD needs a separate
-> > connection for nested operations or not?
-
-Umm, it looks like $dbh->get_info(SQL_ACTIVE_STATEMENTS) would be the one.
-It defines the max number of statements that can be active on a
-the $dbh. 0 means unknown or no specific limit.
-I'll add that to the DBI and DBI spec.
-
-I think drivers that emulate multiple active statements using an
-implicit extra dbh but that can't tie the commit/rollback on the
-'parent' dbh to the child should probably still set
-SQL_ACTIVE_STATEMENTS to just 1. Or maybe 1.1, or 2. I'm open to
-suggestion on that one.
-
------------
-> > > I would prefer to set this attributes on statement level [as 
-> > > an attribute to prepare()] instead of setting it via $dbh,
-> > > but this is only a detail. 
-> > 
-> > You can set it any any level. Isn't that clear from the docs?
-> 
-> As I understand the doc, it is possible to do
-> 
->     $sth = $dbh->prepare("....");
->     $sth->execute();
->     $sth->{LongReadLen} = 80;
->     @foo = $sth->fetchrow();
->     $sth->{LongReadLen} = 4096;
->     @bar = $sth->fetchrow(); 
-> 
-> so that the fetch of the second row is done with a different 
-> {LongReadLen} value ? 
-> 
-> This sounds complicated with the current structure of DBD::Solid,
-> as I have only one buffer for the entire row allocated during
-> prepare(), but I must admit that I had no time [yet] to look 
-> into the last DBD::ODBC how you handle this case.
-
-Umm. I see what you mean. It's reasonable to assume that a driver
-will 'freeze' the value of applicable attributes at prepare or execute
-time. The driver should probably document that kind of thing.
-Clarify docs about $sth->{LongReadLen} being readonly for some drivers.
-
-
 ****** Less urgent changes ******
 
 $dbh->ping($skip_seconds) - skip the ping if ping'd less than $skip_seconds ago
@@ -239,15 +295,11 @@ datarow_array(), datarow_arrayref(), datarow_hashref()
 remove sth from prepare_cached cache.
 
 
-fetchall_hashref: may be better to call (the optimized) fetchall_arrayref
-then convert to hashes:
-	$_ = do { my %h; @h{@names} = @$_; \%h } for @$rows;
-
-
 Give handles names: $h->{Id} ?
 Useful for reporting, Multiplex, DBD::AnyData etc etc
 May become useful for weakrefs etc
 
+--- Fetch scroll and row set
 
 fetch_scroll() handling via get_fbav.
 Also add:
@@ -265,20 +317,13 @@ Give get/set access to entire rowset via method calls?
 	want to be able to plug in pre-loaded data row cache to new sth
 	so it'll return the same data.
 
-
-Maybe have fetchrow_arrayref return not a new reference to the same
-array each time, but the same reference to the same array each time.
-That would save a new/mortal/free for each row. Need to consider
-safety in case application assigns to the ref etc. Could sanity
-check in get_fbav that SvRV still points to the row array.
-But maybe it's not worth it if perl's "tmp stealing" works for refs.
-
-
 Add 'break handling' when field values change?
 Use two fbav's so 'previous record' is available.
 Define break fields and handlers.
 Call them via an alternate fetch_with_break method.
 Jan 2002: Also now see DBIx::FetchLoop (Brendan Fagan)
+Alternatively, and perferably, add sufficient hooks for this to be
+done efficiently externally.
 
 
 DBI::Profile: add simple way to normalise the sql (convert constants
@@ -288,14 +333,6 @@ which don't use placeholders. Requires preparse()?
 
 Devel::Leak
 
-$sth->{ParamTypes} eg { "1" => SQL_VARCHAR, "2" => { TYPE=>SQL_VARCHAR, ora_type=>99 }};
-
-DBI::Profile: some way to get count of 'executions' only, not all method calls.
-So avg time is totaltime/executions not totaltime/methodcalls.
-
-FetchHashReuse attrib (=1 or ={}) copy from dbh to sth.
-Record attrib STOREs so can be replayed (or use subclass?)
-
 DBI::Profile: Add calc of approx XS method call and timing overhead
 by calling perl_call("DBI::dbi_time") x100 at boot time for profile,
 and add 1/100 (x2) to each sample. Beware Win32 where resolution
@@ -309,14 +346,5 @@ So if SvNVOK is true but the value is 0 then should also do looks_like_number()
 to be sure. [Does perl's looks_like_number() do this already, if not what code do
 callers of looks_like_number() use?]
 
-Count execute()s (and do's?) in imp_dbh. Reset count in commit/rollback.
-In $dbh->DESTROY don't issue warning if count == 0.
-
-Change CachedKids to be a simple attribute cached in the handle hash
-to remove FETCH method call overhead in prepare_cached().
-
-Ability to remove an sth from the prepare_cached cache.
-	$sth->uncache;
-and	$dbh->uncache; for connect_cached
-implies duplication of key key code or iterate through cache.
+Record attrib STOREs so can be replayed (or use subclass?)
 
diff --git a/err_new/err_disconchk.msg b/err_new/err_disconchk.msg
new file mode 100644
index 00000000..dd193677
--- /dev/null
+++ b/err_new/err_disconchk.msg
@@ -0,0 +1,142 @@
+From dbi-users-return-21640-Tim.Bunce=pobox.com@perl.org  Sat Jan 17 15:09:20 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0HF9IFQ054889
+	for <timbo@localhost>; Sat, 17 Jan 2004 15:09:20 GMT
+	(envelope-from dbi-users-return-21640-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sat, 17 Jan 2004 15:09:20 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1Ahr9i-0003JP-Me;
+	Sat, 17 Jan 2004 14:10:30 +0000
+Received: from [208.210.124.70] (helo=majesty.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1Ahr9i-0003JP-Me
+	for pobox@dbi.demon.co.uk; Sat, 17 Jan 2004 14:10:30 +0000
+Received: from majesty.pobox.com (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id D76E112917
+	for <pobox@dbi.demon.co.uk>; Sat, 17 Jan 2004 09:10:28 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id 2E679128F4
+	for <Tim.Bunce@pobox.com>; Sat, 17 Jan 2004 09:10:27 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com [63.251.223.166])
+	by majesty.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Sat, 17 Jan 2004 09:10:19 -0500 (EST)
+Received: (qmail 57807 invoked by uid 1005); 17 Jan 2004 14:10:08 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 57790 invoked by uid 76); 17 Jan 2004 14:10:08 -0000
+Received: from qmailr@one.develooper.com (HELO ran-out.mx.develooper.com) (64.81.84.115) by onion.perl.org (qpsmtpd/0.26) with SMTP; Sat, 17 Jan 2004 06:10:08 -0800
+Received: (qmail 4993 invoked by uid 225); 17 Jan 2004 14:10:01 -0000
+Delivered-To: dbi-users@perl.org
+Received: (qmail 4987 invoked by uid 507); 17 Jan 2004 14:10:00 -0000
+Received: from mail07.svc.cra.dublin.eircom.net (HELO mail07.svc.cra.dublin.eircom.net) (159.134.118.23) by one.develooper.com (qpsmtpd/0.27-dev) with SMTP; Sat, 17 Jan 2004 06:09:29 -0800
+Received: (qmail 6037 messnum 914551 invoked from network[213.94.228.233/unknown]); 17 Jan 2004 14:09:25 -0000
+Received: from unknown (HELO dansat.data-plan.com) (213.94.228.233)  by mail07.svc.cra.dublin.eircom.net (qp 6037) with SMTP; 17 Jan 2004 14:09:25 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0HEApFO054421;	Sat, 17 Jan 2004 14:10:51 GMT	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id i0HEAn3s054420;	Sat, 17 Jan 2004 14:10:49 GMT
+Date: Sat, 17 Jan 2004 14:10:49 +0000
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Jonathan Leffler <jleffler@us.ibm.com>
+Cc: Tim Bunce <Tim.Bunce@pobox.com>,
+   DBI Users Mailing List <dbi-users@perl.org>,
+   Jonathan Leffler <jleffler@earthlink.net>
+Subject: Re: DBI: Why don't statement handles fail after $dbh->disconnect?
+Message-ID: <20040117141049.GA54251@dansat.data-plan.com>
+References: <20040116220814.GC43478@dansat.data-plan.com> <OF45F87E08.DED87A93-ON87256E1D.007D3EFD-88256E1D.007F88FD@us.ibm.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <OF45F87E08.DED87A93-ON87256E1D.007D3EFD-88256E1D.007F88FD@us.ibm.com>
+User-Agent: Mutt/1.4i
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-2.6 required=7.0 tests=CARRIAGE_RETURNS,DEAR_SOMEBODY,IN_REP_TO,QUOTED_EMAIL_TEXT,REFERENCES,SPAM_PHRASE_00_01,USER_AGENT,USER_AGENT_MUTT version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 3291
+Lines: 78
+
+On Fri, Jan 16, 2004 at 03:14:18PM -0800, Jonathan Leffler wrote:
+>    Sorry about a top-posted response - Lotus is what it is.
+> 
+>    So, the DBI code does not track the statement handles associated with a database handle,
+
+Does not now. Will later (using weak refs).
+
+>    and does not invalidate them when the connection is disconnected?
+
+No.
+
+>    DBD::Informix has code that invalidates the statement handles when the $dbh itself is destroyed, but
+>    that happens separately from and after the connection is broken.
+>    So, I guess I need to check whether the connection is still valid. OK...(but it is common logic for all
+>    drivers - shouldn't DBI handle it for the drivers? In v2 perhaps?)
+
+It does in some places. For example the Driver.xst code for finish()
+checks that the parent dbh of the sth is still active. I could
+extend that to some more methods.
+
+Tim.
+
+>    --
+>    Jonathan Leffler (jleffler@us.ibm.com)
+>    STSM, Informix Database Engineering, IBM Data Management
+>    4100 Bohannon Drive, Menlo Park, CA 94025
+>    Tel: +1 650-926-6921 Tie-Line: 630-6921
+>    "I don't suffer from insanity; I enjoy every minute of it!"
+> 
+>    Inactive hide details for Tim Bunce <Tim.Bunce@pobox.com>Tim Bunce <Tim.Bunce@pobox.com>
+> 
+>                Tim Bunce             To: Jonathan Leffler/Menlo Park/IBM@IBMUS                              
+>                <Tim.Bunce@pobox.com> cc: DBI Users Mailing List <dbi-users@perl.org>, Jonathan Leffler      
+>                                      <jleffler@earthlink.net>                                               
+>                01/16/2004 02:08 PM   Subject: Re: DBI: Why don't statement handles fail after               
+>                                      $dbh->disconnect?                                                      
+> 
+>    On Fri, Jan 16, 2004 at 12:21:38PM -0800, Jonathan Leffler wrote:
+>    > Dear Tim,
+>    >
+>    > Consider the following test code - using the NullP driver.
+>    >
+>    >     #!/bin/perl -w
+>    >     #
+>    >     # Test that statement handles from disconnected connections fail!
+>    >     use strict;
+>    >     use DBI;
+>    >     my $table = "dbd_tester";
+>    >     my $dbh = DBI->connect('dbi:NullP:immaterial', '', '', {RaiseError=>1});
+>    >     my $sth = $dbh->prepare(qq{INSERT INTO $table VALUES(?)});
+>    >     $dbh->disconnect;
+>    >     $sth->execute(1);
+>    >     print "** Failed to FAIL!\n";
+>    >
+>    > With both as written and with DBD::Informix replacing the NullP driver,
+>    > the code reaches that print statement, when it shouldn't, I think,
+>    > because $dbh->disconnect should have invalidated $sth.
+>    >
+>    > Is this a bug - or a feature?  And where is it a bug or feature?  DBI,
+>    > or in the drivers?
+> 
+>    It's certainly an issue in the drivers. Bug or feature is harder to say.
+> 
+>    Many would reasonably take the view that the underlying database
+>    calls would fail if the database had been disconnected. If it
+>    doesn't, well good luck to you. The disconnect should disconnect
+>    and so long as it's done that then it worked. There's no guarantee
+>    that the handle won't be usable.
+> 
+>    The docs say "The handle is of little use after disconnecting."
+> 
+>    Perhaps I should add "probably" :)
+> 
+>    Tim.
+
+
+
+
+
diff --git a/err_new/err_docsmissingexe.msg b/err_new/err_docsmissingexe.msg
new file mode 100644
index 00000000..bb71d848
--- /dev/null
+++ b/err_new/err_docsmissingexe.msg
@@ -0,0 +1,69 @@
+From nobody@fsck.com  Wed Dec  3 18:35:24 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hB3IXdo4059766
+	for <timbo@localhost>; Wed, 3 Dec 2003 18:35:24 GMT
+	(envelope-from nobody@fsck.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Wed, 03 Dec 2003 18:35:24 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1ARVYC-0004Sc-8f;
+	Wed, 03 Dec 2003 11:52:51 +0000
+Received: from [208.58.1.193] (helo=boggle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1ARVYC-0004Sc-8f
+	for pobox@dbi.demon.co.uk; Wed, 03 Dec 2003 11:52:12 +0000
+Received: from boggle.pobox.com (localhost[127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 67AF42F4793
+	for <pobox@dbi.demon.co.uk>; Wed,  3 Dec 2003 06:52:11 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost[127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 2B3092F4719
+	for <Tim.Bunce@pobox.com>; Wed,  3 Dec 2003 06:52:11 -0500 (EST)
+Received: from ran-out.mx.develooper.com (one.develooper.com[64.81.84.115])
+	by boggle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Wed,  3 Dec 2003 06:52:09 -0500 (EST)
+Received: (qmail 4197 invoked by uid 225); 3 Dec 2003 11:52:08 -0000
+Delivered-To: TIMB@cpan.org
+Received: (qmail 4182 invoked by uid 507); 3 Dec 2003 11:51:59 -0000
+Received: from pallas.eruditorum.org (HELO pallas.eruditorum.org) (63.251.136.85) by one.develooper.com (qpsmtpd/0.27-dev) with ESMTP; Wed, 03 Dec 2003 03:51:28 -0800
+Received: by pallas.eruditorum.org (Postfix, from userid 65534)	id C70F61138E; Wed,  3 Dec 2003 06:51:24 -0500 (EST)
+Subject: [cpan #4555] Missing execute in docs 
+From: "Iain Truskett via RT" <bug-DBI@rt.cpan.org>
+Reply-To: bug-DBI@rt.cpan.org
+In-Reply-To: <rt-4555@cpan>
+Message-ID: <rt-4555-13485.14.9796953036239@cpan.org>
+Precedence: bulk
+X-RT-Loop-Prevention: cpan
+RT-Ticket: cpan #4555
+Managed-by: RT 2.0.15 (http://bestpractical.com/rt/)
+RT-Originator: SPOON@cpan.org
+To: "AdminCc of cpan Ticket #4555": ;
+Date: Wed,  3 Dec 2003 06:51:24 -0500 (EST)
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=2.1 required=7.0 tests=CARRIAGE_RETURNS,IN_REP_TO,SPAM_PHRASE_01_02,TO_HAS_SPACES,TO_MALFORMED version=2.44
+Status: RO
+X-Status: A
+Content-Length: 537
+Lines: 20
+
+
+This message about DBI was sent to you by SPOON <SPOON@cpan.org> via rt.cpan.org
+
+Full context and any attached attachments can be found at:
+<URL: https://rt.cpan.org/Ticket/Display.html?id=4555 >
+
+In fetchall_hashref:
+
+  $dbh->{FetchHashKeyName} = 'NAME_lc';
+  $sth = $dbh->prepare("SELECT FOO, BAR, ID, NAME, BAZ FROM TABLE");
+  $hash_ref = $sth->fetchall_hashref('id');
+  print "Name for id 42 is $hash_ref->{42}->{name}\n";
+
+That should have an << $sth->execute; >> between the prepare and
+the fetchall_hashref.
+
+
+cheers,
+-- 
+Iain.
+
diff --git a/err_new/err_exe_for_fetch_empty.msg b/err_new/err_exe_for_fetch_empty.msg
new file mode 100644
index 00000000..c6a6720e
--- /dev/null
+++ b/err_new/err_exe_for_fetch_empty.msg
@@ -0,0 +1,61 @@
+This patch to DBI-1.40 fixes an error
+
+Can't use an undefined value as an ARRAY reference at DBI.pm line 1735
+
+when using execute_array() with zero values for a bind parameter.  It
+includes some new test cases, but not all of the new tests failed
+before.
+
+diff -ru DBI-1.40/DBI.pm DBI-1.40-new/DBI.pm
+--- DBI-1.40/DBI.pm	2004-01-08 14:03:57.000000000 +0000
++++ DBI-1.40-new/DBI.pm	2004-01-26 10:15:46.000000000 +0000
+@@ -1719,7 +1719,7 @@
+ 
+     sub execute_for_fetch {
+ 	my ($sth, $fetch_tuple_sub, $tuple_status) = @_;
+-	@$tuple_status = () if $tuple_status; # reset the status array
++	@$tuple_status = (); # reset the status array
+ 
+ 	my ($err_count, %errstr_cache);
+ 	while ( my $tuple = &$fetch_tuple_sub() ) {
+diff -ru DBI-1.40/t/15array.t DBI-1.40-new/t/15array.t
+--- DBI-1.40/t/15array.t	2003-08-20 01:15:34.000000000 +0100
++++ DBI-1.40-new/t/15array.t	2004-01-26 10:15:15.000000000 +0000
+@@ -3,7 +3,7 @@
+ use strict;
+ use Test;
+ 
+-BEGIN { plan tests => 34 }
++BEGIN { plan tests => 39 }
+ 
+ use Data::Dumper;
+ $Data::Dumper::Indent = 0;
+@@ -68,6 +68,25 @@
+ $dumped = Dumper($tuple_status);
+ ok( $dumped, "[1,1,1]");
+ 
++# --- with no values for bind params, should execute zero times
++
++@$rows = ();
++ok( $sth->execute_array( { ArrayTupleStatus => $tuple_status },
++        [], [], [], [],
++    ),
++    0);
++ok( @$rows, 0 );
++ok( @$tuple_status, 0 );
++
++# --- catch 'undefined value' bug with zero bind values
++
++@$rows = ();
++my $sth_other = $dbh->prepare("insert", {
++	rows => $rows,		# where to 'insert' (push) the rows
++	NUM_OF_PARAMS => 1,
++});
++ok( $sth_other->execute_array( {}, [] ), 0 );
++ok( @$rows, 0);
+ 
+ # --- ArrayTupleFetch code-ref tests ---
+ 
+
+-- 
+Ed Avis <avised@kbcfp.com>
diff --git a/err_new/err_ithead_clone_modglobal.msg b/err_new/err_ithead_clone_modglobal.msg
new file mode 100644
index 00000000..058c0472
--- /dev/null
+++ b/err_new/err_ithead_clone_modglobal.msg
@@ -0,0 +1,622 @@
+From stas@stason.org  Tue Jan 20 07:35:33 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0K7Z6Fj081147
+	for <timbo@localhost>; Tue, 20 Jan 2004 07:35:33 GMT
+	(envelope-from stas@stason.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 20 Jan 2004 07:35:33 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1Aikr1-0002Iu-IF;
+	Tue, 20 Jan 2004 01:38:55 +0000
+Received: from [208.58.1.193] (helo=boggle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1Aikr1-0002Iu-IF
+	for pobox@dbi.demon.co.uk; Tue, 20 Jan 2004 01:38:55 +0000
+Received: from boggle.pobox.com (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id BF366172FA
+	for <pobox@dbi.demon.co.uk>; Mon, 19 Jan 2004 20:38:54 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 85D14172E7
+	for <Tim.Bunce@pobox.com>; Mon, 19 Jan 2004 20:38:54 -0500 (EST)
+Received: from mail.logilune.com (erato.logilune.com [195.154.174.52])
+	by boggle.pobox.com (Postfix) with ESMTP
+	for <Tim.Bunce@pobox.com>; Mon, 19 Jan 2004 20:38:53 -0500 (EST)
+Received: from stason.org (localhost.logilune.com [127.0.0.1])
+	by mail.logilune.com (Postfix) with ESMTP
+	id 9C2EB78D14; Tue, 20 Jan 2004 02:38:50 +0100 (CET)
+Message-ID: <400C86A8.8020504@stason.org>
+Date: Mon, 19 Jan 2004 17:38:48 -0800
+From: Stas Bekman <stas@stason.org>
+Organization: Hope, Humanized
+User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031010
+X-Accept-Language: en-us, en, he, ru
+MIME-Version: 1.0
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Cc: dbi-users@perl.org
+Subject: Re: Proxy: (Fwd) [patch] make Storable thread-safe
+References: <20040119122323.GJ70289@dansat.data-plan.com>
+In-Reply-To: <20040119122323.GJ70289@dansat.data-plan.com>
+Content-Type: text/plain; charset=us-ascii; format=flowed
+Content-Transfer-Encoding: 7bit
+Status: RO
+Content-Length: 1076
+Lines: 25
+
+Tim Bunce wrote:
+> This is relevant to any brave people trying to use DBD::Proxy or
+> DBI::ProxyServer on unix in threaded mode or windows (where threads
+> are used to emulate forks).
+
+Not because they use Storable, but because they need to be aware of the 
+PL_modglobal issues on perl_clone? In which case they probably should read 
+Jan's original notes:
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-12/msg00994.html
+
+> p.s. Thanks Stas!
+
+;)
+
+I'm still collecting bits and showcases and once I'm done I'll publish an 
+article on this topic. I still have a few unresolved mysteries in mp2 
+connected to the perl_clone issue, as they happen only on win32 and i'm 
+running on linux, I'm not very advancing at guessing the cause.
+
+__________________________________________________________________
+Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
+http://stason.org/     mod_perl Guide ---> http://perl.apache.org
+mailto:stas@stason.org http://use.perl.org http://apacheweek.com
+http://modperlbook.org http://apache.org   http://ticketmaster.com
+
+
+From dbi-users-return-21628-Tim.Bunce=pobox.com@perl.org  Fri Jan 16 14:58:56 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0GEwPFl040187
+	for <timbo@localhost>; Fri, 16 Jan 2004 14:58:55 GMT
+	(envelope-from dbi-users-return-21628-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 16 Jan 2004 14:58:55 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AhV4F-0001m7-DH;
+	Fri, 16 Jan 2004 14:35:23 +0000
+Received: from [207.8.214.3] (helo=puzzle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AhV4F-0001m7-DH
+	for pobox@dbi.demon.co.uk; Fri, 16 Jan 2004 14:35:23 +0000
+Received: from puzzle.pobox.com (localhost [127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id AB74A361CC
+	for <pobox@dbi.demon.co.uk>; Fri, 16 Jan 2004 09:35:22 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id 8E85936185
+	for <Tim.Bunce@pobox.com>; Fri, 16 Jan 2004 09:35:22 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com [63.251.223.166])
+	by puzzle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Fri, 16 Jan 2004 09:35:19 -0500 (EST)
+Received: (qmail 77666 invoked by uid 1005); 16 Jan 2004 14:35:16 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 77647 invoked by uid 76); 16 Jan 2004 14:35:16 -0000
+Received: from qmailr@one.develooper.com (HELO ran-out.mx.develooper.com) (64.81.84.115) by onion.perl.org (qpsmtpd/0.26) with SMTP; Fri, 16 Jan 2004 06:35:16 -0800
+Received: (qmail 22234 invoked by uid 225); 16 Jan 2004 14:35:13 -0000
+Delivered-To: dbi-users@perl.org
+Received: (qmail 22222 invoked by uid 507); 16 Jan 2004 14:35:12 -0000
+Received: from uk.radan.com (HELO styx.radan.com) (195.166.67.76) by one.develooper.com (qpsmtpd/0.27-dev) with SMTP; Fri, 16 Jan 2004 06:34:41 -0800
+Received: from unknown(195.166.67.78) by styx.radan.com via csmap 	 id 6e4cddf0_4831_11d8_8d7d_0002b3cb43e0_7294;	Fri, 16 Jan 2004 14:36:55 +0000 (GMT)
+Organisation: Radan Computational Ltd., Bath, UK.
+Phone: +44 1225 320320   Fax: +44 1225 320311
+Web: http://www.radan.com/
+Received: from uk.radan.com (tangaroa.uk.radan.com [172.16.50.61])	by sockeye.uk.radan.com (8.9.1b+Sun/8.9.1) with ESMTP id OAA28946;	Fri, 16 Jan 2004 14:32:20 GMT
+Message-ID: <4007F6CC.2000909@uk.radan.com>
+Date: Fri, 16 Jan 2004 14:35:56 +0000
+From: Steve Hay <steve.hay@uk.radan.com>
+User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
+X-Accept-Language: en-gb, en, en-us
+MIME-Version: 1.0
+To: Kurt George Gjerde <kurt.gjerde@intermedia.uib.no>
+Cc: dev@perl.apache.org, dbi-users@perl.org
+Subject: Re: [mp2] DBI failing thread test (win32)
+References: <4007C386.4030604@intermedia.uib.no>
+In-Reply-To: <4007C386.4030604@intermedia.uib.no>
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+X-NAIMIME-Disclaimer: 1
+X-NAIMIME-Modified: 1
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-1.4 required=7.0 tests=CARRIAGE_RETURNS,EXCUSE_16,IN_REP_TO,QUOTED_EMAIL_TEXT,REFERENCES,SPAM_PHRASE_05_08,SUPERLONG_LINE,USER_AGENT,USER_AGENT_MOZILLA_UA,X_ACCEPT_LANG version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 5019
+Lines: 158
+
+[I'm posting this to dbi-users for their attention too, since the second 
+test script at least looks like a DBI/DBD problem, definitely not mod_perl.]
+
+Hi Kurt,
+
+Kurt George Gjerde wrote:
+
+>Hi,
+>
+>Not really mod_perl but maybe the same issues as the recent Storable. 
+>This was experienced on win32 with the following line-up: Apache/2.0.48 
+>(Win32) mod_perl/1.99_12-dev Perl/v5.8.2 + DBI/v1.39 DBD/mysql/v2.9002.
+>
+>The DBI_01.pm (mp2 handler) below complains about "Attempt to free 
+>unreferenced scalar: SV 0x280bac00 at E:/usr/site/lib/DBI.pm line 626" 
+>under "heavy" load (try 'ab -n 100 -c 5' or more).
+>
+I had to try a much heavier load than that to break it ("ab -n 1000 -c 
+100" did the trick), but I don't see the error anywhere -- just a popup 
+application window.
+
+Here's the stack trace (I'm using apache-2.0.48, perl-5.8.3-RC1, 
+DBI-1.40, DBD-mysql-2.9003):
+=====
+apr_pollset_add(apr_pollset_t * 0x00000000, const apr_pollfd_t * 
+0x0012f9f8) line 384 + 6 bytes
+write_request(connection * 0x00910068) line 803
+start_connect(connection * 0x00910068) line 1285 + 9 bytes
+test() line 1671 + 23 bytes
+main(int 6, const char * const * 0x00322520) line 2191
+mainCRTStartup() line 338 + 17 bytes
+KERNEL32! 77e814c7()
+=====
+
+This is a different failure to the others.  It could just be an 
+out-of-memory error (although I don't see any tasks eating significant 
+chunks of memory in Task Manager)?
+
+>
+>I was unable to recreate the same warnings outside mod_perl 
+>(dbi_01_test.pl) but got "free to wrong pool" and segfault instead. This 
+>is just by opening and closing a connection so it's a bit strange, since 
+>I can do this inside mp2 without any complaints (except when there's 
+>many threads operating).
+>
+>You need to put in your own db details in order for these tests to work 
+>(I used the mysql driver so it may also be specific to that one). Steve, 
+>do you have any chance to test this?
+>
+dbi_01_test.pl does fail for me in the same way that you describe.  It 
+looks like the usual problem this time too:
+
+=====
+VMem::Free(void * 0x019c0fa0) line 208 + 3 bytes
+CPerlHost::Free(void * 0x019c0fa0) line 59 + 34 bytes
+PerlMemFree(IPerlMem * 0x00222434, void * 0x019c0fa0) line 302
+Perl_safesysfree(void * 0x019c0fa0) line 140 + 26 bytes
+perl_destruct(interpreter * 0x0022425c) line 544 + 20 bytes
+RunPerl(int 2, char * * 0x00223da8, char * * 0x00222c58) line 206 + 12 bytes
+main(int 2, char * * 0x00223da8, char * * 0x00222c58) line 18 + 18 bytes
+PERL! mainCRTStartup + 227 bytes
+KERNEL32! 77e814c7()
+=====
+
+- Steve
+
+>
+>BTW: I also found threading problems with XML::LibXML and was able to 
+>reproduce it in pure perl (generating "free to wrong pool" and "attempt 
+>to free unreferenced scalar"). I've posted this to the perl-xml list. 
+>Looks like this is a win32 specific problem as well. 
+>http://aspn.activestate.com/ASPN/Mail/Message/perl-xml/1972902
+>
+>
+>-Kurt.
+>
+>
+>- dbi_01_test.pl (pure perl) -
+>
+>   #!/usr/bin/perl
+>   use strict;
+>   use threads;
+>   use DBI;
+>
+>   my $DB_DATASOURCE = 'your_datasource';
+>   my $DB_USER       = 'username';
+>   my $DB_PASSWORD   = 'password';
+>
+>   my $t1 = threads->new(\&dbsub);
+>   $t1->join();
+>
+>   sub dbsub {
+>     my $dbh = DBI->connect( $DB_DATASOURCE, $DB_USER, $DB_PASSWORD );
+>     $dbh->disconnect();
+>   }
+>   __END__
+>
+>
+>- DBI_01.pm (mp2 handler) -
+>
+>   package MyApache::Test::DBI_01;
+>
+>   use strict;
+>   use warnings FATAL => 'all', NONFATAL => 'redefine';
+>   use Apache::Const -compile => qw(OK);
+>   use Apache::Log;
+>   use DBI;
+>
+>   my $DB_DATASOURCE = 'your_datasource';
+>   my $DB_USER       = 'username';
+>   my $DB_PASSWORD   = 'password';
+>
+>   my $I;
+>   my $DBH;
+>
+>   sub handler {
+>     my $r = shift;
+>     my $data = {};
+>     $I++;
+>     print "DBI_01 [$I]\n";
+>
+>     unless ($DBH) {
+>       $DBH = DBI->connect( $DB_DATASOURCE, $DB_USER, $DB_PASSWORD );
+>     }
+>
+>     unless ($DBH) {
+>       $r->log_error(__PACKAGE__ . ': ' . $DBI::errstr);
+>       print "FAILED!\n";
+>     } else {
+>       print "OK\n";
+>
+>       my $sth = $DBH->prepare("select * from session");
+>       $sth->execute();
+>       print $sth->rows() . "\n";
+>       $sth->finish();
+>
+>     }
+>
+>     print "done.\n";
+>     return Apache::OK;
+>   }
+>   1;
+>   __END__
+>
+>
+>
+>
+>  
+>
+
+
+
+
+------------------------------------------------
+Radan Computational Ltd.
+
+The information contained in this message and any files transmitted with it are confidential and intended for the addressee(s) only.  If you have received this message in error or there are any problems, please notify the sender immediately.  The unauthorized use, disclosure, copying or alteration of this message is strictly forbidden.  Note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of Radan Computational Ltd.  The recipient(s) of this message should check it and any attached files for viruses: Radan Computational will accept no liability for any damage caused by any virus transmitted by this email.
+
+
+From jand@ActiveState.com  Wed Jan 28 07:55:38 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0S7Xi7i041218
+	for <timbo@localhost>; Wed, 28 Jan 2004 07:55:38 GMT
+	(envelope-from jand@ActiveState.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Wed, 28 Jan 2004 07:55:38 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1Alhia-0001KR-Jv;
+	Wed, 28 Jan 2004 04:54:24 +0000
+Received: from [208.58.1.193] (helo=boggle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1Alhia-0001KR-Jv
+	for pobox@dbi.demon.co.uk; Wed, 28 Jan 2004 04:54:24 +0000
+Received: from boggle.pobox.com (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 2AC6729A22
+	for <pobox@dbi.demon.co.uk>; Tue, 27 Jan 2004 23:54:23 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 7E2C329AB5
+	for <Tim.Bunce@pobox.com>; Tue, 27 Jan 2004 23:54:21 -0500 (EST)
+Received: from smtp2.ActiveState.com (gw.activestate.com [209.17.183.249])
+	by boggle.pobox.com (Postfix) with ESMTP
+	for <Tim.Bunce@pobox.com>; Tue, 27 Jan 2004 23:53:46 -0500 (EST)
+Received: from smtp3.ActiveState.com (latte.ActiveState.com [192.168.4.252] (may be forged))
+	by smtp2.ActiveState.com (8.12.10/8.12.10) with ESMTP id i0S4LekK020310;
+	Tue, 27 Jan 2004 20:24:09 -0800
+	(envelope-from jand@ActiveState.com)
+Received: from tofino.activestate.com (tofino.activestate.com [192.168.3.138])
+	by smtp3.ActiveState.com (8.12.9/8.12.9) with SMTP id i0S3WcQN010543;
+	Tue, 27 Jan 2004 19:32:38 -0800
+From: Jan Dubois <jand@ActiveState.com>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Cc: Steve Hay <steve.hay@uk.radan.com>
+Subject: Re: [mp2] DBI failing thread test (win32)
+Date: Tue, 27 Jan 2004 19:32:38 -0800
+Message-ID: <h9ae1019k89h7hpe54u2gsm548pp36nf7v@4ax.com>
+References: <20040126T104807sgoeldner@cpan.org> <i3ra1010hs5cfdkbig2r5pi8fbhsek8e88@4ax.com> <4007F6CC.2000909@uk.radan.com> <20040127224913.GE38394@dansat.data-plan.com>
+In-Reply-To: <20040127224913.GE38394@dansat.data-plan.com>
+X-Mailer: Forte Agent 1.8/32.548
+MIME-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Transfer-Encoding: 7bit
+Status: RO
+X-Status: A
+Content-Length: 2454
+Lines: 85
+
+On Tue, 27 Jan 2004 22:49:13 +0000, Tim Bunce <Tim.Bunce@pobox.com>
+wrote:
+
+Hi Tim,
+
+>Any chance you could take a look at the DBI.xs code in relation to
+>the issues you described here:
+>
+>http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-12/msg00994.html
+>
+>The PL_modglobal code, around line 150, was originally contributed
+>by ActiveState (Murray Nesbitt) and I've no way to check it but it
+>looks like there may be issues:
+
+I looked at the DBI code a bit, and I _think_ the PL_modglobal code
+should be working correctly.  When an interpreter is cloned, DBI->CLONE
+is invoked, which in turn will call _clone_dbis().  That one calls
+dbi_bootinit() which reinitializes the PL_modglobal entry via
+INIT_PERINTERP.  So each interpreter should end up with its own data
+area allocated from the correct pool.
+
+>http://www.mail-archive.com/dev@perl.apache.org/msg06050.html
+
+>A patch would be wonderful, but failing that some detailed directions
+>would be great.
+>
+>Any chance you can help?
+
+Could you try the PERL_TRACK_MEMPOOL patch I sent last week or so to
+p5p?  That should allow you to reproduce the problem on Unix too (if you
+use threading).  If you then just use the part of my second patch that
+changes SV allocation from using the arenas to always allocating from
+the heap, then you _might_ catch the wrong allocation at an earlier
+point.  Don't bother with any other bits from my second patch as it is
+very experimental and doesn't work quite right.
+
+I can't find those messages in the xray archive, but they seem to be on
+ASPN (but mangled by HTML conversion):
+
+http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/1979065
+
+The second one is this one:
+
+http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/1979886
+
+The only part that you should use are the first 2 hunks from sv.c:
+
+diff -u sv.c.orig sv.c
+--- sv.c.orig	Mon Jan 19 19:45:53 2004
++++ sv.c	Thu Jan 22 11:18:24 2004
+@@ -170,6 +170,21 @@
+     } STMT_END
+ 
+ 
++#if defined(PERL_IMPLICIT_CONTEXT) && defined(PERL_TRACK_MEMPOOL)
++STATIC SV*
++S_new_SV()
++{
++    SV* sv = safemalloc(sizeof(SV));
++    SvANY(sv) = 0;
++    SvREFCNT(sv) = 1;
++    SvFLAGS(sv) = 0;
++    return sv;
++}
++
++#  define new_SV(p) (p)=S_new_SV()
++#  define del_SV(p) safefree((char*)p)
++#else
++
+ /* new_SV(): return a new, empty SV head */
+ 
+ #ifdef DEBUG_LEAKING_SCALARS
+@@ -253,6 +268,7 @@
+ 
+ #endif /* DEBUGGING */
+ 
++#endif
+ 
+ /*
+ =head1 SV Manipulation Functions
+End of patch
+
+Cheers,
+-Jan
+
+
+From steve.hay@uk.radan.com  Wed Jan 28 14:32:31 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0SETi3o044424
+	for <timbo@localhost>; Wed, 28 Jan 2004 14:32:31 GMT
+	(envelope-from steve.hay@uk.radan.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Wed, 28 Jan 2004 14:32:31 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AllpJ-0006xF-Jt;
+	Wed, 28 Jan 2004 09:17:39 +0000
+Received: from [208.58.1.193] (helo=boggle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AllpJ-0006xF-Jt
+	for pobox@dbi.demon.co.uk; Wed, 28 Jan 2004 09:17:37 +0000
+Received: from boggle.pobox.com (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 437BA2ADA4
+	for <pobox@dbi.demon.co.uk>; Wed, 28 Jan 2004 04:17:36 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 6B2752A5D1
+	for <Tim.Bunce@pobox.com>; Wed, 28 Jan 2004 04:17:34 -0500 (EST)
+Received: from styx.radan.com (uk.radan.com [217.205.167.84])
+	by boggle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Wed, 28 Jan 2004 04:16:52 -0500 (EST)
+Received: from unknown(217.205.167.82) by styx.radan.com via csmap 
+	 id f967c5b8_5172_11d8_914c_0002b3cb43e0_7153;
+	Wed, 28 Jan 2004 09:18:46 +0000 (GMT)
+Organisation: Radan Computational Ltd., Bath, UK.
+Phone: +44 1225 320320   Fax: +44 1225 320311
+Web: http://www.radan.com/
+Received: from uk.radan.com (tangaroa.uk.radan.com [172.16.50.61])
+	by sockeye.uk.radan.com (8.9.1b+Sun/8.9.1) with ESMTP id JAA27529;
+	Wed, 28 Jan 2004 09:13:44 GMT
+Message-ID: <40177E26.8070302@uk.radan.com>
+Date: Wed, 28 Jan 2004 09:17:26 +0000
+From: Steve Hay <steve.hay@uk.radan.com>
+User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
+X-Accept-Language: en-gb, en, en-us
+MIME-Version: 1.0
+To: Jan Dubois <jand@ActiveState.com>
+Cc: Tim Bunce <Tim.Bunce@pobox.com>, rlippan@remotelinux.com
+Subject: Re: [mp2] DBI failing thread test (win32)
+References: <20040126T104807sgoeldner@cpan.org> <i3ra1010hs5cfdkbig2r5pi8fbhsek8e88@4ax.com> <4007F6CC.2000909@uk.radan.com> <20040127224913.GE38394@dansat.data-plan.com> <h9ae1019k89h7hpe54u2gsm548pp36nf7v@4ax.com>
+In-Reply-To: <h9ae1019k89h7hpe54u2gsm548pp36nf7v@4ax.com>
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+X-NAIMIME-Disclaimer: 1
+X-NAIMIME-Modified: 1
+Status: RO
+Content-Length: 4684
+Lines: 140
+
+Hi All,
+
+I now believe that it could be the DBD-mysql driver, rather than DBI 
+itself, which might have a problem with threads on Win32, hence I'm 
+copying Rudy Lippan too.
+
+When I originally tried the DBI test program that fails under a threaded 
+Perl on Win32 (the first test program posted here: 
+http://www.mail-archive.com/dev@perl.apache.org/msg06050.html), I was 
+using the DBD-mysql driver.  As I said in that mail, I was able to 
+reproduce the "Free to wrong pool" problem.
+
+In the light of Jan's comments below that DBI itself should be OK, I've 
+tried the same test program again using a different DBD driver.  Using 
+DBD-ODBC on an ODBC data source which accesses the same MySQL database 
+as the same user, the test program no longer fails.
+
+My setup:  WinXP SP1, MSVC++ 6 SP5, Perl 5.8.3, DBI 1.40, MySQL 
+4.0.16-max-nt, DBD-mysql 2.9003, MyODBC 3.5106, DBD-ODBC 1.06.
+
+Rudy, is there any chance you could have a look at this too?  Jan's 
+PERL_TRACK_MEMPOOL patch referred to below should help you reproduce the 
+problem in non-Microsoft land if you don't have a Win32 machine available.
+
+Here's a link to Jan's patch on the xray archive (which doesn't 
+HTML-mangle things like the ASPN archive does): 
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2004-01/msg00748.html
+
+Cheers,
+- Steve
+
+
+Jan Dubois wrote:
+
+>On Tue, 27 Jan 2004 22:49:13 +0000, Tim Bunce <Tim.Bunce@pobox.com>
+>wrote:
+>
+>Hi Tim,
+>
+>  
+>
+>>Any chance you could take a look at the DBI.xs code in relation to
+>>the issues you described here:
+>>
+>>http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-12/msg00994.html
+>>
+>>The PL_modglobal code, around line 150, was originally contributed
+>>by ActiveState (Murray Nesbitt) and I've no way to check it but it
+>>looks like there may be issues:
+>>    
+>>
+>
+>I looked at the DBI code a bit, and I _think_ the PL_modglobal code
+>should be working correctly.  When an interpreter is cloned, DBI->CLONE
+>is invoked, which in turn will call _clone_dbis().  That one calls
+>dbi_bootinit() which reinitializes the PL_modglobal entry via
+>INIT_PERINTERP.  So each interpreter should end up with its own data
+>area allocated from the correct pool.
+>
+>  
+>
+>>http://www.mail-archive.com/dev@perl.apache.org/msg06050.html
+>>    
+>>
+>
+>  
+>
+>>A patch would be wonderful, but failing that some detailed directions
+>>would be great.
+>>
+>>Any chance you can help?
+>>    
+>>
+>
+>Could you try the PERL_TRACK_MEMPOOL patch I sent last week or so to
+>p5p?  That should allow you to reproduce the problem on Unix too (if you
+>use threading).  If you then just use the part of my second patch that
+>changes SV allocation from using the arenas to always allocating from
+>the heap, then you _might_ catch the wrong allocation at an earlier
+>point.  Don't bother with any other bits from my second patch as it is
+>very experimental and doesn't work quite right.
+>
+>I can't find those messages in the xray archive, but they seem to be on
+>ASPN (but mangled by HTML conversion):
+>
+>http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/1979065
+>
+>The second one is this one:
+>
+>http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/1979886
+>
+>The only part that you should use are the first 2 hunks from sv.c:
+>
+>diff -u sv.c.orig sv.c
+>--- sv.c.orig	Mon Jan 19 19:45:53 2004
+>+++ sv.c	Thu Jan 22 11:18:24 2004
+>@@ -170,6 +170,21 @@
+>     } STMT_END
+> 
+> 
+>+#if defined(PERL_IMPLICIT_CONTEXT) && defined(PERL_TRACK_MEMPOOL)
+>+STATIC SV*
+>+S_new_SV()
+>+{
+>+    SV* sv = safemalloc(sizeof(SV));
+>+    SvANY(sv) = 0;
+>+    SvREFCNT(sv) = 1;
+>+    SvFLAGS(sv) = 0;
+>+    return sv;
+>+}
+>+
+>+#  define new_SV(p) (p)=S_new_SV()
+>+#  define del_SV(p) safefree((char*)p)
+>+#else
+>+
+> /* new_SV(): return a new, empty SV head */
+> 
+> #ifdef DEBUG_LEAKING_SCALARS
+>@@ -253,6 +268,7 @@
+> 
+> #endif /* DEBUGGING */
+> 
+>+#endif
+> 
+> /*
+> =head1 SV Manipulation Functions
+>End of patch
+>
+>Cheers,
+>-Jan
+>
+
+
+
+
+------------------------------------------------
+Radan Computational Ltd.
+
+The information contained in this message and any files transmitted with it are confidential and intended for the addressee(s) only.  If you have received this message in error or there are any problems, please notify the sender immediately.  The unauthorized use, disclosure, copying or alteration of this message is strictly forbidden.  Note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of Radan Computational Ltd.  The recipient(s) of this message should check it and any attached files for viruses: Radan Computational will accept no liability for any damage caused by any virus transmitted by this email.
+
+
diff --git a/err_new/err_leaktracking.msg b/err_new/err_leaktracking.msg
new file mode 100644
index 00000000..f84da013
--- /dev/null
+++ b/err_new/err_leaktracking.msg
@@ -0,0 +1,315 @@
+From perl5-porters-return-86361-Tim.Bunce=pobox.com@perl.org  Tue Dec 16 07:36:43 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hBG7XIod085726
+	for <timbo@localhost>; Tue, 16 Dec 2003 07:36:42 GMT
+	(envelope-from perl5-porters-return-86361-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 16 Dec 2003 07:36:42 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AW823-0002M7-FV;
+	Tue, 16 Dec 2003 05:46:08 +0000
+Received: from [207.8.214.3] (helo=puzzle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AW823-0002M7-FV
+	for pobox@dbi.demon.co.uk; Tue, 16 Dec 2003 05:46:07 +0000
+Received: from puzzle.pobox.com (localhost[127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id 9BC4D16D79B
+	for <pobox@dbi.demon.co.uk>; Tue, 16 Dec 2003 00:46:06 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost[127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id 5115316CB8A
+	for <Tim.Bunce@pobox.com>; Tue, 16 Dec 2003 00:46:06 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com[63.251.223.166])
+	by puzzle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Tue, 16 Dec 2003 00:46:04 -0500 (EST)
+Received: (qmail 33976 invoked by uid 1005); 16 Dec 2003 05:45:58 -0000
+Mailing-List: contact perl5-porters-help@perl.org; run by ezmlm
+Precedence: bulk
+list-help: <mailto:perl5-porters-help@perl.org>
+list-unsubscribe: <mailto:perl5-porters-unsubscribe@perl.org>
+list-post: <mailto:perl5-porters@perl.org>
+X-List-Archive: <http://nntp.perl.org/group/perl.perl5.porters/86361>
+Delivered-To: mailing list perl5-porters@perl.org
+Received: (qmail 33954 invoked by uid 76); 16 Dec 2003 05:45:58 -0000
+Delivered-To: perl5-porters@perl.org
+Message-ID: <3FDE9DCA.3050603@stason.org>
+Date: Mon, 15 Dec 2003 21:53:14 -0800
+From: Stas Bekman <stas@stason.org>
+Organization: Hope, Humanized
+User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030630
+X-Accept-Language: en-us, en, he, ru
+MIME-Version: 1.0
+To: The Perl5 Porters Mailing List <perl5-porters@perl.org>
+Subject: regex memory leak introduced in 5.8.1
+Content-Type: text/plain; charset=us-ascii; format=flowed
+Content-Transfer-Encoding: 7bit
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-3.2 required=7.0 tests=CARRIAGE_RETURNS,NOSPAM_INC,PERLBUG_CONF,SPAM_PHRASE_00_01,USER_AGENT,USER_AGENT_MOZILLA_UA,WEIRD_PORT,X_ACCEPT_LANG version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 7029
+Lines: 262
+
+I've spent a long time trying to find a bad memory leak in Apache::VMonitor. 
+Finally I was successful at it. The memory leak is in Perl regex s///. It was 
+introduced in 5.8.1 and exists in maint/blead perls. It doesn't exist in 5.6.2 
+or 5.8.0.
+
+Here is a simple script that reproduces the leak. If you don't have GTop, 
+comment out the code related to it and uncomment the Devel::Leak code
+
+use GTop ();
+use Devel::Leak;
+
+my $gtop = GTop->new;
+my @attrs = qw(size vsize resident share rss);
+
+my $url = 
+'http://localhost:8529/vmonitor?pid=0&verbose=0&apache=0&apache_sort_by_ascend=0&refresh=0&system=0&procs=1&fs_usage=1&mount=1&apache_sort_by=size';
+
+for (0..10) {
+     warn "\n$_\n";
+
+     my $before = $gtop->proc_mem($$);
+     my %before = map { $_ => $before->$_() } @attrs;
+
+     #my $handle;
+     #my $count = Devel::Leak::NoteSV($handle);
+     {
+         my $x = fixup_url(refresh => 5);
+         my $y = fixup_url(pid     => 123);
+     }
+     #Devel::Leak::CheckSV($handle);
+
+     my $after = $gtop->proc_mem($$);
+     my %after = map {$_ => $after->$_()} @attrs;
+     warn sprintf "%-10s : %-5s\n", $_,
+         GTop::size_string($after{$_} - $before{$_}),
+               for sort @attrs;
+}
+
+sub fixup_url {
+     my(%pairs) = @_;
+
+     my $new_url = $url;
+     while (my($k, $v) = each %pairs) {
+         $new_url =~ s/$k=([^&]+)?/$k=$v/;
+     }
+}
+
+Notice that the function fixup_url() doesn't return anything so it should 
+dispose any temporaries at the end of its execution.
+
+Here is what gtop reports:
+
+0
+resident   :    4k
+rss        :    8k
+share      :    4k
+size       :    4k
+vsize      :    0k
+
+1
+resident   :    0k
+rss        :    0k
+share      :    0k
+size       :    0k
+vsize      :    0k
+
+2
+resident   :    0k
+rss        :    0k
+share      :    0k
+size       :    0k
+vsize      :    0k
+
+3
+resident   :    4k
+rss        :    4k
+share      :    0k
+size       :    4k
+vsize      :    0k
+
+4
+resident   :    0k
+rss        :    0k
+share      :    0k
+size       :    0k
+vsize      :    0k
+
+5
+resident   :    4k
+rss        :    4k
+share      :    0k
+size       :    4k
+vsize      :    0k
+
+6
+resident   :    0k
+rss        :    0k
+share      :    0k
+size       :    0k
+vsize      :    0k
+
+7
+resident   :    4k
+rss        :    4k
+share      :    0k
+size       :    4k
+vsize      :    0k
+
+8
+resident   :    0k
+rss        :    0k
+share      :    0k
+size       :    0k
+vsize      :    0k
+
+9
+resident   :    4k
+rss        :    4k
+share      :    0k
+size       :    4k
+vsize      :    0k
+
+10
+resident   :    0k
+rss        :    0k
+share      :    0k
+size       :    0k
+vsize      :    0k
+
+as you can see every few cycles more memory was consumed. If you comment out 
+the regex, no memory leak occurs.
+
+Here it Devel::Leak's report for one cycle:
+
+new 0x80f8874 : SV = PVBM(0x80fb548) at 0x80f8874
+   REFCNT = 1
+   FLAGS = (SMG,POK,pPOK,VALID)
+   UV = 0
+   NV = 0
+   PV = 0x80f9510 "pid="\0
+   CUR = 4
+   LEN = 262
+   MAGIC = 0x80f9620
+     MG_VIRTUAL = &PL_vtbl_bm
+     MG_TYPE = PERL_MAGIC_bm(B)
+new 0x80f8880 : SV = PVAV(0x80f916c) at 0x80f8880
+   REFCNT = 1
+   FLAGS = ()
+   IV = 0
+   NV = 0
+   ARRAY = 0x80f8f90
+   FILL = 2
+   MAX = 3
+   ARYLEN = 0x0
+   FLAGS = (REAL)
+new 0x805dd80 : SV = PV(0x80db420) at 0x805dd80
+   REFCNT = 1
+   FLAGS = (POK,pPOK)
+   PV = 0x80f8db8 "# comment\12"\0
+   CUR = 10
+   LEN = 11
+new 0x805ddc8 : SV = RV(0x808d9e8) at 0x805ddc8
+   REFCNT = 1
+   FLAGS = (ROK)
+   RV = 0x805ddd4
+new 0x805ddd4 : SV = PVAV(0x80e267c) at 0x805ddd4
+   REFCNT = 1
+   FLAGS = ()
+   IV = 0
+   NV = 0
+   ARRAY = 0x80f8d28
+   FILL = 2
+   MAX = 3
+   ARYLEN = 0x0
+   FLAGS = (REAL)
+new 0x805de58 : SV = PVBM(0x80fb520) at 0x805de58
+   REFCNT = 1
+   FLAGS = (SMG,POK,pPOK,VALID)
+   UV = 0
+   NV = 0
+   PV = 0x80f8dc8 "refresh="\0
+   CUR = 8
+   LEN = 266
+   MAGIC = 0x80f8ed8
+     MG_VIRTUAL = &PL_vtbl_bm
+     MG_TYPE = PERL_MAGIC_bm(B)
+new 0x805dec4 : SV = PV(0x80db414) at 0x805dec4
+   REFCNT = 1
+   FLAGS = (POK,pPOK)
+   PV = 0x80fd540 "# comment\12"\0
+   CUR = 10
+   LEN = 11
+new 0x805df0c : SV = RV(0x808d9ec) at 0x805df0c
+   REFCNT = 1
+   FLAGS = (ROK)
+   RV = 0x80f8880
+
+----
+
+Summary of my perl5 (revision 5.0 version 8 subversion 2) configuration:
+   Platform:
+     osname=linux, osvers=2.4.22-10mdk, archname=i686-linux-thread-multi
+     uname='linux rabbit.stason.org 2.4.22-10mdk #1 thu sep 18 12:30:58 cest 
+2003 i686 unknown unknown gnulinux '
+     config_args='-des -Dprefix=/home/stas/perl/5.8.3-ithread -Dusethreads 
+-Doptimize=-g -Duseshrplib -Dusedevel'
+     hint=recommended, useposix=true, d_sigaction=define
+     usethreads=define use5005threads=undef useithreads=define 
+usemultiplicity=define
+     useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
+     use64bitint=undef use64bitall=undef uselongdouble=undef
+     usemymalloc=n, bincompat5005=undef
+   Compiler:
+     cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS 
+-DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE 
+-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
+     optimize='-g',
+     cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING 
+-fno-strict-aliasing -I/usr/local/include -I/usr/include/gdbm'
+     ccversion='', gccversion='3.3.1 (Mandrake Linux 9.2 3.3.1-4mdk)', 
+gccosandvers=''
+     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
+     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
+     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', 
+lseeksize=8
+     alignbytes=4, prototype=define
+   Linker and Libraries:
+     ld='cc', ldflags =' -L/usr/local/lib'
+     libpth=/usr/local/lib /lib /usr/lib
+     libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
+     perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
+     libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, libperl=libperl.so
+     gnulibc_version='2.3.2'
+   Dynamic Linking:
+     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic 
+-Wl,-rpath,/home/stas/perl/5.8.3-ithread/lib/5.8.2/i686-linux-thread-multi/CORE'
+     cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
+
+
+Characteristics of this binary (from libperl):
+   Compile-time options: DEBUGGING MULTIPLICITY USE_ITHREADS USE_LARGE_FILES 
+PERL_IMPLICIT_CONTEXT
+   Locally applied patches:
+         MAINT21829
+   Built under linux
+   Compiled at Dec 12 2003 08:08:24
+   %ENV:
+     PERLDOC_PAGER="less -R"
+   @INC:
+     /home/stas/perl/5.8.3-ithread/lib/5.8.2/i686-linux-thread-multi
+     /home/stas/perl/5.8.3-ithread/lib/5.8.2
+     /home/stas/perl/5.8.3-ithread/lib/site_perl/5.8.2/i686-linux-thread-multi
+     /home/stas/perl/5.8.3-ithread/lib/site_perl/5.8.2
+     /home/stas/perl/5.8.3-ithread/lib/site_perl
+     .
+
+__________________________________________________________________
+Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
+http://stason.org/     mod_perl Guide ---> http://perl.apache.org
+mailto:stas@stason.org http://use.perl.org http://apacheweek.com
+http://modperlbook.org http://apache.org   http://ticketmaster.com
+
+
diff --git a/err_new/err_metadatadocs.msg b/err_new/err_metadatadocs.msg
new file mode 100644
index 00000000..deb82002
--- /dev/null
+++ b/err_new/err_metadatadocs.msg
@@ -0,0 +1,149 @@
+From andy@andyh.co.uk  Sat Jan 10 07:32:01 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0A7VcFZ015087
+	for <timbo@localhost>; Sat, 10 Jan 2004 07:32:01 GMT
+	(envelope-from andy@andyh.co.uk)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sat, 10 Jan 2004 07:32:01 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1Af6sq-0006t8-GB;
+	Sat, 10 Jan 2004 00:21:44 +0000
+Received: from [207.8.214.2] (helo=icicle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1Af6sq-0006t8-GB
+	for pobox@dbi.demon.co.uk; Sat, 10 Jan 2004 00:21:44 +0000
+Received: from icicle.pobox.com (localhost [127.0.0.1])
+	by icicle.pobox.com (Postfix) with ESMTP id 77CB3A06C
+	for <pobox@dbi.demon.co.uk>; Fri,  9 Jan 2004 19:21:43 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by icicle.pobox.com (Postfix) with ESMTP id 44EFBA063
+	for <Tim.Bunce@pobox.com>; Fri,  9 Jan 2004 19:21:43 -0500 (EST)
+Received: from mta02-svc.ntlworld.com (mta02-svc.ntlworld.com [62.253.162.42])
+	by icicle.pobox.com (Postfix) with ESMTP
+	for <Tim.Bunce@pobox.com>; Fri,  9 Jan 2004 19:21:42 -0500 (EST)
+Received: from excession ([80.2.244.47]) by mta02-svc.ntlworld.com
+          (InterMail vM.4.01.03.37 201-229-121-137-20020806) with SMTP
+          id <20040110002128.ZQFM17535.mta02-svc.ntlworld.com@excession>;
+          Sat, 10 Jan 2004 00:21:28 +0000
+Message-ID: <001e01c3d710$6fc47360$6564a8c0@excession>
+From: "Andy Hassall" <andy@andyh.co.uk>
+To: "Tim Bunce" <Tim.Bunce@pobox.com>, <dbi-dev@perl.org>
+References: <20040109211743.GL1461@dansat.data-plan.com> <014801c3d702$dac97c90$6564a8c0@excession> <20040109234246.GB7364@dansat.data-plan.com>
+Subject: Re: DBD::Oracle - update of type_info_all from ODBC?
+Date: Sat, 10 Jan 2004 00:26:48 -0000
+MIME-Version: 1.0
+Content-Type: text/plain;
+	charset="iso-8859-1"
+Content-Transfer-Encoding: 7bit
+X-Priority: 3
+X-MSMail-Priority: Normal
+X-Mailer: Microsoft Outlook Express 6.00.2800.1158
+X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
+Content-Length: 3528
+Lines: 106
+
+Tim Bunce wrote:
+> On Fri, Jan 09, 2004 at 10:49:35PM -0000, Andy Hassall wrote:
+>> Tim Bunce wrote:
+>>> I'd be very grateful if someone could send me the output of:
+>>>
+>>>   perl -MDBI::DBD::Metadata -e write_typeinfo_pm dbi:ODBC:dsnname
+>>> user pass Oracle
+>>>
+>>> Where dsnname is an ODBC DSN that uses a recent (9.2 or at least
+>>> 9.1) Oracle ODBC driver to talk to a similarly recent Oracle
+>>> database
+>>> server.
+>>
+>> I might be missing something here, but DBI::DBD::Metadata from DBI
+>> 1.40 doesn't appear to have a write_typeinfo_pm sub. It's got
+>> write_typeinfo though (line 308).
+>>
+>> $ perl -MDBI::DBD::Metadata -e write_typeinfo_pm dbi:ODBC:web test
+>> test Oracle
+>>
+>> Undefined subroutine &DBI::DBD::Metadata::write_typeinfo_pm called
+>> at -e line 1.
+>>
+>> write_typeinfo works, but the parameters are in a different order,
+>> which had me confused for a bit!
+>
+> Uh. Bugs in the DBI::DBD docs. Patches welcome :)
+
+ Is it really a doc bug? Metadata has write_typeinfo_pm in @EXPORT but never
+defines it, and write_typeinfo is inconsistent with write_getinfo_pm.
+
+ The following sorts that out:
+
+--- Metadata.pm.orig    2004-01-10 00:04:46.598710400 +0000
++++ Metadata.pm 2004-01-10 00:12:03.486924800 +0000
+@@ -245,7 +245,7 @@
+   }
+
+ Please replace Driver (or "<foo>") with the name of your driver.
+-Note that this stub function is generated for you by the write_typeinfo
++Note that this stub function is generated for you by the write_typeinfo_pm
+ function, but you must manually transfer the code to Driver.pm.
+
+ =cut
+@@ -305,9 +305,9 @@
+     return $val;
+ }
+
+-sub write_typeinfo
++sub write_typeinfo_pm
+ {
+-    my ($driver, $dsn, $user, $pass) = @_ ? @_ : @ARGV;
++    my ($dsn, $user, $pass, $driver) = @_ ? @_ : @ARGV;
+     my $dbh = DBI->connect($dsn, $user, $pass, {AutoCommit=>1, RaiseError=>1});
+     $driver = "<foo>" unless defined $driver;
+
+@@ -316,7 +316,7 @@
+ # Transfer this to ${driver}.pm
+
+ # The type_info_all function was automatically generated by
+-# DBI::DBD::Metadata::write_typeinfo v$DBI::DBD::Metadata::VERSION.
++# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
+
+ package DBD::${driver}::db;         # This line can be removed once transferred.
+
+@@ -331,7 +331,7 @@
+ # Don't forget to add version and intellectual property control information.
+
+ # The \%type_info_all hash was automatically generated by
+-# DBI::DBD::Metadata::write_typeinfo v$DBI::DBD::Metadata::VERSION.
++# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
+
+ package DBD::${driver}::TypeInfo;
+
+
+
+
+>> Output attached, command used was:
+>>
+>> $ perl -MDBI::DBD::Metadata -e "DBI::DBD::Metadata::write_typeinfo
+>> 'Oracle','dbi:ODBC:web','test','test'" > TypeInfo.pm
+>>
+>> $ perl -MDBI -e 'DBI->installed_versions'
+>>   Perl            : 5.008001    (MSWin32-x86-multi-thread)
+>>   OS              : MSWin32     (4.0)
+>>   DBI             : 1.40
+>>   DBD::Oracle     : 1.14
+>>   DBD::ODBC       : 1.06
+>
+>> Forgot to mention - Oracle client & server both 9.2.0.4.
+>
+> Darn it! Where are the various TIMESTAMP and INTERVAL types I was
+> expecting to find? Is the ODBC driver manager recent (v3 ODBC specs?)
+
+ Hm, where should I be looking for this? My knowledge of ODBC is fairly
+limited. I've updated MDAC to 2.8, the latest version on microsoft.com; I
+believe that updates the driver manager? (from what it says on google
+searches).
+
+-- 
+Andy Hassall <andy@andyh.co.uk> / Space: disk usage analysis tool
+<http://www.andyh.co.uk> / <http://www.andyhsoftware.co.uk/space>
+
+
diff --git a/err_new/err_metayml.mgs b/err_new/err_metayml.mgs
new file mode 100644
index 00000000..f4455f0f
--- /dev/null
+++ b/err_new/err_metayml.mgs
@@ -0,0 +1,65 @@
+From timbo@dansat.data-plan.com  Sun Jan 11 07:31:57 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0B7VTFm020999
+	for <timbo@localhost>; Sun, 11 Jan 2004 07:31:57 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sun, 11 Jan 2004 07:31:57 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AfRct-0005T6-MY;
+	Sat, 10 Jan 2004 22:30:40 +0000
+Received: from [208.58.1.193] (helo=boggle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AfRct-0005T6-MY
+	for pobox@dbi.demon.co.uk; Sat, 10 Jan 2004 22:30:40 +0000
+Received: from boggle.pobox.com (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 13BF68C11
+	for <pobox@dbi.demon.co.uk>; Sat, 10 Jan 2004 17:30:39 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id E5D238BAE
+	for <Tim.Bunce@pobox.com>; Sat, 10 Jan 2004 17:30:38 -0500 (EST)
+Received: from mail00.svc.cra.dublin.eircom.net (mail00.svc.cra.dublin.eircom.net [159.134.118.16])
+	by boggle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Sat, 10 Jan 2004 17:30:37 -0500 (EST)
+Received: (qmail 60199 messnum 649403 invoked from network[213.94.228.233/unknown]); 10 Jan 2004 22:30:35 -0000
+Received: from unknown (HELO dansat.data-plan.com) (213.94.228.233)
+  by mail00.svc.cra.dublin.eircom.net (qp 60199) with SMTP; 10 Jan 2004 22:30:35 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0AMUhFO019481;
+	Sat, 10 Jan 2004 22:30:43 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id i0AMUh4c019480;
+	Sat, 10 Jan 2004 22:30:43 GMT
+Date: Sat, 10 Jan 2004 22:30:43 +0000
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Andy Hassall <andy@andyh.co.uk>
+Cc: dbi-dev@perl.org, Tim Bunce <Tim.Bunce@pobox.com>
+Subject: Re: DBI 1.40 META.yaml identifies as 1.39
+Message-ID: <20040110223043.GK16156@dansat.data-plan.com>
+References: <002c01c3d7bd$b7ef4d10$6564a8c0@excession>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <002c01c3d7bd$b7ef4d10$6564a8c0@excession>
+User-Agent: Mutt/1.4i
+Content-Length: 428
+Lines: 15
+
+Groan. Thanks!
+
+Tim.
+
+On Sat, Jan 10, 2004 at 09:07:12PM -0000, Andy Hassall wrote:
+> META.yaml in DBI 1.40 hasn't been updated, which causes PPM::Make to think
+> it's building 1.39. This shows up when you install the PPD or search for
+> DBI - it won't see 1.40.
+> 
+> Patch attached.
+> -- 
+> Andy Hassall <andy@andyh.co.uk> / Space: disk usage analysis tool
+> <http://www.andyh.co.uk> / <http://www.andyhsoftware.co.uk/space>
+
+
+
diff --git a/err_new/err_modeling.msg b/err_new/err_modeling.msg
new file mode 100644
index 00000000..def3d6b5
--- /dev/null
+++ b/err_new/err_modeling.msg
@@ -0,0 +1,69 @@
+From dbi-users-return-21178-Tim.Bunce=pobox.com@perl.org  Sun Dec  7 18:35:58 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hB7IY1o5096618
+	for <timbo@localhost>; Sun, 7 Dec 2003 18:35:58 GMT
+	(envelope-from dbi-users-return-21178-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sun, 07 Dec 2003 18:35:58 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AT2s7-00011a-48;
+	Sun, 07 Dec 2003 17:39:07 +0000
+Received: from [216.65.124.72] (helo=orb.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AT2s7-00011a-48
+	for pobox@dbi.demon.co.uk; Sun, 07 Dec 2003 17:39:07 +0000
+Received: from orb.pobox.com (localhost[127.0.0.1])
+	by orb.pobox.com (Postfix) with ESMTP id 3253D2E14E3
+	for <pobox@dbi.demon.co.uk>; Sun,  7 Dec 2003 12:39:06 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost[127.0.0.1])
+	by orb.pobox.com (Postfix) with ESMTP id 0EE372E14A7
+	for <Tim.Bunce@pobox.com>; Sun,  7 Dec 2003 12:39:06 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com[63.251.223.166])
+	by orb.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Sun,  7 Dec 2003 12:39:05 -0500 (EST)
+Received: (qmail 90705 invoked by uid 1005); 7 Dec 2003 17:38:57 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 90685 invoked by uid 76); 7 Dec 2003 17:38:56 -0000
+Received: from x1.develooper.com (HELO x1.develooper.com) (63.251.223.170) by onion.perl.org (qpsmtpd/0.26) with SMTP; Sun, 07 Dec 2003 09:38:56 -0800
+Received: (qmail 9649 invoked by uid 225); 7 Dec 2003 17:38:54 -0000
+Delivered-To: dbi-users@perl.org
+Received: (qmail 9645 invoked by alias); 7 Dec 2003 17:38:54 -0000
+Received: from mail2.speakeasy.net (HELO mail2.speakeasy.net) (216.254.0.202) by la.mx.develooper.com (qpsmtpd/0.27-dev) with ESMTP; Sun, 07 Dec 2003 09:38:42 -0800
+Received: (qmail 20579 invoked from network); 7 Dec 2003 17:38:39 -0000
+Received: from unknown (HELO vpservices.com) (jzucker@[66.93.39.31])          (envelope-sender <jeff@vpservices.com>)          by mail2.speakeasy.net (qmail-ldap-1.03) with AES256-SHA encrypted SMTP          for <dbi-users@perl.org>; 7 Dec 2003 17:38:39 -0000
+Message-ID: <3FD3658E.6070402@vpservices.com>
+Date: Sun, 07 Dec 2003 09:38:22 -0800
+From: Jeff Zucker <jeff@vpservices.com>
+User-Agent: Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.5) Gecko/20031007
+X-Accept-Language: en-us, en
+MIME-Version: 1.0
+To: dbi-users <dbi-users@perl.org>
+Subject: Discussion of Data Modeling Tools
+Content-Type: text/plain; charset=ISO-8859-1; format=flowed
+Content-Transfer-Encoding: 7bit
+X-Spam-Check-By: la.mx.develooper.com
+X-Spam-Status: No, hits=-0.5 required=7.0 tests=CARRIAGE_RETURNS,SPAM_PHRASE_00_01,TO_LOCALPART_EQ_REAL,USER_AGENT,USER_AGENT_MOZILLA_UA,X_ACCEPT_LANG version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 277
+Lines: 11
+
+There are some informative posts in Slashdot's article on data modeling 
+tools that may be of interest to some on this list:
+
+    http://ask.slashdot.org/article.pl?sid=03/12/06/018207
+
+It looks like Dia and its offshoots may yet provide an open source 
+contender. 
+
+-- 
+Jeff
+
+
diff --git a/err_new/err_modglobalclone.msg b/err_new/err_modglobalclone.msg
new file mode 100644
index 00000000..1e4cf313
--- /dev/null
+++ b/err_new/err_modglobalclone.msg
@@ -0,0 +1,103 @@
+From perl5-porters-return-86721-Tim.Bunce=pobox.com@perl.org  Tue Dec 30 07:38:18 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hBU7bOnG023888
+	for <timbo@localhost>; Tue, 30 Dec 2003 07:38:17 GMT
+	(envelope-from perl5-porters-return-86721-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 30 Dec 2003 07:38:17 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1Ab8yh-0002Ev-5j;
+	Tue, 30 Dec 2003 01:47:24 +0000
+Received: from [208.58.1.193] (helo=boggle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1Ab8yh-0002Ev-5j
+	for pobox@dbi.demon.co.uk; Tue, 30 Dec 2003 01:47:23 +0000
+Received: from boggle.pobox.com (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id DCE8D32DE14
+	for <pobox@dbi.demon.co.uk>; Mon, 29 Dec 2003 20:47:22 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 058D632DE1E
+	for <Tim.Bunce@pobox.com>; Mon, 29 Dec 2003 20:47:21 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com [63.251.223.166])
+	by boggle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Mon, 29 Dec 2003 20:47:04 -0500 (EST)
+Received: (qmail 15799 invoked by uid 1005); 30 Dec 2003 01:46:58 -0000
+Mailing-List: contact perl5-porters-help@perl.org; run by ezmlm
+Precedence: bulk
+list-help: <mailto:perl5-porters-help@perl.org>
+list-unsubscribe: <mailto:perl5-porters-unsubscribe@perl.org>
+list-post: <mailto:perl5-porters@perl.org>
+X-List-Archive: <http://nntp.perl.org/group/perl.perl5.porters/86721>
+Delivered-To: mailing list perl5-porters@perl.org
+Received: (qmail 15779 invoked by uid 76); 30 Dec 2003 01:46:58 -0000
+Delivered-To: perl5-porters@perl.org
+From: Jan Dubois <jand@ActiveState.com>
+To: Stas Bekman <stas@stason.org>, Arthur Bergman <sky@nanisky.com>
+Cc: The Perl5 Porters Mailing List <perl5-porters@perl.org>
+Subject: Re: XS modules having problems with CLONE and ithreads unless PERL_NO_GET_CONTEXT is defined
+Date: Mon, 29 Dec 2003 17:44:17 -0800
+Message-ID: <r5l1vv00ca033k7a06d40fgei1ion91rnp@4ax.com>
+References: <3FCDAC86.8070907@stason.org>
+In-Reply-To: <3FCDAC86.8070907@stason.org>
+X-Mailer: Forte Agent 1.8/32.548
+MIME-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Transfer-Encoding: 7bit
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-0.2 required=7.0 tests=CARRIAGE_RETURNS,IN_REP_TO,REFERENCES,SPAM_PHRASE_00_01 version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Content-Length: 1925
+Lines: 50
+
+On Wed, 03 Dec 2003 01:27:34 -0800, Stas Bekman <stas@stason.org> wrote:
+
+>I've been working on Example::CLONE to have a fully working demo 
+>implementation of the CLONE function, to show when this function is needed, 
+>how to write a possess method, tests, etc. Eventually it should land in the 
+>threads.pod or around it. You can look at what I've done so far:
+>http://apache.org/~stas/Example-CLONE-0.01.tar.gz
+
+Thanks for the sample code!
+
+You should probably also mention that every module that stores
+per-interpreter data in PL_modglobal may need to "clone" it in
+the CLONE method as well.
+
+This is especially true for modules that use MY_CXT_INIT to allocate
+the per-interpreter storage.  It allocates the buffer as the PVX of
+an untracked SV and then just stores the pointer as a UV.  The SV is
+freed when the interpreter is destructed.
+
+perl_clone() will copy the UV ptr in PL_modglobal, but if the first
+interpreter is destroyed before the second one, then the PL_modglobal
+entry in the second interpreter points to freed memory.
+
+I would suggest that we add this macro to perl.h:
+
+#define MY_CXT_CLONE                                                    \
+	dMY_CXT_SV;							\
+	my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+	Copy(INT2PTR(my_cxt_t, SvUV(my_cxt_sv)), my_extp, 1, my_cxt_t); \
+	sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
+
+and then recommend that each module using MY_CXT_INIT calls this macro in
+an XS CLONE method such as:
+
+void
+CLONE(...)
+    CODE:
+    MY_CXT_CLONE;
+
+I noticed that both the 're' and the 'Storable' core modules store data in
+PL_modglobal.  At least 're' needs to use MY_CXT_CLONE.  I haven't looked
+closely at 'Storable' to see if it handles interpreter cloning correctly or
+not (it uses its own PL_modglobal handling macros).
+
+I can send a patch for perl.h and re.xs (and Devel::PPPort.pm) unless someone
+has a better idea how this should be handled.
+
+Cheers,
+-Jan
+
+
diff --git a/err_new/err_mxauth.msg b/err_new/err_mxauth.msg
new file mode 100644
index 00000000..1044778c
--- /dev/null
+++ b/err_new/err_mxauth.msg
@@ -0,0 +1,110 @@
+From aclarke@t-mobile.co.uk  Fri May  9 10:51:53 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.6/8.12.6) with ESMTP id h499nm3R096740
+	for <timbo@localhost>; Fri, 9 May 2003 10:51:53 +0100 (BST)
+	(envelope-from aclarke@t-mobile.co.uk)
+Received: from pop3.mail.demon.net [194.217.242.23]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 09 May 2003 10:51:53 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1052468994:20:27880:8; Fri, 09 May 2003 08:29:54 GMT
+Received: from orb.pobox.com ([208.210.125.79]) by punt-2.mail.demon.net
+           id aa2027183; 9 May 2003 8:29 GMT
+Received: from orb.pobox.com (localhost [127.0.0.1])
+	by orb.pobox.com (Postfix) with ESMTP id F270D1560AD
+	for <Tim.Bunce@data-plan.com>; Fri,  9 May 2003 04:25:56 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from one2one.t-mobile.co.uk (one2one.t-mobile.co.uk [149.254.120.220])
+	by orb.pobox.com (Postfix) with ESMTP id 7CA06155FDD
+	for <Tim.Bunce@pobox.com>; Fri,  9 May 2003 04:25:56 -0400 (EDT)
+Received: from belize.t-mobile.co.uk (belize [172.24.18.238])
+	by one2one.t-mobile.co.uk (8.12.9/8.12.9) with ESMTP id h498PsKY026659
+	for <Tim.Bunce@pobox.com>; Fri, 9 May 2003 09:25:54 +0100 (BST)
+Received: from bolivia.t-mobile.co.uk (localhost [127.0.0.1])
+	by belize.t-mobile.co.uk (8.12.9/8.12.9) with ESMTP id h498PsJW002801
+	for <Tim.Bunce@pobox.com>; Fri, 9 May 2003 09:25:54 +0100 (BST)
+Received: from vino.t-mobile.co.uk (vino [172.23.62.229])
+	by bolivia.t-mobile.co.uk (8.12.9/8.12.9) with ESMTP id h498PrlD023156
+	for <Tim.Bunce@pobox.com>; Fri, 9 May 2003 09:25:53 +0100 (BST)
+Received: from vino (vino [172.23.62.229])
+	by vino.t-mobile.co.uk (8.12.9/8.12.9) with SMTP id h498Pr0l013910
+	for <Tim.Bunce@pobox.com>; Fri, 9 May 2003 09:25:53 +0100 (BST)
+Message-Id: <200305090825.h498Pr0l013910@vino.t-mobile.co.uk>
+Date: Fri, 9 May 2003 09:25:53 +0100 (BST)
+From: Anthony Clarke <aclarke@t-mobile.co.uk>
+Reply-To: Anthony Clarke <aclarke@t-mobile.co.uk>
+Subject: Re: Do you use DBD::Multiplex ?
+To: Tim.Bunce@pobox.com
+MIME-Version: 1.0
+Content-Type: TEXT/plain; charset=ISO-8859-15
+Content-MD5: EPDzqrKz/w9fFL1V+Op+8g==
+X-Mailer: dtmail 1.3.0 @(#)CDE Version 1.4.6_06 SunOS 5.8 sun4u sparc 
+Content-Transfer-Encoding: 8bit
+X-MIME-Autoconverted: from QUOTED-PRINTABLE to 8bit by dansat.data-plan.com id h499nm3R096740
+Status: RO
+X-Status: A
+Content-Length: 1841
+Lines: 61
+
+Tim,
+
+I have been thinking about how I might use this and an issue which I have come 
+across is the fact that the various databases I have use different 
+username/password combinations. In particular, I am using Oracle where I have to 
+specify username/password and DB2 UDB where authentication is by OS user and no 
+password is required.
+
+If we could specify a list as with the DSNs it would help.
+
+Regards,
+
+Anthony
+
+>Mailing-List: contact dbi-announce-help@perl.org; run by ezmlm
+>List-Post: <mailto:dbi-announce@perl.org>
+>List-Help: <mailto:dbi-announce-help@perl.org>
+>List-Unsubscribe: <mailto:dbi-announce-unsubscribe@perl.org>
+>List-Subscribe: <mailto:dbi-announce-subscribe@perl.org>
+>Delivered-To: mailing list dbi-announce@perl.org
+>Delivered-To: moderator for dbi-announce@perl.org
+>Delivered-To: dbi-announce@perl.org
+>Date: Tue, 6 May 2003 13:27:13 +0100
+>From: Tim Bunce <Tim.Bunce@pobox.com>
+>To: dbi-announce@perl.org
+>Cc: dbi-users@perl.org
+>Subject: Do you use DBD::Multiplex ?
+>Mime-Version: 1.0
+>Content-Disposition: inline
+>User-Agent: Mutt/1.4i
+>X-SMTPD: qpsmtpd/0.26-dev, http://develooper.com/code/qpsmtpd/
+>X-Spam-Check-By: one.develooper.com
+>X-Spam-Status: No, hits=-0.6 required=7.0 
+tests=CARRIAGE_RETURNS,SPAM_PHRASE_02_03,USER_AGENT,USER_AGENT_MUTT version=2.44
+>X-SMTPD: qpsmtpd/0.26-dev, http://develooper.com/code/qpsmtpd/
+>X-Keywords: 
+>
+>I'm currently working on some major changes to DBD::Multiplex.
+>
+>I'd like to hear from anyone using it in a production environment,
+>with details of how you're using it and what you'd like to see changed.
+>
+>Thanks.
+>
+>Tim.
+
+Regards / Mit freundlichen Grüßen
+
+Anthony
+
+__________________________________________________
+
+Anthony Clarke
+Open Systems Group
+T-Systems Ltd
+Imperial Place, Borehamwood, Herts WD6 1EA
+Tel: +44-(0)20-8214-2944
+Fax: +44-(0)7957-468413
+
+
+
+
diff --git a/err_new/err_nonrefattr.msg b/err_new/err_nonrefattr.msg
new file mode 100644
index 00000000..f034e6c2
--- /dev/null
+++ b/err_new/err_nonrefattr.msg
@@ -0,0 +1,93 @@
+From timbo@dansat.data-plan.com  Thu Dec  4 07:34:11 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hB47Y2mu066844
+	for <timbo@localhost>; Thu, 4 Dec 2003 07:34:11 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 04 Dec 2003 07:34:11 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1ARgSK-0000Hi-9X;
+	Wed, 03 Dec 2003 23:30:53 +0000
+Received: from [208.58.1.194] (helo=integer.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1ARgSK-0000Hi-9X
+	for pobox@dbi.demon.co.uk; Wed, 03 Dec 2003 23:30:53 +0000
+Received: from integer.pobox.com (localhost[127.0.0.1])
+	by integer.pobox.com (Postfix) with ESMTP id B42051D049C
+	for <pobox@dbi.demon.co.uk>; Wed,  3 Dec 2003 18:30:51 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost[127.0.0.1])
+	by integer.pobox.com (Postfix) with ESMTP id 7CB961CFEB5
+	for <Tim.Bunce@pobox.com>; Wed,  3 Dec 2003 18:30:51 -0500 (EST)
+Received: from mail06.svc.cra.dublin.eircom.net (mail06.svc.cra.dublin.eircom.net[159.134.118.22])
+	by integer.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Wed,  3 Dec 2003 18:30:50 -0500 (EST)
+Received: (qmail 12583 messnum 241083 invoked from network[213.94.228.233/unknown]); 3 Dec 2003 23:30:39 -0000
+Received: from unknown (HELO dansat.data-plan.com) (213.94.228.233)
+  by mail06.svc.cra.dublin.eircom.net (qp 12583) with SMTP; 3 Dec 2003 23:30:39 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hB3NUfmo064642;
+	Wed, 3 Dec 2003 23:30:41 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id hB3NUeqU064641;
+	Wed, 3 Dec 2003 23:30:40 GMT
+Date: Wed, 3 Dec 2003 23:30:40 +0000
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: shlomit.afgin@weizmann.ac.il
+Cc: Tim.Bunce@pobox.com
+Subject: Re: upgrading to modperl2 & apache2 DBI 1.38
+Message-ID: <20031203233040.GB64591@dansat.data-plan.com>
+References: <Pine.SOL.4.40_heb2.09.0312031154260.16814-110000@clever.weizmann.ac.il>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <Pine.SOL.4.40_heb2.09.0312031154260.16814-110000@clever.weizmann.ac.il>
+User-Agent: Mutt/1.4i
+Status: RO
+Content-Length: 1479
+Lines: 42
+
+Thanks. I'll look into it.
+
+Tim.
+
+On Wed, Dec 03, 2003 at 12:00:19PM +0200, Afgin Shlomit wrote:
+> Thanks you for your help.
+> 
+> The problem was that I initilize %attr with "" insteade of () in the
+> command below.
+> DBI->connect($data_source, $username, $auth, \%attr);
+> 
+> It's seem that new version more strict, because it work this way
+> in older versions.
+> 
+> Thanks again,
+> 	Shlomit.
+
+> Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+> Delivered-To: mailing list dbi-users@perl.org
+> Delivered-To: dbi-users@perl.org
+> Date: Mon, 1 Dec 2003 19:20:02 +0000
+> From: Tim Bunce <Tim.Bunce@pobox.com>
+> To: shlomit.afgin@weizmann.ac.il
+> Cc: dbi-users@perl.org
+> Subject: Re: upgrading to modperl2 & apache2 DBI 1.38
+> In-Reply-To: <Pine.SOL.4.40_heb2.09.0312011111500.25767-100000@clever.weizmann.ac.il>
+> 
+> On Mon, Dec 01, 2003 at 11:14:16AM +0200, Afgin Shlomit wrote:
+> > I install Apache 2.0.48 and modperl 1.99_10 I moved scripts that run okay
+> > before with older versions. When I run my script I get the error:
+> > an't use string ("") as a HASH ref while "strict refs" in use at
+> > /usr/local/lib/perl5/site_perl/5.8.1/sun4-solaris/DBI.pm line 509
+> > 
+> > What can be the problem?
+> 
+> Looking at line 509 of your DBI.pm might give you a clue.
+> Enabling the DBI trace mechanism is another way to get a clue.
+> If neither help you then post them here so they can help us help you.
+> Posting your code that calls connect() may also help.
+> 
+> Tim.
+
+
diff --git a/err_new/err_oldconnect.patch b/err_new/err_oldconnect.patch
new file mode 100644
index 00000000..7f2e8c2c
--- /dev/null
+++ b/err_new/err_oldconnect.patch
@@ -0,0 +1,225 @@
+diff -u -r DBI-1.38/Changes DBI-1.39/Changes
+--- DBI-1.38/DBI.pm	Fri Aug 22 22:25:36 2003
++++ DBI-1.39/DBI.pm	Tue Oct 21 16:19:28 2003
+@@ -403,7 +403,7 @@
+ 	selectall_arrayref=>{U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'] },
+ 	selectall_hashref=>{ U =>[3,0,'$statement, $keyfield [, \%attr [, @bind_params ] ]'] },
+ 	selectcol_arrayref=>{U =>[2,0,'$statement [, \%attr [, @bind_params ] ]'] },
+-	ping       	=> { U =>[1,1], O=>0x0404 },
++	ping       	=> { U =>[1,2,'$skip_time'], O=>0x0404 },
+ 	disconnect 	=> { U =>[1,1], O=>0x0400|0x0800 },
+ 	quote      	=> { U =>[2,3, '$string [, $data_type ]' ], O=>0x0430 },
+ 	quote_identifier=> { U =>[2,6, '$name [, ...] [, \%attr ]' ],    O=>0x0430 },
+@@ -485,82 +485,80 @@
+     DBI->trace_msg(sprintf "CONE DBI for new thread %s\n",
+ 	$DBI::PurePerl ? "" : sprintf("(dbis %x -> %x)",$olddbis, $DBI::_dbistate));
+ }
+-	
++
++
++sub parse_dsn {
++    my ($class, $dsn) = @_;
++    $dsn =~ s/^(dbi):(\w*?)(?:\((.*?)\))?://i or return;
++    my ($scheme, $driver, $attr, $attr_hash) = (lc($1), $2, $3);
++    $driver ||= $ENV{DBI_DRIVER} || '';
++    $attr_hash = { split /\s*=>?\s*|\s*,\s*/, $attr, -1 } if $attr;
++    return ($scheme, $driver, $attr, $attr_hash, $dsn);
++}
++
+ 
+ # --- The DBI->connect Front Door methods
+ 
+ sub connect_cached {
+     # XXX we expect Apache::DBI users to still call connect()
+     my ($class, $dsn, $user, $pass, $attr) = @_;
+-    ($attr ||= {})->{dbi_connect_method} = 'connect_cached';
++    # XXX modifies callers data
++    ($attr ||= {})->{dbi_connect_method} ||= 'connect_cached';
+     return $class->connect($dsn, $user, $pass, $attr);
+ }
+ 
+ sub connect {
+     my $class = shift;
+-    my ($dsn, $user, $pass, $attr, $old_driver) = my @orig_args = @_;
+-    my $driver;
+-
+-    if ($attr and !ref($attr)) { # switch $old_driver<->$attr if called in old style
+-	Carp::carp("DBI->connect using 'old-style' syntax is deprecated and will be an error in future versions");
+-        ($old_driver, $attr) = ($attr, $old_driver);
+-    }
++    my ($dsn, $user, $pass, $attr) = @_;
+ 
+-    my $connect_meth = $attr->{dbi_connect_method};
+-    $connect_meth ||= $DBI::connect_via;	# fallback to default
+-
+-    $dsn ||= $ENV{DBI_DSN} || $ENV{DBI_DBNAME} || '' unless $old_driver;
++    $dsn ||= $ENV{DBI_DSN};
++    my $connect_meth = $attr->{dbi_connect_method} || $DBI::connect_via;
+ 
+     if ($DBI::dbi_debug) {
++	my @args = @_;
++	$args[0] = $dsn;
++	$args[2] = '****'; # hide password
+ 	local $^W = 0;
+-	pop @_ if $connect_meth ne 'connect';
+-	my @args = @_; $args[2] = '****'; # hide password
+ 	DBI->trace_msg("    -> $class->$connect_meth(".join(", ",@args).")\n");
+     }
+     Carp::croak('Usage: $class->connect([$dsn [,$user [,$passwd [,\%attr]]]])')
+-	if (ref $old_driver or ($attr and not ref $attr) or ref $pass);
++	if (($attr and not ref $attr) or ref $pass or ref $user);
+ 
+-    # extract dbi:driver prefix from $dsn into $1
+-    $dsn =~ s/^dbi:(\w*?)(?:\((.*?)\))?://i
+-			or '' =~ /()/; # ensure $1 etc are empty if match fails
+-    my $driver_attrib_spec = $2 || '';
+-
+-    # Set $driver. Old style driver, if specified, overrides new dsn style.
+-    $driver = $old_driver || $1 || $ENV{DBI_DRIVER}
+-	or Carp::croak("Can't connect(@_), no database driver specified "
+-		."and DBI_DSN env var not set");
++    my (undef, $driver, $driver_attrib_spec, $driver_attrib_hash, $driver_dsn)
++	    = $class->parse_dsn($dsn)
++	or Carp::croak("Can't parse $class DSN '$dsn'");
++    $driver or Carp::croak("Can't connect using $dsn, no database driver specified");
+ 
+     if ($ENV{DBI_AUTOPROXY} && $driver ne 'Proxy' && $driver ne 'Sponge' && $driver ne 'Switch') {
+-	my $proxy = 'Proxy';
+-	if ($ENV{DBI_AUTOPROXY} =~ s/^dbi:(\w*?)(?:\((.*?)\))?://i) {
+-	    $proxy = $1;
+-	    my $attr_spec = $2 || '';
+-	    $driver_attrib_spec = ($driver_attrib_spec) ? "$driver_attrib_spec,$attr_spec" : $attr_spec;
+-	}
+-	$dsn = "$ENV{DBI_AUTOPROXY};dsn=dbi:$driver:$dsn";
+-	$driver = $proxy;
+-	DBI->trace_msg("       DBI_AUTOPROXY: dbi:$driver($driver_attrib_spec):$dsn\n");
+-    }
+-
+-    my %attributes;	# take a copy we can delete from
+-    if ($old_driver) {
+-	%attributes = %$attr if $attr;
+-    }
+-    else {		# new-style connect so new default semantics
+-	%attributes = (
+-	    PrintError => 1,
+-	    AutoCommit => 1,
+-	    ref $attr           ? %$attr : (),
+-	    # attributes in DSN take precedence over \%attr connect parameter
+-	    $driver_attrib_spec ? (split /\s*=>?\s*|\s*,\s*/, $driver_attrib_spec, -1) : (),
+-	);
++	my (undef, $proxy_driver, $proxy_attrib_spec, $proxy_attrib_hash, $proxy_dsn)
++	    = $class->parse_dsn($ENV{DBI_AUTOPROXY});
++	if ($proxy_driver) {
++	    $proxy_attrib_spec ||= '';
++	    $driver_attrib_spec = ($driver_attrib_spec)
++		? "$driver_attrib_spec,$proxy_attrib_spec"
++		: $proxy_attrib_spec;
++	    $driver_dsn = "$proxy_dsn;dsn=dbi:$driver:$driver_dsn";
++	    $driver = $proxy_driver;;
++	}
++	else {
++	    $driver_dsn = "$ENV{DBI_AUTOPROXY};dsn=dbi:$driver:$driver_dsn";
++	    $driver = 'Proxy';
++	}
++	DBI->trace_msg("       DBI_AUTOPROXY: dbi:$driver($driver_attrib_spec):$driver_dsn\n");
+     }
++
++    my %attributes = (	# take a lexical copy we (and the driver) can delete from
++	PrintError => 1,
++	AutoCommit => 1,
++	ref $attr ? %$attr : (),
++	# attributes in DSN take precedence over \%attr connect parameter
++	$driver_attrib_spec ? (split /\s*=>?\s*|\s*,\s*/, $driver_attrib_spec, -1) : (),
++    );
+     $attr = \%attributes; # now set $attr to refer to our local copy
+ 
+     my $drh = $DBI::installed_drh{$driver} || $class->install_driver($driver)
+ 	or die "panic: $class->install_driver($driver) failed";
+ 
+-    # attributes in DSN take precedence over \%attr connect parameter
+     $user =        $attr->{Username} if defined $attr->{Username};
+     $pass = delete $attr->{Password} if defined $attr->{Password};
+ 
+@@ -582,12 +580,12 @@
+ 	#warn "connect_closure: ".Data::Dumper::Dumper([\%attributes, $override_attr]);
+ 
+ 	my $dbh;
+-	unless ($dbh = $drh->$connect_meth($dsn, $user, $pass, $attr)) {
++	unless ($dbh = $drh->$connect_meth($driver_dsn, $user, $pass, $attr)) {
+ 	    $user = '' if !defined $user;
+-	    $dsn = '' if !defined $dsn;
++	    $driver_dsn = '' if !defined $driver_dsn;
+ 	    my $errstr = $drh->errstr;
+ 	    $errstr = '(no error string)' if !defined $errstr;
+-	    my $msg = "$class connect('$dsn','$user',...) failed: $errstr";
++	    my $msg = "$class connect('$driver_dsn','$user',...) failed: $errstr";
+ 	    DBI->trace_msg("       $msg\n");
+ 	    unless ($attr->{HandleError} && $attr->{HandleError}->($msg, $drh, $dbh)) {
+ 		Carp::croak($msg) if $attr->{RaiseError};
+@@ -633,7 +631,7 @@
+ 	}
+ 
+ 	# if we've been subclassed then let the subclass know that we're connected
+-	$dbh->connected($dsn, $user, $pass, $attr) if ref $dbh ne 'DBI::db';
++	$dbh->connected($driver_dsn, $user, $pass, $attr) if ref $dbh ne 'DBI::db';
+ 
+ 	DBI->trace_msg("    <- connect= $dbh\n") if $DBI::dbi_debug;
+ 
+@@ -2204,6 +2202,23 @@
+ 
+ =over 4
+ 
++=item C<parse_dsn>
++
++  ($scheme, $driver, $attr, $attr_hash, $driver_dsn) = DBI->parse_dsn($dsn)
++      or die "Can't parse DBI DSN '$dsn'";
++
++Breaks apart a DBI Data Source Name (DSN) and returns the individual
++parts. If $dsn doesn't contain a valid DSN then parse_dsn() returns
++an empty list.
++
++$scheme is the first part of the DSN and is currently always 'dbi'.
++$driver is the driver name, possibly defaulted to $ENV{DBI_DRIVER},
++and may be undefined.  $attr is the optional attribute string, which
++may be undefined.  If $attr is true then $attr_hash is a reference
++to a hash containing the parsed attribute names and values. $driver_dsn
++is the last part of the DBI DSN string.
++
++
+ =item C<connect>
+ 
+   $dbh = DBI->connect($data_source, $username, $password)
+@@ -2321,20 +2336,6 @@
+ cursors (typically read-only) and another for your short update
+ transactions.
+ 
+-For compatibility with old DBI scripts, the driver can be specified by
+-passing its name as the fourth argument to C<connect> (instead of C<\%attr>):
+-
+-  $dbh = DBI->connect($data_source, $user, $pass, $driver);
+-
+-In this "old-style" form of C<connect>, the C<$data_source> should not start
+-with "C<dbi:driver_name:>". (If it does, the embedded driver_name
+-will be ignored). Also note that in this older form of C<connect>,
+-the C<$dbh-E<gt>{AutoCommit}> attribute is I<undefined>, the
+-C<$dbh-E<gt>{PrintError}> attribute is off, and the old C<DBI_DBNAME>
+-environment variable is
+-checked if C<DBI_DSN> is not defined. Beware that this "old-style"
+-C<connect> will be withdrawn in a future version of DBI.
+-
+ =item C<connect_cached>
+ 
+   $dbh = DBI->connect_cached($data_source, $username, $password)
+@@ -5818,12 +5821,6 @@
+ an empty string) as the password argument.
+ Be extra wary of the security implications of using this.
+ 
+-=head2 DBI_DBNAME (obsolete)
+-
+-The DBI_DBNAME environment variable takes a string value that is used only when the
+-obsolescent style of DBI->connect (with driver name as fourth parameter) is used, and
+-when no value is provided for the first (database name) argument.
+-
+ =head2 DBI_TRACE
+ 
+ The DBI_TRACE environment variable takes an integer value that
diff --git a/err_new/err_perl582thr.msg b/err_new/err_perl582thr.msg
new file mode 100644
index 00000000..7f9f6c35
--- /dev/null
+++ b/err_new/err_perl582thr.msg
@@ -0,0 +1,275 @@
+From dbi-users-return-21278-Tim.Bunce=pobox.com@perl.org  Sun Dec 14 18:36:38 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hBEIYonJ069761
+	for <timbo@localhost>; Sun, 14 Dec 2003 18:36:34 GMT
+	(envelope-from dbi-users-return-21278-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sun, 14 Dec 2003 18:36:34 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AVU2p-0000h6-C8;
+	Sun, 14 Dec 2003 11:04:16 +0000
+Received: from [208.58.1.194] (helo=integer.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AVU2p-0000h6-C8
+	for pobox@dbi.demon.co.uk; Sun, 14 Dec 2003 11:04:15 +0000
+Received: from integer.pobox.com (localhost[127.0.0.1])
+	by integer.pobox.com (Postfix) with ESMTP id 526B71DE85B
+	for <pobox@dbi.demon.co.uk>; Sun, 14 Dec 2003 06:04:14 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost[127.0.0.1])
+	by integer.pobox.com (Postfix) with ESMTP id 3B7F81DE80B
+	for <Tim.Bunce@pobox.com>; Sun, 14 Dec 2003 06:04:14 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com[63.251.223.166])
+	by integer.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Sun, 14 Dec 2003 06:04:13 -0500 (EST)
+Received: (qmail 6821 invoked by uid 1005); 14 Dec 2003 11:04:12 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Delivered-To: moderator for dbi-users@perl.org
+Received: (qmail 87244 invoked by uid 76); 14 Dec 2003 05:34:32 -0000
+Delivered-To: dbi-users@perl.org
+X-Authentication-Warning: andyt.mypoints.com: andyt owned process doing -bs
+Date: Sat, 13 Dec 2003 23:33:48 -0600 (CST)
+From: Andy Tsouladze <andyt@ualloyalty.com>
+X-X-Sender: andyt@andyt.mypoints.com
+To: dbi-users@perl.org
+Cc: Tim.Bunce@ig.co.uk
+Subject: DBI would not compile
+Message-ID: <Pine.LNX.4.58.0312132308580.9335@andyt.mypoints.com>
+Importance: normal
+MIME-Version: 1.0
+Content-Type: TEXT/PLAIN; charset=US-ASCII
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-3.7 required=7.0 tests=CARRIAGE_RETURNS,PERLBUG_CONF,SPAM_PHRASE_00_01,USER_AGENT_PINE,X_AUTH_WARNING version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Content-Length: 9200
+Lines: 222
+
+Hello,
+
+As part of a general upgrade, I am trying to compile DBI-1.39 module. Here
+is what I have:
+
+Sparc Solaris 8 64-bit
+
+GCC: 3.3.2 64-bit
+root@sawww:dbi/DBI-1.39# gcc -v
+Reading specs from
+/usr/local/lib/gcc-lib/sparcv9-sun-solaris2.8/3.3.2/specs
+Configured with: ../gcc-3.3.2/configure --disable-nls
+--host=sparcv9-sun-solaris2.8 --with-libiconv-prefix=/usr/local
+Thread model: posix
+gcc version 3.3.2
+
+Perl: 5.8.2 64-bit, with threads.
+root@sawww:dbi/DBI-1.39# perl -V
+Summary of my perl5 (revision 5.0 version 8 subversion 2) configuration:
+  Platform:
+    osname=solaris, osvers=2.8, archname=sun4-solaris-thread-64
+    uname='sunos sawww 5.8 generic sun4u sparc sunw,ultrasparc-iii-cengine
+'
+    config_args=''
+    hint=recommended, useposix=true, d_sigaction=define
+    usethreads=define use5005threads=define useithreads=undef
+usemultiplicity=undef
+    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
+    use64bitint=define use64bitall=define uselongdouble=undef
+    usemymalloc=n, bincompat5005=undef
+  Compiler:
+    cc='gcc', ccflags ='-D_REENTRANT -fno-strict-aliasing
+-I/usr/local/include -mcpu=v9 -m64 -Wa,-xarch=v9  -D_LARGEFILE_SOURCE
+-D_FILE_OFFSET_BITS=64',
+    optimize='-O',
+    cppflags='-D_REENTRANT -fno-strict-aliasing -I/usr/local/include'
+    ccversion='', gccversion='3.3.2', gccosandvers='solaris2.8'
+    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=87654321
+    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
+    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t',
+lseeksize=8
+    alignbytes=8, prototype=define
+  Linker and Libraries:
+    ld='gcc', ldflags =' -L/usr/local/lib '
+    libpth=/usr/local/lib /usr/lib /usr/ccs/lib
+    libs=-lsocket -lnsl -ldl -lm -lpthread -lc
+    perllibs=-lsocket -lnsl -ldl -lm -lpthread -lc
+    libc=/usr/lib/sparcv9/libc.so, so=so, useshrplib=false,
+libperl=libperl.a
+    gnulibc_version=''
+  Dynamic Linking:
+    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
+    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib'
+
+
+Characteristics of this binary (from libperl):
+  Compile-time options: USE_5005THREADS USE_64_BIT_INT USE_64_BIT_ALL
+USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
+  Built under solaris
+  Compiled at Dec 12 2003 14:01:21
+  @INC:
+    /usr/local/lib/perl5/5.8.2/sun4-solaris-thread-64
+    /usr/local/lib/perl5/5.8.2
+    /usr/local/lib/perl5/site_perl/5.8.2/sun4-solaris-thread-64
+    /usr/local/lib/perl5/site_perl/5.8.2
+    /usr/local/lib/perl5/site_perl
+    .
+
+----------------------------------------------------------
+
+When I run `perl Makefile.PL' , the command is aborted with a suggestion
+to upgrade to "perl 5.8.2 or later" which is what I already have. I know
+this is because of the threads, but I need them, although not necessarily
+for DBI module.
+
+So following the instruction, I tried to use
+perl Makefile.PL -nothread
+
+Compilation failed:
+root@sawww:dbi/DBI-1.39# make
+cp Changes blib/lib/DBI/Changes.pm
+cp dbd_xsh.h blib/arch/auto/DBI/dbd_xsh.h
+cp lib/DBI/FAQ.pm blib/lib/DBI/FAQ.pm
+cp Driver_xst.h blib/arch/auto/DBI/Driver_xst.h
+cp lib/DBD/Proxy.pm blib/lib/DBD/Proxy.pm
+cp lib/DBI/Const/GetInfo/ANSI.pm blib/lib/DBI/Const/GetInfo/ANSI.pm
+cp DBIXS.h blib/arch/auto/DBI/DBIXS.h
+cp lib/DBI/Const/GetInfoReturn.pm blib/lib/DBI/Const/GetInfoReturn.pm
+cp DBI.pm blib/lib/DBI.pm
+cp lib/DBD/Sponge.pm blib/lib/DBD/Sponge.pm
+cp lib/DBI/Const/GetInfoType.pm blib/lib/DBI/Const/GetInfoType.pm
+cp lib/DBI/W32ODBC.pm blib/lib/DBI/W32ODBC.pm
+cp lib/DBI/DBD/Metadata.pm blib/lib/DBI/DBD/Metadata.pm
+cp lib/DBI/Const/GetInfo/ODBC.pm blib/lib/DBI/Const/GetInfo/ODBC.pm
+cp lib/DBI/ProfileDumper/Apache.pm blib/lib/DBI/ProfileDumper/Apache.pm
+cp lib/Bundle/DBI.pm blib/lib/Bundle/DBI.pm
+cp lib/DBI/Profile.pm blib/lib/DBI/Profile.pm
+cp lib/DBI/ProfileDumper.pm blib/lib/DBI/ProfileDumper.pm
+cp Driver.xst blib/arch/auto/DBI/Driver.xst
+cp lib/DBI/ProxyServer.pm blib/lib/DBI/ProxyServer.pm
+cp dbipport.h blib/arch/auto/DBI/dbipport.h
+cp lib/DBD/NullP.pm blib/lib/DBD/NullP.pm
+cp lib/DBI/DBD.pm blib/lib/DBI/DBD.pm
+cp lib/Win32/DBIODBC.pm blib/lib/Win32/DBIODBC.pm
+cp lib/DBI/PurePerl.pm blib/lib/DBI/PurePerl.pm
+cp lib/DBD/ExampleP.pm blib/lib/DBD/ExampleP.pm
+cp dbi_sql.h blib/arch/auto/DBI/dbi_sql.h
+cp lib/DBI/ProfileData.pm blib/lib/DBI/ProfileData.pm
+/usr/local/bin/perl -p -e "s/~DRIVER~/Perl/g"
+blib/arch/auto/DBI/Driver.xst > Perl.xsi
+/usr/local/bin/perl /usr/local/lib/perl5/5.8.2/ExtUtils/xsubpp  -typemap
+/usr/local/lib/perl5/5.8.2/ExtUtils/typemap -typemap typemap  Perl.xs >
+Perl.xsc && mv Perl.xsc Perl.c
+gcc -c   -D_REENTRANT -fno-strict-aliasing -I/usr/local/include -mcpu=v9
+-m64 -Wa,-xarch=v9 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O
+-DVERSION=\"1.39\" -DXS_VERSION=\"1.39\" -fPIC
+"-I/usr/local/lib/perl5/5.8.2/sun4-solaris-thread-64/CORE"  -Wall
+-Wno-comment -DDBI_NO_THREADS Perl.c
+/usr/local/bin/perl /usr/local/lib/perl5/5.8.2/ExtUtils/xsubpp  -typemap
+/usr/local/lib/perl5/5.8.2/ExtUtils/typemap -typemap typemap  DBI.xs >
+DBI.xsc && mv DBI.xsc DBI.c
+gcc -c   -D_REENTRANT -fno-strict-aliasing -I/usr/local/include -mcpu=v9
+-m64 -Wa,-xarch=v9 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O
+-DVERSION=\"1.39\" -DXS_VERSION=\"1.39\" -fPIC
+"-I/usr/local/lib/perl5/5.8.2/sun4-solaris-thread-64/CORE"  -Wall
+-Wno-comment -DDBI_NO_THREADS DBI.c
+DBI.xs: In function `dbih_set_attr_k':
+DBI.xs:1280: error: `thr' undeclared (first use in this function)
+DBI.xs:1280: error: (Each undeclared identifier is reported only once
+DBI.xs:1280: error: for each function it appears in.)
+DBI.xs:1282: warning: left-hand operand of comma expression has no effect
+make: *** [DBI.o] Error 1
+
+
+------------------------------------------------------------
+
+After this failed, I started with a freshly opened tarball, and decided to
+try and build threaded version of the module regardless, since I do run
+the recommended perl 5.8.2. In the Makefile.PL, I commented out lines 86
+and 89:
+86 #       die "*** ABORTED.\n";
+89 #    $::opt_thread = 0;
+
+Then I ran
+perl Makefile.PL
+make
+
+Compilation failed again:
+
+root@sawww:dbi/DBI-1.39# make
+cp Changes blib/lib/DBI/Changes.pm
+cp dbd_xsh.h blib/arch/auto/DBI/dbd_xsh.h
+cp lib/DBI/FAQ.pm blib/lib/DBI/FAQ.pm
+cp Driver_xst.h blib/arch/auto/DBI/Driver_xst.h
+cp lib/DBD/Proxy.pm blib/lib/DBD/Proxy.pm
+cp lib/DBI/Const/GetInfo/ANSI.pm blib/lib/DBI/Const/GetInfo/ANSI.pm
+cp DBIXS.h blib/arch/auto/DBI/DBIXS.h
+cp lib/DBI/Const/GetInfoReturn.pm blib/lib/DBI/Const/GetInfoReturn.pm
+cp DBI.pm blib/lib/DBI.pm
+cp lib/DBD/Sponge.pm blib/lib/DBD/Sponge.pm
+cp lib/DBI/Const/GetInfoType.pm blib/lib/DBI/Const/GetInfoType.pm
+cp lib/DBI/W32ODBC.pm blib/lib/DBI/W32ODBC.pm
+cp lib/DBI/DBD/Metadata.pm blib/lib/DBI/DBD/Metadata.pm
+cp lib/DBI/Const/GetInfo/ODBC.pm blib/lib/DBI/Const/GetInfo/ODBC.pm
+cp lib/DBI/ProfileDumper/Apache.pm blib/lib/DBI/ProfileDumper/Apache.pm
+cp lib/Bundle/DBI.pm blib/lib/Bundle/DBI.pm
+cp lib/DBI/Profile.pm blib/lib/DBI/Profile.pm
+cp lib/DBI/ProfileDumper.pm blib/lib/DBI/ProfileDumper.pm
+cp Driver.xst blib/arch/auto/DBI/Driver.xst
+cp lib/DBI/ProxyServer.pm blib/lib/DBI/ProxyServer.pm
+cp dbipport.h blib/arch/auto/DBI/dbipport.h
+cp lib/DBD/NullP.pm blib/lib/DBD/NullP.pm
+cp lib/DBI/DBD.pm blib/lib/DBI/DBD.pm
+cp lib/Win32/DBIODBC.pm blib/lib/Win32/DBIODBC.pm
+cp lib/DBI/PurePerl.pm blib/lib/DBI/PurePerl.pm
+cp lib/DBD/ExampleP.pm blib/lib/DBD/ExampleP.pm
+cp dbi_sql.h blib/arch/auto/DBI/dbi_sql.h
+cp lib/DBI/ProfileData.pm blib/lib/DBI/ProfileData.pm
+/usr/local/bin/perl -p -e "s/~DRIVER~/Perl/g"
+blib/arch/auto/DBI/Driver.xst > Perl.xsi
+/usr/local/bin/perl /usr/local/lib/perl5/5.8.2/ExtUtils/xsubpp  -typemap
+/usr/local/lib/perl5/5.8.2/ExtUtils/typemap -typemap typemap  Perl.xs >
+Perl.xsc && mv Perl.xsc Perl.c
+gcc -c   -D_REENTRANT -fno-strict-aliasing -I/usr/local/include -mcpu=v9
+-m64 -Wa,-xarch=v9 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O
+-DVERSION=\"1.39\" -DXS_VERSION=\"1.39\" -fPIC
+"-I/usr/local/lib/perl5/5.8.2/sun4-solaris-thread-64/CORE"  -Wall
+-Wno-comment Perl.c
+/usr/local/bin/perl /usr/local/lib/perl5/5.8.2/ExtUtils/xsubpp  -typemap
+/usr/local/lib/perl5/5.8.2/ExtUtils/typemap -typemap typemap  DBI.xs >
+DBI.xsc && mv DBI.xsc DBI.c
+gcc -c   -D_REENTRANT -fno-strict-aliasing -I/usr/local/include -mcpu=v9
+-m64 -Wa,-xarch=v9 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O
+-DVERSION=\"1.39\" -DXS_VERSION=\"1.39\" -fPIC
+"-I/usr/local/lib/perl5/5.8.2/sun4-solaris-thread-64/CORE"  -Wall
+-Wno-comment DBI.c
+DBI.xs: In function `dbih_set_attr_k':
+DBI.xs:1280: error: `thr' undeclared (first use in this function)
+DBI.xs:1280: error: (Each undeclared identifier is reported only once
+DBI.xs:1280: error: for each function it appears in.)
+DBI.xs:1282: warning: left-hand operand of comma expression has no effect
+make: *** [DBI.o] Error 1
+
+------------------------------------------------------------------
+
+The error is the same whether or not thread support is requested.
+
+I also tried several previous versions of DBI - 1.38, 1.37, 1.35 - with
+the same result.
+
+So where do I go from here?
+
+Any help will be appreciated. Since I am not part of this mailing list,
+please do reply directly to me.
+
+Thanks,
+
+Andy
+
+Dr Andy Tsouladze
+Sr Unix SysAdmin
+UAL Loyalty Services
+
diff --git a/err_new/err_plserverbug.msg b/err_new/err_plserverbug.msg
new file mode 100644
index 00000000..31d0d802
--- /dev/null
+++ b/err_new/err_plserverbug.msg
@@ -0,0 +1,66 @@
+From cdbi-talk-owner@groups.kasei.com  Wed Jun 25 17:35:50 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h5PGVt3q014863
+	for <timbo@localhost>; Wed, 25 Jun 2003 17:35:50 +0100 (BST)
+	(envelope-from cdbi-talk-owner@groups.kasei.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Wed, 25 Jun 2003 17:35:50 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1056534336:20:02020:23; Wed, 25 Jun 2003 09:45:36 GMT
+Received: from icicle-214-2.pobox.com ([207.8.214.2]) by punt-2.mail.demon.net
+           id aa2123416; 25 Jun 2003 9:44 GMT
+Received: from icicle.pobox.com (localhost [127.0.0.1])
+	by icicle.pobox.com (Postfix) with ESMTP id E35FD5813E
+	for <Tim.Bunce@data-plan.com>; Wed, 25 Jun 2003 05:44:06 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from soto.kasei.com (soto.kasei.com [80.76.206.154])
+	by icicle.pobox.com (Postfix) with ESMTP
+	id 77BA4580EC; Wed, 25 Jun 2003 05:44:06 -0400 (EDT)
+Received: by soto.kasei.com (Postfix, from userid 103)
+	id 912551C35B; Wed, 25 Jun 2003 10:44:02 +0100 (BST)
+X-Original-To: cdbi-talk@groups.kasei.com
+Delivered-To: group-post+cdbi-talk@soto.kasei.com
+Received: by soto.kasei.com (Postfix, from userid 1011)
+	id E063E1C331; Wed, 25 Jun 2003 10:43:58 +0100 (BST)
+Date: Wed, 25 Jun 2003 10:43:58 +0100
+From: Tony Bowden <tony@kasei.com>
+To: cdbi-talk@groups.kasei.com
+Subject: Re: Preventing stringification
+Message-ID: <20030625094358.GA10666@soto.kasei.com>
+Mail-Followup-To: cdbi-talk@groups.kasei.com
+References: <sympa.1056482661.13197.617@groups.kasei.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <sympa.1056482661.13197.617@groups.kasei.com>
+User-Agent: Mutt/1.5.4i
+X-Loop: cdbi-talk@groups.kasei.com
+X-Sequence: 1203
+Precedence: list
+X-no-archive: yes
+List-Id: <cdbi-talk@groups.kasei.com>
+List-Help: <mailto:sympa@groups.kasei.com?subject=help>
+List-Subscribe: <mailto:sympa@groups.kasei.com?subject=subscribe%20cdbi-talk>
+List-Unsubscribe: <mailto:sympa@groups.kasei.com?subject=unsubscribe%20cdbi-talk>
+List-Post: <mailto:cdbi-talk@groups.kasei.com>
+List-Owner: <mailto:cdbi-talk-request@groups.kasei.com>
+List-Archive: <http://groups.kasei.com/mail/arc/cdbi-talk>
+Status: RO
+Content-Length: 580
+Lines: 13
+
+On Tue, Jun 24, 2003 at 10:04:10PM +0100, johannes_niess@web.de wrote:
+> RPC::PlServer uses Storable.pm to serialize ("nfreeze()") and transport
+> the object to the remote client. "thaw()"'ing on the client does not return
+> an object because of stringification. RPC::PlServer checks for object ref's via 
+> '::' which stringified DB id's ('1') don't match.
+
+Smells like a bug in RPC::PlServer to me. Even if $obj overloads to 1,
+ref $obj will still be the Class::Name.
+
+Aside from that, checking for :: is dangerous anyway, as classes could be
+in a top level namespace ...
+
+Tony
+
diff --git a/err_new/err_prof_empty_stmts.msg b/err_new/err_prof_empty_stmts.msg
new file mode 100644
index 00000000..db79ea1d
--- /dev/null
+++ b/err_new/err_prof_empty_stmts.msg
@@ -0,0 +1,99 @@
+From timbo@dansat.data-plan.com  Fri Jan 23 14:06:25 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0NE67kk000681
+	for <timbo@localhost>; Fri, 23 Jan 2004 14:06:25 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 23 Jan 2004 14:06:25 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1Ajxll-0001Pa-Dm;
+	Fri, 23 Jan 2004 09:38:31 +0000
+Received: from [208.58.1.193] (helo=boggle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1Ajxll-0001Pa-Dm
+	for pobox@dbi.demon.co.uk; Fri, 23 Jan 2004 09:38:29 +0000
+Received: from boggle.pobox.com (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 978261C3A9
+	for <pobox@dbi.demon.co.uk>; Fri, 23 Jan 2004 04:38:28 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by boggle.pobox.com (Postfix) with ESMTP id 4AD831C380
+	for <Tim.Bunce@pobox.com>; Fri, 23 Jan 2004 04:38:28 -0500 (EST)
+Received: from mail09.svc.cra.dublin.eircom.net (mail09.svc.cra.dublin.eircom.net [159.134.118.25])
+	by boggle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Fri, 23 Jan 2004 04:38:27 -0500 (EST)
+Received: (qmail 12160 messnum 308917 invoked from network[213.94.228.233/unknown]); 23 Jan 2004 09:38:25 -0000
+Received: from unknown (HELO dansat.data-plan.com) (213.94.228.233)
+  by mail09.svc.cra.dublin.eircom.net (qp 12160) with SMTP; 23 Jan 2004 09:38:25 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0N9f0FO018788;
+	Fri, 23 Jan 2004 09:41:00 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id i0N9ex9G018787;
+	Fri, 23 Jan 2004 09:40:59 GMT
+Date: Fri, 23 Jan 2004 09:40:59 +0000
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Ask =?iso-8859-1?Q?Bj=F8rn?= Hansen <ask@develooper.com>
+Cc: Tim Bunce <Tim.Bunce@pobox.com>
+Subject: Re: odd DBI::Profile output
+Message-ID: <20040123094059.GB18607@dansat.data-plan.com>
+References: <A948AA82-4D5A-11D8-9AC7-000A95796C18@develooper.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=iso-8859-1
+Content-Disposition: inline
+In-Reply-To: <A948AA82-4D5A-11D8-9AC7-000A95796C18@develooper.com>
+User-Agent: Mutt/1.4i
+Content-Transfer-Encoding: 8bit
+X-MIME-Autoconverted: from quoted-printable to 8bit by dansat.data-plan.com id i0NE67kk000681
+Status: RO
+Content-Length: 1240
+Lines: 46
+
+On Thu, Jan 22, 2004 at 08:14:38PM -0800, Ask Bjørn Hansen wrote:
+> 
+> Only just started using DBI::Profile; it's awesome!
+
+Yeah. Thanks.
+
+> I get a lot of 
+> empty statements in my output files; for example the one below.  Could 
+> that be $dbh->ping() or is it truly an empty statement?!  I tried 
+> enabling tracing too, but it didn't help me.
+
+It'll be $dbh methods, like ping, that aren't associated with "the
+last statement".
+
+It would probably be more helpful if it used the method name in those
+cases. Try changing the two lines that look like
+
+  char *Statement = (ima && ima->flags & IMA_PROF_EMPTY_STMT) ? "" : Nullch;
+
+to
+  char *Statement = (ima && ima->flags & IMA_PROF_EMPTY_STMT) ? meth_name : Nullch;
+
+and let me know how well that works for you.
+
+You may still get some empty statements, bt that's another story.
+
+Tim.
+
+
+>  - ask
+> 
+> #####[ 1 ]###########################################################
+>   Count         : 122
+>   Total Time    : 1.799721 seconds
+>   Longest Time  : 0.189048 seconds
+>   Shortest Time : 0.000002 seconds
+>   Average Time  : 0.014752 seconds
+>   Key 1         :
+> 
+> #####[ 2 ]###########################################################
+> 
+> 
+> -- 
+> http://www.askbjoernhansen.com/
+> 
+
+
diff --git a/err_new/err_profilewin32hires.msg b/err_new/err_profilewin32hires.msg
new file mode 100644
index 00000000..861dd30b
--- /dev/null
+++ b/err_new/err_profilewin32hires.msg
@@ -0,0 +1,319 @@
+From perl5-changes-return-9816-Tim.Bunce=pobox.com@perl.org  Sun Jan  4 07:32:30 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i047VbnH056390
+	for <timbo@localhost>; Sun, 4 Jan 2004 07:32:29 GMT
+	(envelope-from perl5-changes-return-9816-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sun, 04 Jan 2004 07:32:29 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AcsDY-0002mR-SW;
+	Sat, 03 Jan 2004 20:17:53 +0000
+Received: from [207.8.214.2] (helo=icicle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AcsDY-0002mR-SW
+	for pobox@dbi.demon.co.uk; Sat, 03 Jan 2004 20:17:52 +0000
+Received: from icicle.pobox.com (localhost [127.0.0.1])
+	by icicle.pobox.com (Postfix) with ESMTP id 6F55E2ABC
+	for <pobox@dbi.demon.co.uk>; Sat,  3 Jan 2004 15:17:52 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by icicle.pobox.com (Postfix) with ESMTP id 4ED592AB0
+	for <Tim.Bunce@pobox.com>; Sat,  3 Jan 2004 15:17:52 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com [63.251.223.166])
+	by icicle.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Sat,  3 Jan 2004 15:17:50 -0500 (EST)
+Received: (qmail 21904 invoked by uid 1005); 3 Jan 2004 20:17:47 -0000
+Mailing-List: contact perl5-changes-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:perl5-changes@perl.org>
+List-Help: <mailto:perl5-changes-help@perl.org>
+List-Unsubscribe: <mailto:perl5-changes-unsubscribe@perl.org>
+List-Subscribe: <mailto:perl5-changes-subscribe@perl.org>
+Delivered-To: mailing list perl5-changes@perl.org
+Received: (qmail 21888 invoked by uid 76); 3 Jan 2004 20:17:46 -0000
+Delivered-To: perl5-changes@perl.org
+Date: Sat, 3 Jan 2004 12:15:00 -0800
+Message-Id: <200401032015.i03KF0UU028201@smtp3.ActiveState.com>
+From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
+To: "Anybody And Everybody" <perl5-changes@perl.org>
+Subject: Change 22051: Upgrade to Time::HiRes 1.54
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=1.1 required=7.0 tests=CARRIAGE_RETURNS,SPAM_PHRASE_00_01 version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 7435
+Lines: 272
+
+Change 22051 by rgs@rgs-home on 2004/01/03 19:51:02
+
+	Upgrade to Time::HiRes 1.54
+
+Affected files ...
+
+... //depot/perl/MANIFEST#1124 edit
+... //depot/perl/ext/Time/HiRes/Changes#14 edit
+... //depot/perl/ext/Time/HiRes/HiRes.pm#30 edit
+... //depot/perl/ext/Time/HiRes/HiRes.xs#38 edit
+... //depot/perl/ext/Time/HiRes/hints/solaris.pl#1 add
+
+Differences ...
+
+==== //depot/perl/MANIFEST#1124 (text) ====
+Index: perl/MANIFEST
+--- perl/MANIFEST#1123~22007~	Tue Dec 30 08:04:47 2003
++++ perl/MANIFEST	Sat Jan  3 11:51:02 2004
+@@ -749,6 +749,7 @@
+ ext/Time/HiRes/hints/dynixptx.pl	Hint for Time::HiRes for named architecture
+ ext/Time/HiRes/hints/irix.pl	Hint for Time::HiRes for named architecture
+ ext/Time/HiRes/hints/sco.pl	Hints for Time::HiRes for named architecture
++ext/Time/HiRes/hints/solaris.pl	Hints for Time::HiRes for named architecture
+ ext/Time/HiRes/hints/svr4.pl	Hints for Time::HiRes for named architecture
+ ext/Time/HiRes/HiRes.pm		Time::HiRes extension
+ ext/Time/HiRes/HiRes.xs		Time::HiRes extension
+
+==== //depot/perl/ext/Time/HiRes/Changes#14 (text) ====
+Index: perl/ext/Time/HiRes/Changes
+--- perl/ext/Time/HiRes/Changes#13~21567~	Tue Oct 28 00:48:06 2003
++++ perl/ext/Time/HiRes/Changes	Sat Jan  3 11:51:02 2004
+@@ -1,5 +1,15 @@
+ Revision history for Perl extension Time::HiRes.
+ 
++1.54
++	- Solaris: like Tru64 (dec_osf) also Solaris need -lrt for nanosleep
++
++1.53
++	- Windows: higher resolution time() by using the Windows
++	  performance counter API, from Jan Dubois and Anton Shcherbinin.
++	  The exact new higher resolution depends on the hardware,
++	  but it should be quite a bit better than using the basic
++	  Windows timers.
++
+ 1.52
+ 	- In AIX (v?) with perl 5.6.1 the HiRes.t can hang after
+ 	  the subtest 18.  No known analysis nor fix, but added
+
+==== //depot/perl/ext/Time/HiRes/HiRes.pm#30 (text) ====
+Index: perl/ext/Time/HiRes/HiRes.pm
+--- perl/ext/Time/HiRes/HiRes.pm#29~21567~	Tue Oct 28 00:48:06 2003
++++ perl/ext/Time/HiRes/HiRes.pm	Sat Jan  3 11:51:02 2004
+@@ -15,7 +15,7 @@
+ 		 d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
+ 		 d_nanosleep);
+ 	
+-$VERSION = '1.52';
++$VERSION = '1.54';
+ $XS_VERSION = $VERSION;
+ $VERSION = eval $VERSION;
+ 
+@@ -343,7 +343,7 @@
+ 
+ Copyright (c) 1996-2002 Douglas E. Wegscheid.  All rights reserved.
+ 
+-Copyright (c) 2002,2003 Jarkko Hietaniemi.  All rights reserved.
++Copyright (c) 2002,2003,2004 Jarkko Hietaniemi.  All rights reserved.
+ 
+ This program is free software; you can redistribute it and/or modify
+ it under the same terms as Perl itself.
+
+==== //depot/perl/ext/Time/HiRes/HiRes.xs#38 (text) ====
+Index: perl/ext/Time/HiRes/HiRes.xs
+--- perl/ext/Time/HiRes/HiRes.xs#37~19898~	Mon Jun 30 22:54:58 2003
++++ perl/ext/Time/HiRes/HiRes.xs	Sat Jan  3 11:51:02 2004
+@@ -1,6 +1,7 @@
+ #ifdef __cplusplus
+ extern "C" {
+ #endif
++#define PERL_NO_GET_CONTEXT
+ #include "EXTERN.h"
+ #include "perl.h"
+ #include "XSUB.h"
+@@ -18,10 +19,34 @@
+ }
+ #endif
+ 
++#ifndef NOOP
++#    define NOOP (void)0
++#endif
++#ifndef dNOOP
++#    define dNOOP extern int Perl___notused
++#endif
++
+ #ifndef aTHX_
+ #    define aTHX_
+ #    define pTHX_
+-#endif         
++#    define dTHX dNOOP
++#endif
++
++#ifdef START_MY_CXT
++#  ifndef MY_CXT_CLONE
++#    define MY_CXT_CLONE                                                \
++	dMY_CXT_SV;							\
++	my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
++	Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t); \
++	sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
++#  endif
++#else
++#    define START_MY_CXT static my_cxt_t my_cxt;
++#    define dMY_CXT	 dNOOP
++#    define MY_CXT_INIT	 NOOP
++#    define MY_CXT_CLONE NOOP
++#    define MY_CXT	 my_cxt
++#endif
+ 
+ #ifndef NVTYPE
+ #   if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
+@@ -110,8 +135,11 @@
+ 
+ #include "const-c.inc"
+ 
+-#if !defined(HAS_GETTIMEOFDAY) && defined(WIN32)
+-#define HAS_GETTIMEOFDAY
++#ifdef WIN32
++
++#ifndef HAS_GETTIMEOFDAY
++#   define HAS_GETTIMEOFDAY
++#endif
+ 
+ /* shows up in winsock.h?
+ struct timeval {
+@@ -125,6 +153,17 @@
+     FILETIME		ft_val;
+ } FT_t;
+ 
++#define MY_CXT_KEY "Time::HiRes_" XS_VERSION
++
++typedef struct {
++    unsigned long run_count;
++    unsigned __int64 base_ticks;
++    unsigned __int64 tick_frequency;
++    FT_t base_systime_as_filetime;
++} my_cxt_t;
++
++START_MY_CXT
++
+ /* Number of 100 nanosecond units from 1/1/1601 to 1/1/1970 */
+ #ifdef __GNUC__
+ #define Const64(x) x##LL
+@@ -135,13 +174,34 @@
+ 
+ /* NOTE: This does not compute the timezone info (doing so can be expensive,
+  * and appears to be unsupported even by glibc) */
+-int
+-gettimeofday (struct timeval *tp, void *not_used)
++
++/* dMY_CXT needs a Perl context and we don't want to call PERL_GET_CONTEXT
++   for performance reasons */
++
++#undef gettimeofday
++#define gettimeofday(tp, not_used) _gettimeofday(aTHX_ tp, not_used)
++
++static int
++_gettimeofday(pTHX_ struct timeval *tp, void *not_used)
+ {
++    dMY_CXT;
++
++    unsigned __int64 ticks;
+     FT_t ft;
+ 
+-    /* this returns time in 100-nanosecond units  (i.e. tens of usecs) */
+-    GetSystemTimeAsFileTime(&ft.ft_val);
++    if (MY_CXT.run_count++) {
++        QueryPerformanceCounter((LARGE_INTEGER*)&ticks);
++        ticks -= MY_CXT.base_ticks;
++        ft.ft_i64 = MY_CXT.base_systime_as_filetime.ft_i64
++                    + 10000000i64 * (ticks / MY_CXT.tick_frequency)
++                    +(10000000i64 * (ticks % MY_CXT.tick_frequency)) / MY_CXT.tick_frequency;
++    }
++    else {
++        QueryPerformanceFrequency((LARGE_INTEGER*)&MY_CXT.tick_frequency);
++        QueryPerformanceCounter((LARGE_INTEGER*)&MY_CXT.base_ticks);
++        GetSystemTimeAsFileTime(&MY_CXT.base_systime_as_filetime.ft_val);
++        ft.ft_i64 = MY_CXT.base_systime_as_filetime.ft_i64;
++    }
+ 
+     /* seconds since epoch */
+     tp->tv_sec = (long)((ft.ft_i64 - EPOCH_BIAS) / Const64(10000000));
+@@ -153,6 +213,15 @@
+ }
+ #endif
+ 
++#if defined(WIN32) && !defined(ATLEASTFIVEOHOHFIVE)
++static unsigned int
++sleep(unsigned int t)
++{
++    Sleep(t*1000);
++    return 0;
++}
++#endif
++
+ #if !defined(HAS_GETTIMEOFDAY) && defined(VMS)
+ #define HAS_GETTIMEOFDAY
+ 
+@@ -605,7 +674,7 @@
+ #ifdef HAS_GETTIMEOFDAY
+ 
+ static int
+-myU2time(UV *ret)
++myU2time(pTHX_ UV *ret)
+ {
+   struct timeval Tp;
+   int status;
+@@ -618,6 +687,9 @@
+ static NV
+ myNVtime()
+ {
++#ifdef WIN32
++    dTHX;
++#endif
+   struct timeval Tp;
+   int status;
+   status = gettimeofday (&Tp, NULL);
+@@ -631,15 +703,29 @@
+ PROTOTYPES: ENABLE
+ 
+ BOOT:
++{
++#ifdef MY_CXT_KEY
++  MY_CXT_INIT;
++#endif
+ #ifdef ATLEASTFIVEOHOHFIVE
+ #ifdef HAS_GETTIMEOFDAY
+-{
+-  UV auv[2];
+-  hv_store(PL_modglobal, "Time::NVtime", 12, newSViv(PTR2IV(myNVtime)), 0);
+-  if (myU2time(auv) == 0)
+-    hv_store(PL_modglobal, "Time::U2time", 12, newSViv((IV) auv[0]), 0);
+-}
++  {
++    UV auv[2];
++    hv_store(PL_modglobal, "Time::NVtime", 12, newSViv(PTR2IV(myNVtime)), 0);
++    if (myU2time(aTHX_ auv) == 0)
++      hv_store(PL_modglobal, "Time::U2time", 12, newSViv((IV) auv[0]), 0);
++  }
++#endif
+ #endif
++}
++
++#if defined(USE_ITHREADS) && defined(MY_CXT_KEY)
++
++void
++CLONE(...)
++    CODE:
++    MY_CXT_CLONE;
++
+ #endif
+ 
+ INCLUDE: const-xs.inc
+
+==== //depot/perl/ext/Time/HiRes/hints/solaris.pl#1 (text) ====
+Index: perl/ext/Time/HiRes/hints/solaris.pl
+--- /dev/null	Tue May  5 13:32:27 1998
++++ perl/ext/Time/HiRes/hints/solaris.pl	Sat Jan  3 11:51:02 2004
+@@ -0,0 +1,3 @@
++# needs to explicitly link against librt to pull in nanosleep
++$self->{LIBS} = ['-lrt'];
++
+End of Patch.
+
+
diff --git a/err_new/err_proxyrpc.msg b/err_new/err_proxyrpc.msg
new file mode 100644
index 00000000..ffefe722
--- /dev/null
+++ b/err_new/err_proxyrpc.msg
@@ -0,0 +1,52 @@
+From www@webmail.lf.net  Mon Jun  9 10:49:58 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h599no0r043230
+	for <timbo@localhost>; Mon, 9 Jun 2003 10:49:58 +0100 (BST)
+	(envelope-from www@webmail.lf.net)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Mon, 09 Jun 2003 10:49:58 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1055151227:20:05173:26; Mon, 09 Jun 2003 09:33:47 GMT
+Received: from icicle-214-2.pobox.com ([207.8.214.2]) by punt-2.mail.demon.net
+           id aa2005474; 9 Jun 2003 9:33 GMT
+Received: from icicle.pobox.com (localhost [127.0.0.1])
+	by icicle.pobox.com (Postfix) with ESMTP id 5FF9058276
+	for <Tim.Bunce@data-plan.com>; Mon,  9 Jun 2003 05:32:58 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from webmail.LF.net (webmail.LF.net [212.9.160.14])
+	by icicle.pobox.com (Postfix) with ESMTP id DF4D058310
+	for <Tim.Bunce@pobox.com>; Mon,  9 Jun 2003 05:32:57 -0400 (EDT)
+Received: from www by webmail.LF.net with local (Exim 4.14)
+	id 19PJ1M-0002fF-62; Mon, 09 Jun 2003 11:32:56 +0200
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Subject: Re: Proposed patches for PlRPC and Proxy
+Message-ID: <1055151176.3ee45448162a7@webmail.LF.net>
+Date: Mon, 09 Jun 2003 11:32:56 +0200 (CEST)
+From: Jochen Wiedmann <joe@ispsoft.de>
+Cc: "Steven N. Hirsch" <hirschs@btv.ibm.com>, dbi-dev@perl.org
+References: <Pine.LNX.4.33.0305091102370.1773-100000@bucky.btv.ibm.com> <20030510212815.GA12263@dansat.data-plan.com>
+In-Reply-To: <20030510212815.GA12263@dansat.data-plan.com>
+MIME-Version: 1.0
+Content-Type: text/plain; charset=ISO-8859-1
+Content-Transfer-Encoding: 8bit
+User-Agent: IMP/PHP IMAP webmail program 2.2.6
+X-Originating-IP: 193.26.194.2
+Sender: WWW <www@webmail.lf.net>
+Status: RO
+X-Status: A
+Content-Length: 340
+Lines: 11
+
+Quoting Tim Bunce <Tim.Bunce@pobox.com>:
+
+> I've CC'd Jochen as he needs to apply the PlRPC patches and make a
+> new release before I can depend on them being available.
+
+Done. Besides, Tim, I have no problems if you apply any changes.
+As we all know, it is very unlikely that I'll be actively developing
+the module in the future.
+
+
+Jochen
+
diff --git a/err_new/err_registry.msg b/err_new/err_registry.msg
new file mode 100644
index 00000000..90dfd3a7
--- /dev/null
+++ b/err_new/err_registry.msg
@@ -0,0 +1,37 @@
+From Tim.Bunce@pobox.com  Mon May 19 14:24:14 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.6/8.12.6) with ESMTP id h4JDOD2f015979
+	for <timbo@localhost>; Mon, 19 May 2003 14:24:14 +0100 (BST)
+	(envelope-from Tim.Bunce@pobox.com)
+Delivered-To: eircom.net-timbunce@eircom.net
+X-Envelope-To: timbunce@eircom.net
+Received: from mail1.eircom.net [159.134.198.135]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Mon, 19 May 2003 14:24:14 +0100 (BST)
+Received: (vpopmail 72180 invoked by uid 16); 19 May 2003 10:42:34 +0100
+Received: (qmail 72152 messnum 1153312 invoked from network[159.134.166.153/p665.as1.limerick1.eircom.net]); 19 May 2003 09:42:33 -0000
+Received: from p665.as1.limerick1.eircom.net (HELO dansat.data-plan.com) (159.134.166.153)
+  by mail04.svc.cra.dublin.eircom.net (qp 72152) with SMTP; 19 May 2003 09:42:33 -0000
+Received: from pobox.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.6/8.12.6) with ESMTP id h4J9gZ2f015617
+	for <timbunce@eircom.net>; Mon, 19 May 2003 10:42:36 +0100 (BST)
+	(envelope-from Tim.Bunce@pobox.com)
+Message-ID: <3EC8A70B.3020508@pobox.com>
+Date: Mon, 19 May 2003 10:42:35 +0100
+From: Tim Bunce <Tim.Bunce@pobox.com>
+User-Agent: Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:0.9.4) Gecko/20011108
+X-Accept-Language: en-us
+MIME-Version: 1.0
+To: timbunce <timbunce@eircom.net>
+Subject: Index of /SC32/SQL_Registry
+X-UIDL: 1053337354.72180.mail04.svc.cra.dublin.eircom.net,S=984
+Content-Type: text/plain; charset=us-ascii; format=flowed
+Content-Transfer-Encoding: 7bit
+Status: RO
+Content-Length: 46
+Lines: 3
+
+
+<ftp://sqlstandards.org/SC32/SQL_Registry/>
+
+
diff --git a/err_new/err_signal-docs.msg b/err_new/err_signal-docs.msg
new file mode 100644
index 00000000..1c62afab
--- /dev/null
+++ b/err_new/err_signal-docs.msg
@@ -0,0 +1,696 @@
+From lab@lincolnbaxter.com  Mon Jan 19 07:33:22 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0J7XCFX065899
+	for <timbo@localhost>; Mon, 19 Jan 2004 07:33:22 GMT
+	(envelope-from lab@lincolnbaxter.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Mon, 19 Jan 2004 07:33:22 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AiLds-00003F-9t;
+	Sun, 18 Jan 2004 22:43:40 +0000
+Received: from [208.210.124.70] (helo=majesty.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AiLds-00003F-9t
+	for pobox@dbi.demon.co.uk; Sun, 18 Jan 2004 22:43:40 +0000
+Received: from majesty.pobox.com (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id 7E15A15DB6
+	for <pobox@dbi.demon.co.uk>; Sun, 18 Jan 2004 17:43:39 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id 583E615C01
+	for <Tim.Bunce@pobox.com>; Sun, 18 Jan 2004 17:43:39 -0500 (EST)
+Received: from sccrmhc12.comcast.net (sccrmhc12.comcast.net [204.127.202.56])
+	by majesty.pobox.com (Postfix) with ESMTP
+	for <Tim.Bunce@pobox.com>; Sun, 18 Jan 2004 17:43:38 -0500 (EST)
+Received: from lincolnbaxter.com ([68.81.58.8])
+          by comcast.net (sccrmhc12) with SMTP
+          id <20040118224337012004pcque>; Sun, 18 Jan 2004 22:43:37 +0000
+Received: (qmail 5406 invoked from network); 18 Jan 2004 17:43:36 -0500
+Received: from lws (192.168.0.25)
+  by lws with SMTP; 18 Jan 2004 17:43:36 -0500
+Subject: Here you go....
+From: "Lincoln A. Baxter" <lab@lincolnbaxter.com>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Cc: hirschs@btv.ibm.com
+Content-Type: multipart/mixed; boundary="=-yA8PSRvvQ4b0TKs1Qspf"
+Message-Id: <1074465816.5065.11.camel@lws>
+Mime-Version: 1.0
+X-Mailer: Ximian Evolution 1.4.5 
+Date: Sun, 18 Jan 2004 17:43:36 -0500
+Status: RO
+Content-Length: 13237
+Lines: 393
+
+
+--=-yA8PSRvvQ4b0TKs1Qspf
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+
+Hi Time,
+
+Here is a a combined POD and test script. (The test script is extracted
+from the POD and executed if you execute this file.)
+ 
+With minor changes to this, you could even put it in the DBD-Oracle/t
+directory.  (you'd have to skip it if Sys::SigAction could not be
+loaded.
+
+Let me know if this is what you were looking for.  
+
+I wonder of O'Reilly & Assoc  might want to use this as one of their
+perl email articles they send out periodically?
+
+I was thinking of posting this to dbi-users.  What do you think?
+
+Lincoln
+
+
+--=-yA8PSRvvQ4b0TKs1Qspf
+Content-Disposition: attachment; filename=dbd-oracle-timeout.t
+Content-Type: text/x-troff; name=dbd-oracle-timeout.t; charset=UTF-8
+Content-Transfer-Encoding: 7bit
+
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use English;
+undef $RS;
+my $script = <DATA>;
+$script =~ s,.*#!/usr/bin/env perl\s*,,gs;
+$script =~ s/#end of test script.*//gs;
+eval $script;
+exit;
+
+__END__
+
+__DATA__
+
+
+=head1 NAME
+
+dbd-oracle-timeout.t - test timing out DBD-Oracle operations with Sys::SigAction
+
+=head1 DESCRIPTION
+
+Whenever one implements a real-time service that requires
+responsiveness, and well behaved resource utilization, it is
+imperative, that no operation take a long period of time.  Generally,
+in these types of services,  timing out or failing and returning an 
+error is preferable to hanging for long periods of time and potentially
+bringing down an entire service because some resource the service uses
+is not available.
+
+We have implemented a number of real time services using perl
+and the DBI interface using the DBD-Oracle driver.  This article
+is specific to the problems encountered with Oracle, but the
+author believes that the problem he encountered on moving from
+perl 5.6 to perl 5.8, is a generic problem the could affect
+any database driver that implementes restartable system calls
+like connect().  The techniques presented here can be used 
+to solve this kind of problem with any DBD driver, or for 
+any system resource that could hang, for which
+alarms have been used to break out of the call.
+
+Prior to Perl 5.8.0, it as been fairly easy to use standard perl
+signal handlers by setting code references into C<$SIG{'ALRM'}>
+to timeout certain DBI operations.  The two operations, that
+this author has need to time out are:
+
+=over
+
+=item 1 Database Host is Down -- connect() hangs
+
+With SQL*Net, the DBI->connect() call will hang for about 4 minutes.
+Traditionally this has been solved by using a localized signal
+handler as follows:
+
+   eval {
+      local $SIG{ALRM} = sub { die "open timed out"; };
+      alarm(2); #implement 2 second timeout
+      $dbh = DBI->connect("dbi:Oracle:$dbn" ... );
+      alarm(0);
+   };
+   alarm(0);
+   if ( $@ ) { print "connection to $dbn timed out\n" ; }
+
+This code restores the original C<$SIG{ALRM}> handler when the 
+eval block is exited.
+
+=item 2 Long Running Statements
+
+Long running statements can occur for a variety of reasons out
+side the control of the script.  These are timed out, to avoid
+stacking of resources on the server on which the perl script is
+executing.  This has been handled in a way similar to the that 
+above:
+
+   eval {
+      local $SIG{ALRM} = sub { $sth->cancel(); };
+      alarm(2); #implement 2 second timeout
+      $sth->execute( ... );
+      alarm(0);
+   };
+   alarm(0);
+   if ( $@ ) { print "execute timed out\n" }
+
+Again, the original C<$SIG{ALRM}> handler is retored when the 
+eval block is exited.
+
+=back
+
+=head2 The Problem
+
+Many of us have been using perl 5.6.x for several years now, and the above
+code has worked just fine.  We understood that with perl 5.6 and prior signal
+handling was 'unsafe', and we accepted the risk that the signal handler
+could be called at an in-opportune time, causing non-reentrant system
+routines to fail, leading to a perl core dump. For real-time services
+this is considered an acceptable risk since failing quickly is preferable
+to hanging around without returning.  Most programmers facing this
+this problem, simply build mechanisms to restart things should a
+catastrophic failure (perl core dump) occur.
+
+As one moves to perl 5.8 or higher however, one will notice
+that the above code (especially the connect code) no longer works.  
+Instead, it just hangs. This is because with version 5.8, perl has been been
+changing the way unix signals are implemented in an attempt to make
+them safer.  Changes were made between perl 5.6 and perl 5.8,
+and more changes have been made in versions of perl newer than 5.8.  
+
+>From the perl 5.8.2 perlvar man page:
+
+   The default delivery policy of signals changed in Perl 5.8.0 
+   from immediate (also known as "unsafe") to deferred, also 
+   known as "safe signals".  
+
+Unfortunately this 'safe signals' approach causes some system calls to
+be retried prior to the signal handler being called (depending on how
+the code making the system call is implemented).  The result is
+that it might never return. This is the case with the DBD-Oracle
+connect call (case 1 above).  So the 'standard' mechanism for 
+implementing timeouts (above) no longer works.
+
+=head2 The Solution
+
+The workaround (documented in the perlvar man page) is to use
+POSIX::sigaction() which provides low level access to the POSIX 
+sigaction() system API, to install the signal handler. This (of course)
+assumes your system has sigaction(). If your system does not have 
+sigaction, then you do not have the problem, as perl in this case
+only implements the original (unsafe) signal handling approach.
+With POSIX::sigaction(), one gets control over both the signal mask,
+and the flags that are used to install the handler, and further, with
+perl 5.8.2 and later, a 'safe' switch is provided which can be used
+to ask for 'safe' signal handling, in which perl promises to call the
+signal handler between perl op codes.
+
+Using POSIX::sigaction() does ensure that the signal handler is called
+when the signal is fired.  And if one calls die within the signal handler,
+the call will be interupted, and control will return to the perl script.
+The usage of POSIX::sigaction() however is not well documented (except for
+several examples in the posix.t test in the perl core).  And in perls <
+5.8.0, while POSIX::sigaction is defined, it does not seem to work.  But,
+thats OK because just setting C<$SIG{NAME} does work.
+
+=head2 The Pain
+
+The down side of using POSIX::sigaction() (besides the fact that it does
+not work in perls < 5.8) is that it requires approximately 4 or 5 lines
+of code where previously one only had to set a localized C<$SIG{ALRM}>.
+
+It looks something like this:
+
+   use POSIX ':signal_h';
+
+   my $mask = POSIX::SigSet->new( SIGALRM ); #list signals to mask in handler
+   my $action = POSIX::SigAction->new( 
+       sub { die "connect failed" ; } #the handler code ref
+      ,$mask ); #assumes were not using an specific flags or 'safe' switch
+   my $oldaction = POSIX::SigAction->new();
+   sigaction( 'ALRM' ,$action ,$oldaction );
+   eval {
+      alarm(2); #implement 2 second timeout
+      $dbh = DBI->connect("dbi:Oracle:$dbn" ... );
+      alarm(0);
+   };
+   alarm(0);
+   if ( $@ ) ....
+   sigaction( 'ALRM' ,$oldaction ); #restore original signal handler
+
+Needless to say, this is not a fun replacement for what was 
+a single line of code in perl 5.6.x and before.  And now we have to
+make it conditional on the perl version.
+
+=head2 The Pain Releiver (Sys::SigAction)
+
+Fortunately, having been bitten by this problem, and not wishing to 
+have to replicate all the code every where, Lincoln Baxter 
+(lab@lincolnbaxter.com) has implemented a module that makes using
+POSIX::sigaction() as easy as setting C<$SIG{ALRM}> was in perl 5.6.x
+and earlier versions.  This module can be retrieved from from CPAN: 
+
+   http://search.cpan.org/CPAN/authors/LBAXTER
+
+The Sys::SigAction module wraps up all of the above POSIX:: code into a single
+function call which returns an object reference, that resets the signal handler 
+when it goes out of scope.  So the above code becomes:
+
+   use Sys::SigAction qw( set_sig_handler );
+   eval {
+      my $h = set_sig_handler( 'ALRM' ,sub { die "connect failed" ; } );
+      alarm(2); #implement 2 second timeout
+      $dbh = DBI->connect("dbi:Oracle:$dbn" ... );
+      alarm(0);
+   }; #original sighandler restored here when $h goes out of scope
+   alarm(0);
+   if ( $@ ) ....
+
+And the nice thing about Sys::SigAction, is that it has been implemented
+in a way works with older perls back to perl 5.005.  So, while
+POSIX::sigaction() is not fully functional in perl versions less than 5.8,
+Sys::SigAction can be used with to facilitate migration to newer perls, while
+still supporting the older perls.  Thus, there is no need to write code 
+conditioned on the perl version.
+
+=head2 Sample Script 
+
+The following test script illustrates the use of Sys::SigAction, with
+the DBI interface (DBD-Oracle driver) to implement timeout of both connects
+to databases on hosts that are down, and log running sql statements.
+
+   #!/usr/bin/env perl
+   use 5.006;
+   use strict;
+   use warnings;
+   use Test::More tests => 10;
+   use Data::Dumper;
+   BEGIN { 
+      use_ok('Sys::SigAction');
+      use_ok('DBI');
+   };
+   use POSIX ':signal_h' ;
+   use Cwd;
+
+
+   die "please export ORACLE_USERID=<validuser>/<passwd>@<database>\n" 
+         if not defined $ENV{'ORACLE_USERID'};
+
+   my $last_octet = 256;
+   my $got_down_host = 0;
+   my $down_host ;
+   do {
+      $last_octet--;
+      $down_host = "10.255.255.$last_octet";
+   } until $got_down_host = system( "ping -c 1 -t 1 $down_host 2>&1 > /dev/null" )
+     or $last_octet == 0;
+
+   ok( $got_down_host ,"Found IP addr ($down_host) for missing system test\n" );
+
+   #parse ORACLE_USERID
+   my $dbn='';
+   my $usr='';
+   my $pwd='';
+
+   ( $usr ,$pwd ,$dbn ) = split( /[\/\@]/ ,$ENV{'ORACLE_USERID'} );
+   ok( $usr ,"database user: '$usr' defined" );
+   ok( $pwd ,"password for $usr is defined" );
+   ok( $dbn ,"database name: '$dbn' defined" );
+
+   #I'm lazy... this stuff is unix specific...
+   #but then if you are using SigAction that is pretty unix
+   #specific too!
+   #
+   #need a locally writeable tns_admin directory
+   #so we copy it from $TNS_ADMIN and then redefine
+   #TNS_ADMIN to the local copy
+   my $save_TNS_ADMIN = $ENV{'TNS_ADMIN'};
+   die if not ok( $save_TNS_ADMIN ,'$TNS_ADMIN is defined' );
+   my $tmp_tns = cwd() . '/tmp_tns_admin' ;
+   system( "rm -rf $tmp_tns" ) if -d $tmp_tns;
+   mkdir $tmp_tns;
+   system( "cp $save_TNS_ADMIN/*.* $tmp_tns/" );
+
+   open( TNSNAMES ,">>$tmp_tns/tnsnames.ora" ) 
+      or die "could not open $tmp_tns/tnsnames.org: $!\n" ;
+   my $testdbfail = qq(testdbfail =
+     (DESCRIPTION =
+       (ADDRESS_LIST =
+         (ADDRESS = (PROTOCOL = TCP)(HOST = $down_host)(PORT = 1521))
+       )
+       (CONNECT_DATA =
+         (SERVICE_NAME = testdbfail)
+       )
+     )
+   );
+   #ok... we have a local TNS_ADMIN directory with testdbfile
+   $ENV{TNS_ADMIN} = $tmp_tns;
+   print "redefining TNS_ADMIN=$tmp_tns\n" ;
+   print "appending to $tmp_tns/tnsnames.ora:\n$testdbfail\n" ;
+   print TNSNAMES $testdbfail;
+   close TNSNAMES;
+
+
+   #now get set_sig_handler function from Sys::SigAction
+   use Sys::SigAction qw( set_sig_handler );
+
+   my $dbh;
+   print "trying missing host\n" ;
+   eval {
+      my $code = sub {
+            die "timed out on connect to database on missing host\n" ;
+      };
+      my $h = set_sig_handler( 'ALRM' ,$code ,0 ,1 );
+      alarm(2);
+      print "opening testdbfail (missing host test)\n" ;
+      $dbh = DBI->connect("dbi:Oracle:testdbfail" ,"na" ,"na" );
+      alarm(0);
+      print "connect failed!\n" if not $dbh;
+      ok( 0 ,"after missing_host connect... how did we get here?\n" );
+   };
+   alarm(0);
+   if ( $@ )
+   {
+      ok( 1 ,"exception: $@" );
+   }
+   print "after missing_host test\n" ;
+
+
+   print "connecting to $dbn as $usr\n" ;
+   $dbh = DBI->connect(
+         "dbi:Oracle:$dbn" ,$usr ,$pwd 
+        ,{ RaiseError=>1 ,AutoCommit=>0 ,PrintError => 0 } );
+
+   ok( $dbh ,"connected" );
+
+   my $sql = qq{
+      BEGIN
+         WHILE ( 1 > 0 ) LOOP
+            NULL;
+         END LOOP;
+      END; 
+   };
+
+   print "preparing:\n$sql" ;
+   my $sth = $dbh->prepare( $sql );
+   my $canceled = 0;
+   eval {
+      my $h = set_sig_handler( 'ALRM' 
+                              ,sub { $canceled = 1; 
+                                     $sth->cancel(); 
+                                     #dont die (oracle spills its guts)
+                                     }
+                              ,{ mask=>[ qw( INT ALRM ) ] ,safe => 1 } 
+                              );
+      my $timeout =3;
+      print "\ncalling execute with $timeout second timeout\n" ;
+      alarm($timeout);
+      $sth->execute();
+      alarm(0);
+      ok( 0 ,"after execute of infinite statement (how did we get here?)\n" );
+   };
+   alarm(0);
+   if ( $@ )
+   {
+      print $@ if not $@ =~ m/DBD::Oracle/;
+      ok( $canceled ,'infinite statement timed out' );
+      $dbh->rollback();
+      $dbh->disconnect();
+      exit;
+   }
+   die 'how we we get here' ;
+
+   #end of test script
+
+=head1 AUTHOR
+
+   Lincoln A Baxter E<lt>lab@lincolnbaxter.comE<gt>
+
+=head1 SEE ALSO
+
+   perldoc perlvar 
+   perldoc POSIX
+
+
+
+--=-yA8PSRvvQ4b0TKs1Qspf--
+
+
+From timbo@dansat.data-plan.com  Mon Jan 19 18:33:01 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0JIUqGT075032
+	for <timbo@localhost>; Mon, 19 Jan 2004 18:33:01 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Mon, 19 Jan 2004 18:33:01 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AidsW-00001o-Nd;
+	Mon, 19 Jan 2004 18:12:01 +0000
+Received: from [208.210.124.70] (helo=majesty.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AidsW-00001o-Nd
+	for pobox@dbi.demon.co.uk; Mon, 19 Jan 2004 18:12:00 +0000
+Received: from majesty.pobox.com (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id 3FF1517E7A
+	for <pobox@dbi.demon.co.uk>; Mon, 19 Jan 2004 13:11:59 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id 03C1D17EC2
+	for <Tim.Bunce@pobox.com>; Mon, 19 Jan 2004 13:11:59 -0500 (EST)
+Received: from mail09.svc.cra.dublin.eircom.net (mail09.svc.cra.dublin.eircom.net [159.134.118.25])
+	by majesty.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Mon, 19 Jan 2004 13:11:57 -0500 (EST)
+Received: (qmail 9187 messnum 266690 invoked from network[213.94.228.233/unknown]); 19 Jan 2004 18:11:54 -0000
+Received: from unknown (HELO dansat.data-plan.com) (213.94.228.233)
+  by mail09.svc.cra.dublin.eircom.net (qp 9187) with SMTP; 19 Jan 2004 18:11:54 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0JIDjFO074805;
+	Mon, 19 Jan 2004 18:13:45 GMT
+	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id i0JIDhBQ074804;
+	Mon, 19 Jan 2004 18:13:43 GMT
+Date: Mon, 19 Jan 2004 18:13:43 +0000
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: "Lincoln A. Baxter" <lab@lincolnbaxter.com>
+Cc: Tim Bunce <Tim.Bunce@pobox.com>, hirschs@btv.ibm.com
+Subject: Re: Here you go....
+Message-ID: <20040119181343.GA74780@dansat.data-plan.com>
+References: <1074465816.5065.11.camel@lws>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <1074465816.5065.11.camel@lws>
+User-Agent: Mutt/1.4i
+Status: RO
+Content-Length: 998
+Lines: 33
+
+It's good. Thanks!
+
+I would suggest a few small changes. The main one is to not use the
+third-person.  It should be you ("I") talking to a reader ("you").
+It's much more direct and personal, and so more readable and memorable.
+
+There are a few pod glitches so run it through pod2html to see those.
+
+I'm sure perl.com would be interested in it as an article.
+
+Tim.
+
+On Sun, Jan 18, 2004 at 05:43:36PM -0500, Lincoln A. Baxter wrote:
+> Hi Time,
+> 
+> Here is a a combined POD and test script. (The test script is extracted
+> from the POD and executed if you execute this file.)
+>  
+> With minor changes to this, you could even put it in the DBD-Oracle/t
+> directory.  (you'd have to skip it if Sys::SigAction could not be
+> loaded.
+> 
+> Let me know if this is what you were looking for.  
+> 
+> I wonder of O'Reilly & Assoc  might want to use this as one of their
+> perl email articles they send out periodically?
+> 
+> I was thinking of posting this to dbi-users.  What do you think?
+> 
+> Lincoln
+> 
+
+
+
+From lab@lincolnbaxter.com  Tue Jan 20 07:37:25 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0K7Z6Gg081147
+	for <timbo@localhost>; Tue, 20 Jan 2004 07:37:25 GMT
+	(envelope-from lab@lincolnbaxter.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 20 Jan 2004 07:37:25 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AiomY-00030m-Kk;
+	Tue, 20 Jan 2004 05:50:34 +0000
+Received: from [208.210.124.70] (helo=majesty.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AiomY-00030m-Kk
+	for pobox@dbi.demon.co.uk; Tue, 20 Jan 2004 05:50:34 +0000
+Received: from majesty.pobox.com (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id C042518FCC
+	for <pobox@dbi.demon.co.uk>; Tue, 20 Jan 2004 00:50:33 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by majesty.pobox.com (Postfix) with ESMTP id 9545719012
+	for <Tim.Bunce@pobox.com>; Tue, 20 Jan 2004 00:50:33 -0500 (EST)
+Received: from rwcrmhc12.comcast.net (rwcrmhc12.comcast.net [216.148.227.85])
+	by majesty.pobox.com (Postfix) with ESMTP
+	for <Tim.Bunce@pobox.com>; Tue, 20 Jan 2004 00:50:32 -0500 (EST)
+Received: from lincolnbaxter.com ([68.81.58.8])
+          by comcast.net (rwcrmhc12) with SMTP
+          id <20040120055032014004p6e3e>; Tue, 20 Jan 2004 05:50:32 +0000
+Received: (qmail 25579 invoked from network); 20 Jan 2004 00:50:31 -0500
+Received: from lws (192.168.0.25)
+  by lws with SMTP; 20 Jan 2004 00:50:31 -0500
+Subject: Re: Here you go....
+From: "Lincoln A. Baxter" <lab@lincolnbaxter.com>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Cc: hirschs@btv.ibm.com
+In-Reply-To: <20040119181343.GA74780@dansat.data-plan.com>
+References: <1074465816.5065.11.camel@lws>
+	 <20040119181343.GA74780@dansat.data-plan.com>
+Content-Type: text/plain
+Message-Id: <1074577830.5068.280.camel@lws>
+Mime-Version: 1.0
+X-Mailer: Ximian Evolution 1.4.5 
+Date: Tue, 20 Jan 2004 00:50:30 -0500
+Content-Transfer-Encoding: 7bit
+Status: RO
+Content-Length: 514
+Lines: 19
+
+On Mon, 2004-01-19 at 13:13, Tim Bunce wrote:
+> [snip]
+
+> I would suggest a few small changes. The main one is to not use the
+> third-person.  It should be you ("I") talking to a reader ("you").
+Thanks, thats helpful, I will rewrite.
+
+> There are a few pod glitches so run it through pod2html to see those.
+will do
+
+> I'm sure perl.com would be interested in it as an article.
+I sent at message to nuts@oreilly.com describing the article, and asking
+if they are interested, to whom it should be sent.
+
+Lincoln
+
+
+
+
+
+From perl5-porters-return-87748-Tim.Bunce=pobox.com@perl.org  Sun Jan 25 12:35:30 2004
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id i0PCYRlA022887
+	for <timbo@localhost>; Sun, 25 Jan 2004 12:35:30 GMT
+	(envelope-from perl5-porters-return-87748-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sun, 25 Jan 2004 12:35:30 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AkhYO-0001u5-ED;
+	Sun, 25 Jan 2004 10:31:44 +0000
+Received: from [208.58.1.194] (helo=integer.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AkhYO-0001u5-ED
+	for pobox@dbi.demon.co.uk; Sun, 25 Jan 2004 10:31:44 +0000
+Received: from integer.pobox.com (localhost [127.0.0.1])
+	by integer.pobox.com (Postfix) with ESMTP id 4FF601E497
+	for <pobox@dbi.demon.co.uk>; Sun, 25 Jan 2004 05:31:43 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by integer.pobox.com (Postfix) with ESMTP id 236991E491
+	for <Tim.Bunce@pobox.com>; Sun, 25 Jan 2004 05:31:43 -0500 (EST)
+Received: from onion.perl.org (onion.develooper.com [63.251.223.166])
+	by integer.pobox.com (Postfix) with SMTP
+	for <Tim.Bunce@pobox.com>; Sun, 25 Jan 2004 05:31:42 -0500 (EST)
+Received: (qmail 49921 invoked by uid 1005); 25 Jan 2004 10:31:40 -0000
+Mailing-List: contact perl5-porters-help@perl.org; run by ezmlm
+Precedence: bulk
+list-help: <mailto:perl5-porters-help@perl.org>
+list-unsubscribe: <mailto:perl5-porters-unsubscribe@perl.org>
+list-post: <mailto:perl5-porters@perl.org>
+X-List-Archive: <http://nntp.perl.org/group/perl.perl5.porters/87748>
+Delivered-To: mailing list perl5-porters@perl.org
+Delivered-To: moderator for perl5-porters@perl.org
+Received: (qmail 30117 invoked by uid 76); 25 Jan 2004 00:24:10 -0000
+Delivered-To: perl5-porters@perl.org
+Date: Sun, 25 Jan 2004 11:23:48 +1100
+From: "Brendan O'Dea" <bod@debian.org>
+To: Perl5 Porters <perl5-porters@perl.org>
+Cc: Britton Leo Kerin <fsblk@aurora.uaf.edu>, 224235@bugs.debian.org
+Subject: [PATCH] 5.8.3 -- fix signal comments in L<perlfunc/system>
+Message-ID: <20040125002348.GA31407@londo.c47.org>
+Mail-Followup-To: Perl5 Porters <perl5-porters@perl.org>,
+	Britton Leo Kerin <fsblk@aurora.uaf.edu>, 224235@bugs.debian.org
+References: <E1AWWOA-00064m-00@greenwood>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <E1AWWOA-00064m-00@greenwood>
+User-Agent: Mutt/1.5.5.1+cvs20040105i
+X-Spam-Check-By: la.mx.develooper.com
+X-Spam-Status: No, hits=-1.9 required=7.0 tests=CARRIAGE_RETURNS,IN_REP_TO,REFERENCES,SPAM_PHRASE_02_03,USER_AGENT,USER_AGENT_MUTT version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 2048
+Lines: 51
+
+On Tue, Dec 16, 2003 at 10:46:28PM -0900, Britton Leo Kerin wrote:
+>In the output of perldoc -f system, I read this:
+>...
+>Because "system" and backticks block "SIGINT" and "SIGQUIT", killing
+>the program they're running doesn't actually interrupt your program.
+>...
+>
+>But in fact system() builtin IGNORES these signals during execution of
+>the system() builtin, just like system(3).  They don't get handled
+>after system() is done, as would happen if they were blocked and then
+>unblocked on system() completion.  [...]
+
+Quite correct.  Moreover it appears that backticks (also mentioned)
+neither block or ignore these signals.
+
+A patch for upstream is attached.
+
+As an aside, I found a quite good explanation for why signals are
+ignored in these* APPLICATION NOTES for system(3).  It is perhaps
+interesting that the one situation described where this behaviour has
+"less than the desired effect" is probably the most common in Perl.
+
+* http://www.opengroup.org/onlinepubs/007904975/functions/system.html#tag_03_757_07
+
+--bod
+
+diff -Naur --exclude=debian perl-5.8.3.orig/pod/perlfunc.pod perl-5.8.3/pod/perlfunc.pod
+--- perl-5.8.3.orig/pod/perlfunc.pod	2004-01-14 08:51:09.000000000 +1100
++++ x/perl-5.8.3/pod/perlfunc.pod	2004-01-25 10:13:18.000000000 +1100
+@@ -5761,9 +5761,10 @@
+ Like C<exec>, C<system> allows you to lie to a program about its name if
+ you use the C<system PROGRAM LIST> syntax.  Again, see L</exec>.
+ 
+-Because C<system> and backticks block C<SIGINT> and C<SIGQUIT>,
+-killing the program they're running doesn't actually interrupt
+-your program.
++Since C<SIGINT> and C<SIGQUIT> are ignored during the execution of
++C<system>, if you expect your program to terminate on receipt of these
++signals you will need to arrange to do so yourself based on the return
++value.
+ 
+     @args = ("command", "arg1", "arg2");
+     system(@args) == 0
+@@ -5783,7 +5784,6 @@
+ 	printf "child exited with value %d\n", $? >> 8;
+     }
+ 
+-
+ or more portably by using the W*() calls of the POSIX extension;
+ see L<perlport> for more information.
+ 
+
diff --git a/err_new/err_type_info_all.patch.msg b/err_new/err_type_info_all.patch.msg
new file mode 100644
index 00000000..84ac16fb
--- /dev/null
+++ b/err_new/err_type_info_all.patch.msg
@@ -0,0 +1,65 @@
+From s.goeldner@eurodata.de  Fri Dec 19 19:23:32 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id hBJJN7mq024205
+	for <timbo@localhost>; Fri, 19 Dec 2003 19:23:32 GMT
+	(envelope-from s.goeldner@eurodata.de)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 19 Dec 2003 19:23:32 +0000 (GMT)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1AXML9-0006sh-84;
+	Fri, 19 Dec 2003 19:03:05 +0000
+Received: from [207.8.214.3] (helo=puzzle.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1AXML9-0006sh-84
+	for pobox@dbi.demon.co.uk; Fri, 19 Dec 2003 15:14:55 +0000
+Received: from puzzle.pobox.com (localhost [127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id 2FC4B17415B
+	for <pobox@dbi.demon.co.uk>; Fri, 19 Dec 2003 10:14:33 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from colander (localhost [127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id 3EFCB176448
+	for <Tim.Bunce@pobox.com>; Fri, 19 Dec 2003 10:14:31 -0500 (EST)
+Received: from mail1.ncc.eurodata.de (mail1.ncc.eurodata.de [212.89.134.25])
+	by puzzle.pobox.com (Postfix) with ESMTP
+	for <Tim.Bunce@pobox.com>; Fri, 19 Dec 2003 10:14:19 -0500 (EST)
+Received: from vscan1.ncc.eurodata.de (vscan1.ncc.eurodata.de [212.89.134.21])
+	by mail1.ncc.eurodata.de (Postfix) with ESMTP id B0F4B14C14A
+	for <Tim.Bunce@pobox.com>; Fri, 19 Dec 2003 16:14:16 +0100 (CET)
+Received: by vscan1.ncc.eurodata.de (Postfix, from userid 8)
+	id 7DB2756CCE; Fri, 19 Dec 2003 16:14:16 +0100 (CET)
+Received: from localhost (localhost [127.0.0.1])
+	by vscan1.ncc.eurodata.de (Postfix) with ESMTP id 44E5F56CCD
+	for <Tim.Bunce@pobox.com>; Fri, 19 Dec 2003 16:14:16 +0100 (CET)
+Received: from eurodata.de (mail-redir.eurodata.de [10.2.2.50])
+	by mail1.ncc.eurodata.de (Postfix) with ESMTP id 1CBE214C14B
+	for <Tim.Bunce@pobox.com>; Fri, 19 Dec 2003 16:14:16 +0100 (CET)
+Message-ID: <3FE315EB.A46E3B73@eurodata.de>
+Date: Fri, 19 Dec 2003 16:14:51 +0100
+From: Steffen Goeldner <s.goeldner@eurodata.de>
+Organization: eurodata GmbH & Co.KG
+X-Mailer: Mozilla 4.04 [en] (WinNT; I)
+MIME-Version: 1.0
+To: Tim.Bunce@pobox.com
+Subject: Re: DBI: type_info_all doc
+References: <3FB8922A.4048CAD1@eurodata.de>
+Content-Type: text/plain; charset=us-ascii
+Content-Transfer-Encoding: 7bit
+X-Scanned-By: AMaViS-ng (vscan1) at eurodata.
+Status: RO
+X-Status: A
+Content-Length: 242
+Lines: 12
+
+Tim,
+
+did you receive this patch?
+
+  <http://www.xray.mpe.mpg.de/mailing-lists/dbi/2003-11/msg00209.html>
+
+FYI: I'm away for 2-3 weeks (thus I cannot test your
+Hogmanay release of DBD::Oracle ;-)
+
+
+Merry Christmas and Happy New Year!
+Steffen
+
diff --git a/err_shelved/err_add-defaults-last-insid.msg b/err_shelved/err_add-defaults-last-insid.msg
new file mode 100644
index 00000000..6c1d9f7f
--- /dev/null
+++ b/err_shelved/err_add-defaults-last-insid.msg
@@ -0,0 +1,104 @@
+From cdbi-talk-owner@groups.kasei.com  Thu Aug  7 15:16:23 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h77EFs5s048536
+	for <timbo@localhost>; Thu, 7 Aug 2003 15:16:22 +0100 (BST)
+	(envelope-from cdbi-talk-owner@groups.kasei.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 07 Aug 2003 15:16:22 +0100 (BST)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 19kjFB-0002rO-Dj;
+	Thu, 07 Aug 2003 11:47:45 +0000
+Received: from [216.65.124.72] (helo=orb.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 19kjFB-0002rO-Dj
+	for pobox@dbi.demon.co.uk; Thu, 07 Aug 2003 11:47:45 +0000
+Received: from orb.pobox.com (localhost [127.0.0.1])
+	by orb.pobox.com (Postfix) with ESMTP id A166815633B
+	for <pobox@dbi.demon.co.uk>; Thu,  7 Aug 2003 07:47:44 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from soto.kasei.com (soto.kasei.com [80.76.206.154])
+	by orb.pobox.com (Postfix) with ESMTP
+	id 1A1D915619D; Thu,  7 Aug 2003 07:47:44 -0400 (EDT)
+Received: by soto.kasei.com (Postfix, from userid 103)
+	id 790801C911; Thu,  7 Aug 2003 12:47:41 +0100 (BST)
+X-Original-To: group-post+cdbi-talk@soto.kasei.com
+Delivered-To: group-post+cdbi-talk@soto.kasei.com
+Received: by soto.kasei.com (Postfix, from userid 65534)
+	id 8DF551C8FE; Thu,  7 Aug 2003 12:47:37 +0100 (BST)
+Received: from mail03.svc.cra.dublin.eircom.net (mail03.svc.cra.dublin.eircom.net [159.134.118.19])
+	by soto.kasei.com (Postfix) with SMTP id D181F1C8F5
+	for <cdbi-talk@groups.kasei.com>; Thu,  7 Aug 2003 12:47:36 +0100 (BST)
+Received: (qmail 1901 messnum 152866 invoked from network[159.134.167.25/p793.as1.limerick1.eircom.net]); 7 Aug 2003 11:47:35 -0000
+Received: from p793.as1.limerick1.eircom.net (HELO dansat.data-plan.com) (159.134.167.25)
+  by mail03.svc.cra.dublin.eircom.net (qp 1901) with SMTP; 7 Aug 2003 11:47:35 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h77BlY5Z048311;
+	Thu, 7 Aug 2003 12:47:34 +0100 (BST)
+	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id h77BlYup048310;
+	Thu, 7 Aug 2003 12:47:34 +0100 (BST)
+Date: Thu, 7 Aug 2003 12:47:34 +0100
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Allen Day <allenday@ucla.edu>
+Cc: cdbi-talk@groups.kasei.com
+Subject: Re: v0.93 last_insert patch
+Message-ID: <20030807114734.GE48122@dansat.data-plan.com>
+References: <Pine.LNX.4.44.0303031226310.13477-100000@sumo.genetics.ucla.edu> <Pine.LNX.4.44.0308070249490.25490-200000@sumo.genetics.ucla.edu>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <Pine.LNX.4.44.0308070249490.25490-200000@sumo.genetics.ucla.edu>
+User-Agent: Mutt/1.4i
+X-Spam-Status: No, hits=-5.0 required=5.0
+	tests=EMAIL_ATTRIBUTION,IN_REP_TO,QUOTED_EMAIL_TEXT,REFERENCES,
+	      REPLY_WITH_QUOTES,USER_AGENT_MUTT
+	version=2.55
+X-Spam-Level: 
+X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp)
+X-Loop: cdbi-talk@groups.kasei.com
+X-Sequence: 1677
+Precedence: list
+X-no-archive: yes
+List-Id: <cdbi-talk@groups.kasei.com>
+List-Help: <mailto:sympa@groups.kasei.com?subject=help>
+List-Subscribe: <mailto:sympa@groups.kasei.com?subject=subscribe%20cdbi-talk>
+List-Unsubscribe: <mailto:sympa@groups.kasei.com?subject=unsubscribe%20cdbi-talk>
+List-Post: <mailto:cdbi-talk@groups.kasei.com>
+List-Owner: <mailto:cdbi-talk-request@groups.kasei.com>
+List-Archive: <http://groups.kasei.com/mail/arc/cdbi-talk>
+Status: RO
+Content-Length: 1063
+Lines: 30
+
+On Thu, Aug 07, 2003 at 02:51:33AM -0700, Allen Day wrote:
+> Patch against Class::DBI 0.93 that attempts to find the last inserted PK 
+> id into a table by examining the field's sequence.
+> 
+> -Allen
+
+> *** DBI.pm	Wed Jul  2 03:48:40 2003
+> --- DBI.pm.new	Thu Aug  7 02:46:57 2003
+> ***************
+> *** 481,486 ****
+> --- 481,487 ----
+>   
+>   	# the DBI will provide a standard attribute soon, meanwhile...
+>   	my $id = $dbh->{mysql_insertid}    # mysql
+> + 		|| eval { ($dbh->selectrow_array("select last_value from ".$self->sequence))[0] } #Pg
+>   		|| eval { $dbh->func('last_insert_rowid') };    # SQLite
+
+Nooo!
+
+That'll be very expensive for SQLite users and isn't a good way forward.
+
+This code needs to be reworked to fetch $dbh->{Driver}->{Name} and use it
+in if/elsif chain to decide which logic to apply. The current code didn't
+do that simply because there wer only two choices and the first is very
+cheap to call on the 'wrong' type of driver.
+
+The code should also try calling the new $dbh->last_insert_id method that
+DBI 1.38 will define.
+
+Tim.
+
diff --git a/err_shelved/err_breaks.msg b/err_shelved/err_breaks.msg
new file mode 100644
index 00000000..aa39366c
--- /dev/null
+++ b/err_shelved/err_breaks.msg
@@ -0,0 +1,253 @@
+From jkstill@cybcon.com  Tue Dec 31 07:38:25 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.6/8.12.6) with ESMTP id gBV7XPb8013025
+	for <timbo@localhost>; Tue, 31 Dec 2002 07:35:15 GMT
+	(envelope-from jkstill@cybcon.com)
+Received: from pop3.mail.demon.net [194.217.242.59]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 31 Dec 2002 07:35:15 +0000 (GMT)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1041289078:10:05131:29; Mon, 30 Dec 2002 22:57:58 GMT
+Received: from cali-2.pobox.com ([64.71.166.115]) by punt-1.mail.demon.net
+           id aa1110567; 30 Dec 2002 22:57 GMT
+Received: from cali-2.pobox.com (localhost.localdomain [127.0.0.1])
+	by cali-2.pobox.com (Postfix) with ESMTP
+	id D24653E6E6; Mon, 30 Dec 2002 17:57:45 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from watson.jks.com (dsl2-6.cybcon.net [208.186.116.6])
+	by cali-2.pobox.com (Postfix) with ESMTP id 43E8F3E6AF
+	for <Tim.Bunce@pobox.com>; Mon, 30 Dec 2002 17:57:44 -0500 (EST)
+Received: from sherlock (jkstill@sherlock [192.168.1.101])
+	by watson.jks.com (8.9.3/8.9.3) with SMTP id OAA05796;
+	Mon, 30 Dec 2002 14:57:42 -0800
+Content-Type: Multipart/Mixed;
+  charset="iso-8859-1";
+  boundary="------------Boundary-00=_6SFYUL87AJA1PFL8GFHV"
+From: Jared Still <jkstill@cybcon.com>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Subject: Re: fetching with report breaks, totals and subtotals (was: More on testing cursors in Perl and PL/SQL)
+Date: Mon, 30 Dec 2002 14:57:42 -0800
+X-Mailer: KMail [version 1.2]
+Cc: tl-pause@stlowery.net
+References: <0212232112080A.07110@sherlock> <0212291811281E.07110@sherlock> <20021230120740.GA8565@dansat.data-plan.com>
+In-Reply-To: <20021230120740.GA8565@dansat.data-plan.com>
+MIME-Version: 1.0
+Message-Id: <0212301457421K.07110@sherlock>
+Status: RO
+X-Status: A
+Content-Length: 8127
+Lines: 212
+
+
+--------------Boundary-00=_6SFYUL87AJA1PFL8GFHV
+Content-Type: text/plain;
+  charset="iso-8859-1"
+Content-Transfer-Encoding: 8bit
+
+
+On Monday 30 December 2002 04:07, Tim Bunce wrote:
+
+> On Sun, Dec 29, 2002 at 06:11:28PM -0800, Jared Still wrote:
+> > One more thing:  One of my long time wished for modules is
+> > one that emulates some of the more useful features of SQL*Plus,
+> > namely report breaks, totals and subtotals.  I've finally actually
+> > started on it.
+> >
+> > Would you be interested in seeing that?
+> Yes. And the design/API as much, if not more, than the actual code.
+>
+> I know Tom Lowery is working on extending the DBI::Shell with
+> sufficient functionality to emulate SQL*Plus.
+
+I'll CC Tom Lowery on this.
+
+>
+> FYI, this entry has been in the DBI ToDo file for a few years:
+>
+> 	Add 'break handling' when field values change? Use two fbav's so 'previous
+> 	record' is available. Define break fields and handlers. Call them via
+> 	an alternate fetch_with_break method.
+> 	Jan 2002: Also now see DBIx::FetchLoop (Brendan Fagan)
+>
+> Instead of a fetch_with_break method I think I'd rather add it as
+> a feature of all fetch calls. And by "it" I just mean a generic
+> "invoke callback on field change" mechanism that 'does the right thing'
+> in terms of headers, footers, and correct 'break' handling. Add-on
+> modules could then use that basic mechanism to implement totals and
+> subtotals etc etc.
+>
+> Tim.
+
+
+Sounds pretty much like what I'm doing.
+
+The breaks are actually pretty easy to do, working
+on objectizing (is that a verb?) it at the moment.
+
+Took me awhile to get in the groove, as I haven't 
+done any serious Perl for a few months.
+
+When I have something worth discussing with others,
+I'll make it available on the list.  It will still be alpha and
+changable, but I like to actually have something to look
+at and change if it isn't right, rather than endlessly 
+discussing what it should be.
+
+A starting point if you will, that actually has some traction.
+
+Right now it's pretty simple.  Following is a piece of non-DBi
+sample code.  The statement handle can be passed or
+not, to be used for default format masks.
+
+Many of the parameters are dummies, only the BREAKS
+actually works at the moment.
+
+The breaks are accomplished via a separate module that
+is called by Tie::RPT, if there are columns to break on.
+
+Though very useful to DBI, DBI is not required for this
+to work.   For the moment at least, I'm keeping this as
+generic as possible so that I only have to deal with issues
+directly related to my objective.   i.e. I want to learn how
+to make this work first, before making it a part of other
+modules.
+
+The 2 proto modules are attached.
+
+Jared
+
+
+use Tie::RPT;
+
+my %data = (
+
+   PRJSTAT => {
+      PROJECT_TEAMS  => [qw{ COMMENT_PK  PERSON_PK }],
+      PROJECT_VIEW   => [qw{ MEMBER_COMMENTS MEMBER_NAME PROJECT_COMMENTS 
+PROJECT_NAME}],
+      STATUS_HISTORIES  => [qw{ COMMENT_MILESTONE_PK COMMENT_RISK_PK 
+COMMENT_STATUS_PK PERSON_PK PROJECT_PK STATUS STATUS_DATE}],
+   },
+
+   SCOTT => {
+      AVG_SALARY_VIEW   => [qw{ AVG_SAL_DEPT DEPTNO }],
+      BINCOL_TEST => [qw{ BINARY_DATA CLEAR_TEXT }],
+      BONUS => [qw{ COMM ENAME JOB SAL }]
+   },
+
+);
+
+my %pdata = ();
+my @breaks=qw{ OWNER TABLE_NAME};
+
+my $r = new Tie::RPT(
+   \%pdata, # data container
+   undef,   # \$sth if using DBI
+   # COLUMNS args override $sth if present
+   # column names and format field
+   COLUMNS => {
+      OWNER => '@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<',
+      TABLE_NAME => '@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<',
+      COLUMN_NAME => '@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<',
+   },
+
+   BREAKS => [qw{OWNER TABLE_NAME}],
+   PAGESIZE => 60,
+   LINESIZE => 100,
+
+);
+
+foreach my $towner ( keys %data ) {
+   $pdata{OWNER}=$towner;
+   foreach my $tname ( keys %{$data{$towner}} ) {
+      $pdata{TABLE_NAME}=$tname;
+      foreach my $col ( @{$data{$towner}->{$tname}} ) {
+         $pdata{COLUMN_NAME}=$col;
+         printf "%15s %30s %30s\n",
+            $pdata{OWNER}
+            , $pdata{TABLE_NAME}
+            , $pdata{COLUMN_NAME};
+      }
+   }
+}
+
+
+OUTPUT:
+
+     SCOTT                BONUS                 COMM
+                                               ENAME
+                                                 JOB
+                                                 SAL
+                AVG_SALARY_VIEW         AVG_SAL_DEPT
+                                              DEPTNO
+                    BINCOL_TEST          BINARY_DATA
+                                          CLEAR_TEXT
+   PRJSTAT     STATUS_HISTORIES COMMENT_MILESTONE_PK
+                                     COMMENT_RISK_PK
+                                   COMMENT_STATUS_PK
+                                           PERSON_PK
+                                          PROJECT_PK
+                                              STATUS
+                                         STATUS_DATE
+                  PROJECT_TEAMS           COMMENT_PK
+                                           PERSON_PK
+                   PROJECT_VIEW      MEMBER_COMMENTS
+                                         MEMBER_NAME
+                                    PROJECT_COMMENTS
+                                        PROJECT_NAME
+
+
+
+
+
+--------------Boundary-00=_6SFYUL87AJA1PFL8GFHV
+Content-Type: text/plain;
+  charset="iso-8859-1";
+  name="RPT.pm"
+Content-Transfer-Encoding: base64
+Content-Disposition: attachment; filename="RPT.pm"
+
+CnBhY2thZ2UgVGllOjpSUFQ7Cgp1c2UgRGF0YTo6RHVtcGVyOwoKdXNlIHN0cmljdDsKdXNlIHZh
+cnMgcXcoQElTQSAkVkVSU0lPTik7CnVzZSBUaWU6OlJQVDo6QnJlYWs7CiRWRVJTSU9OID0gJzAu
+MDEnOwpASVNBID0gcXcoVGllOjpTdGRIYXNoKTsKCiRUaWU6OlJQVDo6ZGVidWcgPSAwOwoKc3Vi
+IG5ldyB7CglteSAkcGtnID0gc2hpZnQ7CglteSAkY2xhc3MgPSByZWYoJHBrZykgfHwgJHBrZzsK
+CglteSAoJGhkYXRhLCAkcnN0aCwgJWFyZ3MgKSA9IEBfOwoKCXRpZSAleyRoZGF0YX0sICJUaWU6
+OlJQVDo6QnJlYWsiLCBAeyRhcmdze0JSRUFLU319OwoKCWJsZXNzIFwlYXJncywgJGNsYXNzOwoK
+fQoKIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgoKCjE7CgoK
+
+--------------Boundary-00=_6SFYUL87AJA1PFL8GFHV
+Content-Type: text/plain;
+  charset="iso-8859-1";
+  name="Break.pm"
+Content-Transfer-Encoding: base64
+Content-Disposition: attachment; filename="Break.pm"
+
+CnBhY2thZ2UgVGllOjpSUFQ6OkJyZWFrOwoKdXNlIERhdGE6OkR1bXBlcjsKCnVzZSBzdHJpY3Q7
+CnVzZSB2YXJzIHF3KEBJU0EgJFZFUlNJT04pOwp1c2UgVGllOjpIYXNoOwokVkVSU0lPTiA9ICcw
+LjAxJzsKQElTQSA9IHF3KFRpZTo6U3RkSGFzaCk7Cgp1c2UgdmFycyBxdygkZGVidWcpOwokVGll
+OjpSUFQ6OkJyZWFrOjpkZWJ1ZyA9IDA7CgolVGllOjpSUFQ6Om5ld0JyZWFrVmFscz0oKTsKJVRp
+ZTo6UlBUOjpvbGRCcmVha1ZhbHM9KCk7CkBUaWU6OlJQVDo6QnJlYWtDb2xzPSgpOwoKc3ViIFRJ
+RUhBU0ggewoJbXkgKCRjbGFzcyxAYnJlYWtzKSA9IEBfOwoKCWlmICgkVGllOjpSUFQ6OmRlYnVn
+KSB7CgkJcHJpbnQgIlRJRUhBU0ghXG4iIDsKCQlwcmludCAiQnJlYWtzOiAiLCBEdW1wZXIoXEBi
+cmVha3MpLCAiXG4iOwoJfQoKCUBUaWU6OlJQVDo6QnJlYWtDb2xzID0gQGJyZWFrczsKCSMgcHJp
+bnQgIlRJRUhBU0ghICIsIER1bXBlcihcJVRpZTo6UlBUOjpvbGRCcmVha1ZhbHMpLCAiXG4iOwoJ
+Ymxlc3Mge30sICAkY2xhc3M7Cn0KCnN1YiBTVE9SRSB7CglteSgkaW1wbCwgJGtleSwgJG5ld3Zh
+bCkgPSBAXzsKCXByaW50ICJTVE9SRSFcbiIgaWYgJFRpZTo6UlBUOjpkZWJ1ZzsKCSMkaW1wbC0+
+eyRrZXl9ID0ge2tleT0+JGtleSwgdmFsdWU9PiRuZXd2YWx9OwoJJGltcGwtPnska2V5fSA9ICRu
+ZXd2YWw7Cn0KCnN1YiBGRVRDSCB7CglteSgkaW1wbCwgJGtleSkgPSBAXzsKCgkkVGllOjpSUFQ6
+Om5ld0JyZWFrVmFsc3ska2V5fSA9ICRpbXBsLT57JGtleX07CgoJJFRpZTo6UlBUOjpvbGRCcmVh
+a1ZhbHN7JGtleX0gPSAnJwoJCXVubGVzcyBkZWZpbmVkKCRUaWU6OlJQVDo6b2xkQnJlYWtWYWxz
+eyRrZXl9KTsKCQkKCglpZiAoICRUaWU6OlJQVDo6ZGVidWcgKSB7CgkJcHJpbnQgIkZFVENIIVxu
+IjsKCQlwcmludCAiRkVUQ0gga2V5OiAka2V5XG4iOwoJCXByaW50ICJGRVRDSCBrZXlzOiAiLCBq
+b2luKCc6JyxAVGllOjpSUFQ6OkJyZWFrQ29scyksICJcbiI7CgkJcHJpbnQgIk5FVzogJFRpZTo6
+UlBUOjpuZXdCcmVha1ZhbHN7JGtleX1cbiI7CgkJcHJpbnQgIk9MRDogJFRpZTo6UlBUOjpvbGRC
+cmVha1ZhbHN7JGtleX1cbiI7Cgl9CgoJaWYgKCBncmVwKC8ka2V5LywgQFRpZTo6UlBUOjpCcmVh
+a0NvbHMpKSB7CgkJaWYgKCAkVGllOjpSUFQ6Om5ld0JyZWFrVmFsc3ska2V5fSBlcSAkVGllOjpS
+UFQ6Om9sZEJyZWFrVmFsc3ska2V5fSApIHsKCQkJcHJpbnQgIlx0RkVUQ0ggRVFcbiIgaWYgJFRp
+ZTo6UlBUOjpkZWJ1ZzsKCQkJJGltcGwtPnska2V5fT0nJzsKCQl9IGVsc2UgewoJCQlwcmludCAi
+XHRGRVRDSCBORVFcbiIgaWYgJFRpZTo6UlBUOjpkZWJ1ZzsKCQkJJFRpZTo6UlBUOjpvbGRCcmVh
+a1ZhbHN7JGtleX0gPSAkaW1wbC0+eyRrZXl9OwoJCQkjcmV0dXJuICRpbXBsLT57JGtleX07CgkJ
+fQoJfQoJcmV0dXJuICRpbXBsLT57JGtleX07Cn0KCjE7Cgo=
+
+--------------Boundary-00=_6SFYUL87AJA1PFL8GFHV--
+
diff --git a/err_shelved/err_dbtype.msg b/err_shelved/err_dbtype.msg
new file mode 100644
index 00000000..bef4eae1
--- /dev/null
+++ b/err_shelved/err_dbtype.msg
@@ -0,0 +1,400 @@
+From datetime-return-3604-timbo=dansat.data-plan.com@perl.org  Thu Jul 17 07:30:28 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h6H6UC5p054442
+	for <timbo@localhost>; Thu, 17 Jul 2003 07:30:28 +0100 (BST)
+	(envelope-from datetime-return-3604-timbo=dansat.data-plan.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 17 Jul 2003 07:30:28 +0100 (BST)
+Received: from punt-3.mail.demon.net by mailstore
+          for timbo@dansat.data-plan.com id 19cvwf-1-5lT-7;
+          Wed, 16 Jul 2003 23:44:25 -0000
+Received: from onion.valueclick.com ([64.70.54.95]) by punt-3.mail.demon.net
+           id aa0120427; 16 Jul 2003 23:43 GMT
+Received: (qmail 30724 invoked by uid 1005); 16 Jul 2003 23:43:50 -0000
+Mailing-List: contact datetime-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:datetime@perl.org>
+List-Help: <mailto:datetime-help@perl.org>
+List-Unsubscribe: <mailto:datetime-unsubscribe@perl.org>
+List-Subscribe: <mailto:datetime-subscribe@perl.org>
+Delivered-To: mailing list datetime@perl.org
+Received: (qmail 30709 invoked by uid 1012); 16 Jul 2003 23:43:50 -0000
+To: datetime@perl.org
+Date: 17 Jul 2003 01:16:00 +0200
+From: claus@faerber.muc.de (=?ISO-8859-1?Q?Claus_F=E4rber?=)
+Message-ID: <8q3s6UwocDD@perl.3247.org>
+References: <20030716173843.GA167@alva.zevenwouden.nl>
+	<Pine.GSO.4.44.0307160947550.15849-100000@tiu>
+	<20030716200342.GA368@alva.zevenwouden.nl>
+Subject: Re: DT::F::DBI docs
+User-Agent: OpenXP/32 v3.9.7 (Win32) alpha @ 2003-07-16-1354d
+MIME-Version: 1.0
+Content-Type: text/plain; charset=US-ASCII
+X-Posted-By: 217.235.246.210
+Status: RO
+X-Status: A
+Content-Length: 1721
+Lines: 75
+
+Eugene Van Der Pijll <pijll@gmx.net> schrieb/wrote:
+> Joshua Hoblitt schreef:
+>> If X has identical date/time handling as Pg I'd like to see DT::F::X
+>> be isa DT::F::Pg.  Otherwise things might get a bit confusion for end
+>> users.
+> Hmmm. I count 47 different DBD modules. That means 47 DT::F modules?
+
+Let's see.
+
+The following databases will probably need full support (although some
+will probably have compatible formats):
+
+  DBD::ASAny
+  DBD::DB2
+  DBD::Empress
+  DBD::Illustra
+  DBD::Informix
+  DBD::Ingres
+  DBD::InterBase
+  DBD::Oracle
+  DBD::Ovrimos (still listed as DBD::Altera on search.CPAN.org)
+  DBD::PrimeBase
+  DBD::QBase
+  DBD::RBD
+  DBD::Solid
+  DBD::Sqlflex
+  DBD::Sybase
+  DBD::Unify
+  DBD::mSQL
+  DBD::mysql
+
+The follwing are aliases/alternative implementations for other database
+types and don't need an own implementation:
+
+  DBD::Altera           => DBD::Ovrimos
+  DBD::PgPP             => DBD::Pg
+  DBD::mysqlPP          => DBD::mysql
+
+The following databases are untyped (i.e. we need to make up a format --
+standard SQL92 -- and just use):
+
+  DBD::CSV
+  DBD::RAM
+  DBD::Sprite
+  DBD::XBase
+
+The following are not real databases and handle SQL internally (and
+hopefully use standard SQL and only standard SQL for dates):
+
+  DBD::Excel (not implemented)
+  DBD::SearchServer
+
+The follwing drivers don't handle dates at all:
+
+  DBD::Google
+
+The follwing are just connectors to other APIs or proxies: They will use
+the format of the database they are actually connected to:
+
+  DBD::ADO (?)
+  DBD::ODBC
+  DBD::Multiplex
+  DBD::ODBC
+  DBD::Recall
+  DBD::SQLRelay
+  DBD::pNET
+
+Modules that seem to be outdated/unmaintained anyway:
+
+  DBD::DtfSQLmac
+  DBD::FreeTDS
+
+Claus
+-- 
+http://www.faerber.muc.de
+
+From datetime-return-3618-timbo=dansat.data-plan.com@perl.org  Thu Jul 17 15:40:24 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h6HEe75i058470
+	for <timbo@localhost>; Thu, 17 Jul 2003 15:40:24 +0100 (BST)
+	(envelope-from datetime-return-3618-timbo=dansat.data-plan.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 17 Jul 2003 15:40:24 +0100 (BST)
+Received: from punt-3.mail.demon.net by mailstore
+          for timbo@dansat.data-plan.com id 19d8Og-3-1cj-5;
+          Thu, 17 Jul 2003 13:02:10 -0000
+Received: from onion.valueclick.com ([64.70.54.95]) by punt-3.mail.demon.net
+           id aa0303940; 17 Jul 2003 13:01 GMT
+Received: (qmail 67568 invoked by uid 1005); 17 Jul 2003 13:01:35 -0000
+Mailing-List: contact datetime-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:datetime@perl.org>
+List-Help: <mailto:datetime-help@perl.org>
+List-Unsubscribe: <mailto:datetime-unsubscribe@perl.org>
+List-Subscribe: <mailto:datetime-subscribe@perl.org>
+Delivered-To: mailing list datetime@perl.org
+Received: (qmail 67549 invoked by uid 76); 17 Jul 2003 13:01:35 -0000
+Delivered-To: datetime@perl.org
+Received-SPF: unknown
+Date: Thu, 17 Jul 2003 14:01:15 +0100
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Claus =?iso-8859-1?Q?F=E4rber?= <claus@faerber.muc.de>
+Cc: datetime@perl.org
+Subject: Re: DT::F::DBI docs
+Message-ID: <20030717130115.GJ53123@dansat.data-plan.com>
+References: <20030716173843.GA167@alva.zevenwouden.nl> <Pine.GSO.4.44.0307160947550.15849-100000@tiu> <20030716200342.GA368@alva.zevenwouden.nl> <8q3s6UwocDD@perl.3247.org>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=iso-8859-1
+Content-Disposition: inline
+Content-Transfer-Encoding: 8bit
+In-Reply-To: <8q3s6UwocDD@perl.3247.org>
+User-Agent: Mutt/1.4i
+X-SMTPD: qpsmtpd/0.27-dev, http://develooper.com/code/qpsmtpd/
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-2.7 required=7.0 tests=CARRIAGE_RETURNS,IN_REP_TO,QUOTED_EMAIL_TEXT,REFERENCES,SPAM_PHRASE_00_01,USER_AGENT,USER_AGENT_MUTT version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 2424
+Lines: 90
+
+The DBI has a (currently private) method to determine the underlying
+database type. It was borrowed from DBIx::AnyDBD. Take a look at
+_dbtype_names() in DBI.pm
+
+I intend to extend it to use $dbh->get_info(17); (=SQL_DBMS_NAME),
+and give it a public api, in the medium term.
+
+I think it would be wise to keep in sync with that code,
+and the best way to do that would be to actually use that code,
+and the best way to do that would be to send me patches for
+any changes you may need...
+
+Tim.
+
+On Thu, Jul 17, 2003 at 01:16:00AM +0200, Claus Färber wrote:
+> Eugene Van Der Pijll <pijll@gmx.net> schrieb/wrote:
+> > Joshua Hoblitt schreef:
+> >> If X has identical date/time handling as Pg I'd like to see DT::F::X
+> >> be isa DT::F::Pg.  Otherwise things might get a bit confusion for end
+> >> users.
+> > Hmmm. I count 47 different DBD modules. That means 47 DT::F modules?
+> 
+> Let's see.
+> 
+> The following databases will probably need full support (although some
+> will probably have compatible formats):
+> 
+>   DBD::ASAny
+>   DBD::DB2
+>   DBD::Empress
+>   DBD::Illustra
+>   DBD::Informix
+>   DBD::Ingres
+>   DBD::InterBase
+>   DBD::Oracle
+>   DBD::Ovrimos (still listed as DBD::Altera on search.CPAN.org)
+>   DBD::PrimeBase
+>   DBD::QBase
+>   DBD::RBD
+>   DBD::Solid
+>   DBD::Sqlflex
+>   DBD::Sybase
+>   DBD::Unify
+>   DBD::mSQL
+>   DBD::mysql
+> 
+> The follwing are aliases/alternative implementations for other database
+> types and don't need an own implementation:
+> 
+>   DBD::Altera           => DBD::Ovrimos
+>   DBD::PgPP             => DBD::Pg
+>   DBD::mysqlPP          => DBD::mysql
+> 
+> The following databases are untyped (i.e. we need to make up a format --
+> standard SQL92 -- and just use):
+> 
+>   DBD::CSV
+>   DBD::RAM
+>   DBD::Sprite
+>   DBD::XBase
+> 
+> The following are not real databases and handle SQL internally (and
+> hopefully use standard SQL and only standard SQL for dates):
+> 
+>   DBD::Excel (not implemented)
+>   DBD::SearchServer
+> 
+> The follwing drivers don't handle dates at all:
+> 
+>   DBD::Google
+> 
+> The follwing are just connectors to other APIs or proxies: They will use
+> the format of the database they are actually connected to:
+> 
+>   DBD::ADO (?)
+>   DBD::ODBC
+>   DBD::Multiplex
+>   DBD::ODBC
+>   DBD::Recall
+>   DBD::SQLRelay
+>   DBD::pNET
+> 
+> Modules that seem to be outdated/unmaintained anyway:
+> 
+>   DBD::DtfSQLmac
+>   DBD::FreeTDS
+> 
+> Claus
+> -- 
+> http://www.faerber.muc.de
+
+From datetime-return-3684-timbo=dansat.data-plan.com@perl.org  Mon Jul 21 07:33:16 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h6L6UI83092835
+	for <timbo@localhost>; Mon, 21 Jul 2003 07:33:16 +0100 (BST)
+	(envelope-from datetime-return-3684-timbo=dansat.data-plan.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Mon, 21 Jul 2003 07:33:16 +0100 (BST)
+Received: from punt-1.mail.demon.net by mailstore for timbo@dansat.data-plan.com
+          id 1058735940:10:07622:21; Sun, 20 Jul 2003 21:19:00 GMT
+Received: from onion.valueclick.com ([64.70.54.95]) by punt-1.mail.demon.net
+           id aa1126356; 20 Jul 2003 21:18 GMT
+Received: (qmail 8594 invoked by uid 1005); 20 Jul 2003 21:18:35 -0000
+Mailing-List: contact datetime-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:datetime@perl.org>
+List-Help: <mailto:datetime-help@perl.org>
+List-Unsubscribe: <mailto:datetime-unsubscribe@perl.org>
+List-Subscribe: <mailto:datetime-subscribe@perl.org>
+Delivered-To: mailing list datetime@perl.org
+Received: (qmail 8579 invoked by uid 1012); 20 Jul 2003 21:18:35 -0000
+To: datetime@perl.org
+Date: 20 Jul 2003 22:53:00 +0200
+From: claus@faerber.muc.de (=?ISO-8859-1?Q?Claus_F=E4rber?=)
+Message-ID: <8qCDpTbJcDD@perl.3247.org>
+References: <20030716173843.GA167@alva.zevenwouden.nl>
+	<Pine.GSO.4.44.0307160947550.15849-100000@tiu>
+	<20030716200342.GA368@alva.zevenwouden.nl> <8q3s6UwocDD@perl.3247.org>
+	<20030717130115.GJ53123@dansat.data-plan.com>
+Subject: Re: DT::F::DBI docs
+User-Agent: OpenXP/32 v3.9.7 (Win32) alpha @ 2003-07-16-1354d
+MIME-Version: 1.0
+Content-Type: text/plain; charset=US-ASCII
+X-Posted-By: 217.235.223.85
+Status: RO
+Content-Length: 952
+Lines: 26
+
+Tim Bunce <Tim.Bunce@pobox.com> schrieb/wrote:
+> The DBI has a (currently private) method to determine the underlying
+> database type. It was borrowed from DBIx::AnyDBD. Take a look at
+> _dbtype_names() in DBI.pm
+
+Yeah, I just updated DT::F::DBI to use that function.
+
+> I intend to extend it to use $dbh->get_info(17); (=SQL_DBMS_NAME),
+> and give it a public api, in the medium term.
+
+One of the problems I can see is that it just returns the type ODBC
+returns, which is already a problem for MySQL (returns /^mysqld-.*/[1])  
+and PostgreSQL (returns 'PostgreSQL', not 'Pg'[1]).
+I'm not sure what DBD::PgPP and DBD::PgSPI return, either.
+
+Maybe DBI::_dbtype_names should normalise these DBMS names (e.g. to the  
+corresponding DBD::* driver name, if one exists).
+
+BTW, is there a CVS server for DBI somewhere?
+
+Claus
+
+[1] I have only looked at unixODBC's source code and not installed it,
+    so I might be wrong there.
+-- 
+http://www.faerber.muc.de
+
+From datetime-return-3707-timbo=dansat.data-plan.com@perl.org  Tue Jul 22 18:35:57 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h6MHUN9j003490
+	for <timbo@localhost>; Tue, 22 Jul 2003 18:35:56 +0100 (BST)
+	(envelope-from datetime-return-3707-timbo=dansat.data-plan.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 22 Jul 2003 18:35:56 +0100 (BST)
+Received: from punt-1.mail.demon.net by mailstore for timbo@dansat.data-plan.com
+          id 1058868036:10:08851:2; Tue, 22 Jul 2003 10:00:36 GMT
+Received: from onion.valueclick.com ([64.70.54.95]) by punt-1.mail.demon.net
+           id aa1121040; 22 Jul 2003 10:00 GMT
+Received: (qmail 43624 invoked by uid 1005); 22 Jul 2003 09:59:30 -0000
+Mailing-List: contact datetime-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:datetime@perl.org>
+List-Help: <mailto:datetime-help@perl.org>
+List-Unsubscribe: <mailto:datetime-unsubscribe@perl.org>
+List-Subscribe: <mailto:datetime-subscribe@perl.org>
+Delivered-To: mailing list datetime@perl.org
+Delivered-To: moderator for datetime@perl.org
+Received: (qmail 65284 invoked by uid 76); 21 Jul 2003 22:18:25 -0000
+Delivered-To: datetime@perl.org
+Received-SPF: unknown
+MIME-Version: 1.0
+Date: Mon, 21 Jul 2003 23:17:37 +0100
+To: =?iso-8859-15?Q?Claus_F=E4rber?= <claus@faerber.muc.de>, datetime@perl.org
+Subject: Re: DT::F::DBI docs
+Content-Type: text/plain; charset=iso-8859-15; format=flowed
+References: <20030716173843.GA167@alva.zevenwouden.nl> <Pine.GSO.4.44.0307160947550.15849-100000@tiu> <20030716200342.GA368@alva.zevenwouden.nl> <8q3s6UwocDD@perl.3247.org> <20030717130115.GJ53123@dansat.data-plan.com> <8qCDpTbJcDD@perl.3247.org>
+From: Tim Bunce <Tim.Bunce@pobox.com>
+Message-ID: <oprsoljncjbt4drx@localhost>
+In-Reply-To: <8qCDpTbJcDD@perl.3247.org>
+User-Agent: Opera7.0/Win32 M2 build 2637
+X-SMTPD: qpsmtpd/0.27-dev, http://develooper.com/code/qpsmtpd/
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=0.1 required=7.0 tests=CARRIAGE_RETURNS,IN_REP_TO,QUOTED_EMAIL_TEXT,RCVD_IN_MULTIHOP_DSBL,RCVD_IN_UNCONFIRMED_DSBL,REFERENCES,SPAM_PHRASE_00_01,USER_AGENT version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 1339
+Lines: 41
+
+On 20 Jul 2003 22:53:00 +0200, Claus Frber <claus@xn--frber-gra.muc.de> wrote:
+
+> Tim Bunce <Tim.Bunce@pobox.com> schrieb/wrote:
+>> The DBI has a (currently private) method to determine the underlying
+>> database type. It was borrowed from DBIx::AnyDBD. Take a look at
+>> _dbtype_names() in DBI.pm
+>
+> Yeah, I just updated DT::F::DBI to use that function.
+>
+>> I intend to extend it to use $dbh->get_info(17); (=SQL_DBMS_NAME),
+>> and give it a public api, in the medium term.
+>
+> One of the problems I can see is that it just returns the type ODBC
+> returns, which is already a problem for MySQL (returns /^mysqld-.*/[1])
+
+That is an issue. But that's part of the reason why _dbtype_names()
+returns an ordered list. For "mysqld-foo-bar" it may return something
+like ("mysqld-foo-bar", "mysqld-foo", "mysqld").
+
+> and PostgreSQL (returns 'PostgreSQL', not 'Pg'[1]).
+> I'm not sure what DBD::PgPP and DBD::PgSPI return, either.
+
+> Maybe DBI::_dbtype_names should normalise these DBMS names
+> (e.g. to the  corresponding DBD::* driver name, if one exists).
+
+More likely that the DBI would supply a module that provides mapping
+between the sets of names.
+
+> BTW, is there a CVS server for DBI somewhere?
+
+No. One day...
+
+Tim.
+
+> Claus
+>
+> [1] I have only looked at unixODBC's source code and not installed it,
+> so I might be wrong there.
+
+
+
+
diff --git a/err_shelved/err_leakdetection.msg b/err_shelved/err_leakdetection.msg
new file mode 100644
index 00000000..e3704a84
--- /dev/null
+++ b/err_shelved/err_leakdetection.msg
@@ -0,0 +1,83 @@
+From dbi-users-return-9689-Tim.Bunce=pobox.com@perl.org  Thu Feb 28 07:32:41 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g1S7WfU36991
+	for <timbo@localhost>; Thu, 28 Feb 2002 07:32:41 GMT
+	(envelope-from dbi-users-return-9689-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.21]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 28 Feb 2002 07:32:41 +0000 (GMT)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1014854095:10:17290:13; Wed, 27 Feb 2002 23:54:55 GMT
+Received: from wormwood.pobox.com ([208.210.125.20]) by punt-1.mail.demon.net
+           id aa1017213; 27 Feb 2002 23:54 GMT
+Received: from wormwood.pobox.com (localhost.pobox.com [127.0.0.1])
+	by wormwood.pobox.com (Postfix) with ESMTP id D22B772568
+	for <Tim.Bunce@data-plan.com>; Wed, 27 Feb 2002 18:54:48 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [209.85.157.220])
+	by wormwood.pobox.com (Postfix) with SMTP id 039EA72555
+	for <Tim.Bunce@pobox.com>; Wed, 27 Feb 2002 18:54:46 -0500 (EST)
+Received: (qmail 10819 invoked by uid 1005); 27 Feb 2002 23:54:45 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 10803 invoked by uid 76); 27 Feb 2002 23:54:44 -0000
+Received: from stephenc.theiqgroup.com (HELO stephenc.theiqgroup.com) (216.81.249.18)
+  by onion.perl.org (qpsmtpd/0.06) with SMTP; Wed Feb 27 23:54:44 2002 -0000
+Received: (from stephenc@localhost)
+	by stephenc.theiqgroup.com (8.11.1/8.11.1) id g1RNsZe04191;
+	Wed, 27 Feb 2002 17:54:35 -0600
+Date: Wed, 27 Feb 2002 17:54:35 -0600
+From: Stephen Clouse <stephenc@theiqgroup.com>
+To: Ken Miller <klm@shetlandsoftware.com>
+Cc: dbi-users@perl.org
+Subject: Re: Leaking SV's with DBI - how to find where?
+Message-ID: <20020227235435.GB2921@owns.warpcore.org>
+Mail-Followup-To: Ken Miller <klm@shetlandsoftware.com>,
+	dbi-users@perl.org
+References: <017f01c1bfdb$08b383d0$ff430a9b@HuskyEnergy.Ca>
+Mime-Version: 1.0
+Content-Type: text/plain
+Content-Disposition: inline; filename="msg.pgp"
+In-Reply-To: <017f01c1bfdb$08b383d0$ff430a9b@HuskyEnergy.Ca>
+User-Agent: Mutt/1.3.25i
+Status: RO
+Content-Length: 1161
+Lines: 31
+
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+On Wed, Feb 27, 2002 at 03:06:40PM -0700, Ken Miller wrote:
+> Is there a way to track down where the leaks are occurring without placing
+> debugging messages everywhere?  77 SVs isn't a lot, but when this many SVs
+> are leaked per iteration, and you've got about a million rows to rip
+> through, it adds up to a *lot*.
+
+I find Devel::Leak to be very useful in this regard, as it will actually do a 
+Perl_sv_dump() on the orphaned SVs.  From there you can generally track down 
+where it's coming from, particularly if you put a signal flare in the structure 
+you think is escaping deallocation, say:
+
+	$struct->{foo} = 'YOU HAVE A LEAK';
+
+When the string reemerges in the Devel::Leak output, the problem becomes pretty 
+apparent :)
+
+- -- 
+Stephen Clouse <stephenc@theiqgroup.com>
+Senior Programmer, IQ Coordinator Project Lead
+The IQ Group, Inc. <http://www.theiqgroup.com/>
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.0.6 (GNU/Linux)
+Comment: For info see http://www.gnupg.org
+
+iEYEARECAAYFAjx9cbsACgkQA4aoazQ9p2d0wwCgh5yv4I6RTEwYW8jgmaDm2UWC
+MdEAoN+gadssDYLxZQuVbtTUgjW4kvVK
+=DxRC
+-----END PGP SIGNATURE-----
+
diff --git a/err_shelved/err_multidrivercore.msg b/err_shelved/err_multidrivercore.msg
new file mode 100644
index 00000000..8634c8c8
--- /dev/null
+++ b/err_shelved/err_multidrivercore.msg
@@ -0,0 +1,825 @@
+From G.Eustace@massey.ac.nz  Tue Oct  1 23:06:16 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g91M6BD22629
+	for <timbo@localhost>; Tue, 1 Oct 2002 23:06:11 +0100 (BST)
+	(envelope-from G.Eustace@massey.ac.nz)
+Received: from pop3.mail.demon.net [194.217.242.59]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 01 Oct 2002 23:06:11 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1033508797:20:22648:2; Tue, 01 Oct 2002 21:46:37 GMT
+Received: from wormwood.pobox.com ([208.210.125.20]) by punt-2.mail.demon.net
+           id aa2021994; 1 Oct 2002 21:46 GMT
+Received: from wormwood.pobox.com (localhost.pobox.com [127.0.0.1])
+	by wormwood.pobox.com (Postfix) with ESMTP id 62CF274905
+	for <Tim.Bunce@data-plan.com>; Tue,  1 Oct 2002 17:46:02 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from its-mail1.massey.ac.nz (its-mail1.massey.ac.nz [130.123.128.11])
+	by wormwood.pobox.com (Postfix) with ESMTP id EEE25748C8
+	for <Tim.Bunce@pobox.com>; Tue,  1 Oct 2002 17:45:50 -0400 (EDT)
+Received: from its-mm1.massey.ac.nz (its-mm1.massey.ac.nz [130.123.128.45])
+	by its-mail1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id JAA19229
+	for <Tim.Bunce@pobox.com>; Wed, 2 Oct 2002 09:45:46 +1200 (NZST)
+Received: from its-campus1.massey.ac.nz (Not Verified[130.123.32.254]) by its-mm1.massey.ac.nz with MailMarshal
+	id <B000ff06cc>; Wed, 02 Oct 2002 09:45:46 +1200
+Received: from it012615.massey.ac.nz (it012615.massey.ac.nz [130.123.107.104])
+	by its-campus1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id JAA27520
+	for <Tim.Bunce@pobox.com>; Wed, 2 Oct 2002 09:45:45 +1200 (NZST)
+Subject: Re: Multiple drivers ?
+From: Glen Eustace <G.Eustace@massey.ac.nz>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+In-Reply-To: <20021001213628.GJ8593@dansat.data-plan.com>
+References: <20021001213628.GJ8593@dansat.data-plan.com>
+Content-Type: multipart/mixed; boundary="=-rn1ftfi0iMoVjho1RZ/N"
+X-Mailer: Ximian Evolution 1.0.8 (1.0.8-4) 
+Date: 02 Oct 2002 09:42:32 +1200
+Message-Id: <1033508552.21254.69.camel@it012615>
+Mime-Version: 1.0
+Status: RO
+X-Status: A
+Content-Length: 32557
+Lines: 444
+
+
+--=-rn1ftfi0iMoVjho1RZ/N
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+
+On Wed, 2002-10-02 at 09:36, Tim Bunce wrote:
+> Uh, wasn't paying attention. Sorry. Yes. trace(9), just to me, not the
+> list.
+
+I already sent that, it was included with my last message, but I have included it again.
+
+> Can't promise to spend much time on it. You should also be talking to
+> the authors of the drivers.
+
+I am not sure yet what I should say to them, nor do I know which is at
+fault.
+
+As far as I can see, the problem seems to occur during the creation of the second connection.  There are quite a few messages stating that a HASH already exists.
+
+ 
+-- 
+ .*.  | Glen Eustace, Systems Engineer - Networking.
+ /V\  | Information Technology Services PN460, Turitea,
+(/ \) | Massey University, Palmerston North, New Zealand.
+(   ) | Ph: +64 6 350 5799 x 2707, Fax: +64 6 350 5607
+^^-^^ |------------------------------------------------------------
+
+--=-rn1ftfi0iMoVjho1RZ/N
+Content-Disposition: attachment; filename=xxx
+Content-Type: application/octet-stream; name=xxx
+Content-Transfer-Encoding: base64
+
+U2NyaXB0IHN0YXJ0ZWQgb24gVHVlIE9jdCAgMSAwODo1NjowMCAyMDAyClQyLihpdHMtZGV2MSl3
+b3JrOiAHB3Blcmw1LjguMCBEQklUCBtbS1Rlc3QgDQ0KICAgIERCSSAxLjMwLW5vdGhyZWFkIGRp
+c3BhdGNoIHRyYWNlIGxldmVsIHNldCB0byA5DQogICAgTm90ZTogcGVybCBpcyBydW5uaW5nIHdp
+dGhvdXQgdGhlIHJlY29tbWVuZGVkIHBlcmwgLXcgb3B0aW9uDQppbnN0YWxsX21ldGhvZCBEQkk6
+OmRiOjplcnJzdHIJLCBmbGFncyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OmdldF9pbmZv
+CSAgICB1c2FnZTogbWluIDIsIG1heCAyLCAnJGluZm9fdHlwZScsIHRsIDANCiwgZmxhZ3MgMHgy
+MDENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OmVycgksIGZsYWdzIDB4NA0KaW5zdGFsbF9tZXRo
+b2QgREJJOjpkYjo6ZGlzY29ubmVjdAkgICAgdXNhZ2U6IG1pbiAxLCBtYXggMSwgJycsIHRsIDAN
+CiwgZmxhZ3MgMHg0MDENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OkNMRUFSCSwgZmxhZ3MgMHg0
+DQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpzdGF0ZQkgICAgdXNhZ2U6IG1pbiAxLCBtYXggMSwg
+JycsIHRsIDANCiwgZmxhZ3MgMHg1DQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpfbm90X2ltcGwJ
+DQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpzZWxlY3Ryb3dfYXJyYXkJICAgIHVzYWdlOiBtaW4g
+MiwgbWF4IDAsICckc3RhdGVtZW50IFssIFwlYXR0ciBbLCBAYmluZF9wYXJhbXMgXSBdJywgdGwg
+MA0KLCBmbGFncyAweDENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnRyYWNlCSAgICB1c2FnZTog
+bWluIDEsIG1heCAzLCAnWyR0cmFjZV9sZXZlbCwgWyRmaWxlbmFtZV1dJywgdGwgMA0KLCBmbGFn
+cyAweDUNCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnF1b3RlX2lkZW50aWZpZXIJICAgIHVzYWdl
+OiBtaW4gMiwgbWF4IDUsICckbmFtZSBbLCAuLi5dJywgdGwgMA0KLCBmbGFncyAweDQzMQ0KaW5z
+dGFsbF9tZXRob2QgREJJOjpkYjo6dGFibGVzCSAgICB1c2FnZTogbWluIDEsIG1heCA2LCAnJGNh
+dGFsb2csICRzY2hlbWEsICR0YWJsZSwgJHR5cGUgWywgXCVhdHRyIF0nLCB0bCAwDQosIGZsYWdz
+IDB4MjAxDQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpxdW90ZQkgICAgdXNhZ2U6IG1pbiAyLCBt
+YXggMywgJyRzdHJpbmcgWywgJGRhdGFfdHlwZSBdJywgdGwgMA0KLCBmbGFncyAweDQzMQ0KaW5z
+dGFsbF9tZXRob2QgREJJOjpkYjo6ZGVidWcJICAgIHVzYWdlOiBtaW4gMSwgbWF4IDIsICdbJGRl
+YnVnX2xldmVsXScsIHRsIDANCiwgZmxhZ3MgMHg1DQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpi
+ZWdpbl93b3JrCSAgICB1c2FnZTogbWluIDEsIG1heCAyLCAnWyBcJWF0dHIgXScsIHRsIDANCiwg
+ZmxhZ3MgMHg0MDENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnNlbGVjdHJvd19hcnJheXJlZgkg
+ICAgdXNhZ2U6IG1pbiAyLCBtYXggMCwgJyRzdGF0ZW1lbnQgWywgXCVhdHRyIFssIEBiaW5kX3Bh
+cmFtcyBdIF0nLCB0bCAwDQosIGZsYWdzIDB4MQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6dHlw
+ZV9pbmZvCSAgICB1c2FnZTogbWluIDEsIG1heCAyLCAnJGRhdGFfdHlwZScsIHRsIDANCiwgZmxh
+Z3MgMHgyMDENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OmZvcmVpZ25fa2V5X2luZm8JICAgIHVz
+YWdlOiBtaW4gMSwgbWF4IDcsICckcGtfY2F0YWxvZywgJHBrX3NjaGVtYSwgJHBrX3RhYmxlLCAk
+ZmtfY2F0YWxvZywgJGZrX3NjaGVtYSwgJGZrX3RhYmxlJywgdGwgMA0KLCBmbGFncyAweDIwMQ0K
+aW5zdGFsbF9tZXRob2QgREJJOjpkYjo6cHJpbWFyeV9rZXkJICAgIHVzYWdlOiBtaW4gNCwgbWF4
+IDUsICckY2F0YWxvZywgJHNjaGVtYSwgJHRhYmxlIFssIFwlYXR0ciBdJywgdGwgMA0KLCBmbGFn
+cyAweDIwMQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6REVTVFJPWQkNCmluc3RhbGxfbWV0aG9k
+IERCSTo6ZGI6OmV2ZW50CSAgICB1c2FnZTogbWluIDIsIG1heCAwLCAnJHR5cGUsIEBhcmdzJywg
+dGwgMA0KLCBmbGFncyAweDUNCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OlNUT1JFCSwgZmxhZ3Mg
+MHg0MTANCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OmNvbW1pdAkgICAgdXNhZ2U6IG1pbiAxLCBt
+YXggMSwgJycsIHRsIDANCiwgZmxhZ3MgMHg0ODENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnBy
+aXZhdGVfZGF0YQkgICAgdXNhZ2U6IG1pbiAxLCBtYXggMSwgJycsIHRsIDANCiwgZmxhZ3MgMHg1
+DQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpwaW5nCSAgICB1c2FnZTogbWluIDEsIG1heCAxLCAn
+JywgdGwgMA0KLCBmbGFncyAweDQwNQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6c2VsZWN0YWxs
+X2FycmF5cmVmCSAgICB1c2FnZTogbWluIDIsIG1heCAwLCAnJHN0YXRlbWVudCBbLCBcJWF0dHIg
+WywgQGJpbmRfcGFyYW1zIF0gXScsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0YWxsX21ldGhvZCBE
+Qkk6OmRiOjp0eXBlX2luZm9fYWxsCSAgICB1c2FnZTogbWluIDEsIG1heCAxLCAnJywgdGwgMA0K
+LCBmbGFncyAweDIwMQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6dHJhY2VfbXNnCSAgICB1c2Fn
+ZTogbWluIDIsIG1heCAzLCAnJG1lc3NhZ2VfdGV4dCBbLCAkbWluX2xldmVsIF0nLCB0bCA4DQos
+IGZsYWdzIDB4NQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6ZG8JICAgIHVzYWdlOiBtaW4gMiwg
+bWF4IDAsICckc3RhdGVtZW50IFssIFwlYXR0ciBbLCBAYmluZF9wYXJhbXMgXSBdJywgdGwgMA0K
+LCBmbGFncyAweDENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnNlbGVjdGNvbF9hcnJheXJlZgkg
+ICAgdXNhZ2U6IG1pbiAyLCBtYXggMCwgJyRzdGF0ZW1lbnQgWywgXCVhdHRyIFssIEBiaW5kX3Bh
+cmFtcyBdIF0nLCB0bCAwDQosIGZsYWdzIDB4MQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6cm93
+cwksIGZsYWdzIDB4NA0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6cHJlcGFyZV9jYWNoZWQJICAg
+IHVzYWdlOiBtaW4gMiwgbWF4IDQsICckc3RhdGVtZW50IFssIFwlYXR0ciBbLCAkYWxsb3dfYWN0
+aXZlIF0gXScsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpORVhU
+S0VZCSwgZmxhZ3MgMHg0DQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpjb2x1bW5faW5mbwkgICAg
+dXNhZ2U6IG1pbiAxLCBtYXggNiwgJyRjYXRhbG9nLCAkc2NoZW1hLCAkdGFibGUsICRjb2x1bW4g
+WywgXCVhdHRyIF0nLCB0bCAwDQosIGZsYWdzIDB4MjAxDQppbnN0YWxsX21ldGhvZCBEQkk6OmRi
+Ojpyb2xsYmFjawkgICAgdXNhZ2U6IG1pbiAxLCBtYXggMSwgJycsIHRsIDANCiwgZmxhZ3MgMHg0
+ODENCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnByaW1hcnlfa2V5X2luZm8JICAgIHVzYWdlOiBt
+aW4gNCwgbWF4IDUsICckY2F0YWxvZywgJHNjaGVtYSwgJHRhYmxlIFssIFwlYXR0ciBdJywgdGwg
+MA0KLCBmbGFncyAweDIwMQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6dGFibGVfaW5mbwkgICAg
+dXNhZ2U6IG1pbiAxLCBtYXggNiwgJyRjYXRhbG9nLCAkc2NoZW1hLCAkdGFibGUsICR0eXBlIFss
+IFwlYXR0ciBdJywgdGwgMA0KLCBmbGFncyAweDIwMQ0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6
+cHJlcGFyZQkgICAgdXNhZ2U6IG1pbiAyLCBtYXggMywgJyRzdGF0ZW1lbnQgWywgXCVhdHRyXScs
+IHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0YWxsX21ldGhvZCBEQkk6OmRiOjpFWElTVFMJLCBmbGFn
+cyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnByZXBhcnNlCSwgZmxhZ3MgMHgwDQppbnN0
+YWxsX21ldGhvZCBEQkk6OmRiOjpjb25uZWN0ZWQJLCBmbGFncyAweDEwMA0KaW5zdGFsbF9tZXRo
+b2QgREJJOjpkYjo6RkVUQ0gJLCBmbGFncyAweDQwNA0KaW5zdGFsbF9tZXRob2QgREJJOjpkYjo6
+RklSU1RLRVkJLCBmbGFncyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6ZGI6OnNlbGVjdGFsbF9o
+YXNocmVmCSAgICB1c2FnZTogbWluIDMsIG1heCAwLCAnJHN0YXRlbWVudCwgJGtleWZpZWxkIFss
+IFwlYXR0ciBbLCBAYmluZF9wYXJhbXMgXSBdJywgdGwgMA0KLCBmbGFncyAweDENCmluc3RhbGxf
+bWV0aG9kIERCSTo6ZGI6OnNldF9lcnIJLCBmbGFncyAweDANCmluc3RhbGxfbWV0aG9kIERCSTo6
+ZGI6OnNlbGVjdHJvd19oYXNocmVmCSAgICB1c2FnZTogbWluIDIsIG1heCAwLCAnJHN0YXRlbWVu
+dCBbLCBcJWF0dHIgWywgQGJpbmRfcGFyYW1zIF0gXScsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0
+YWxsX21ldGhvZCBEQkk6OmRiOjpmdW5jCSwgZmxhZ3MgMHg2DQppbnN0YWxsX21ldGhvZCBEQkk6
+OmRyOjplcnJzdHIJLCBmbGFncyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6ZHI6OmVycgksIGZs
+YWdzIDB4NA0KaW5zdGFsbF9tZXRob2QgREJJOjpkcjo6ZGlzY29ubmVjdF9hbGwJICAgIHVzYWdl
+OiBtaW4gMSwgbWF4IDEsICcnLCB0bCAwDQosIGZsYWdzIDB4MQ0KaW5zdGFsbF9tZXRob2QgREJJ
+Ojpkcjo6Q0xFQVIJLCBmbGFncyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6ZHI6OnN0YXRlCSAg
+ICB1c2FnZTogbWluIDEsIG1heCAxLCAnJywgdGwgMA0KLCBmbGFncyAweDUNCmluc3RhbGxfbWV0
+aG9kIERCSTo6ZHI6Ol9ub3RfaW1wbAkNCmluc3RhbGxfbWV0aG9kIERCSTo6ZHI6OnRyYWNlCSAg
+ICB1c2FnZTogbWluIDEsIG1heCAzLCAnWyR0cmFjZV9sZXZlbCwgWyRmaWxlbmFtZV1dJywgdGwg
+MA0KLCBmbGFncyAweDUNCmluc3RhbGxfbWV0aG9kIERCSTo6ZHI6OmRlYnVnCSAgICB1c2FnZTog
+bWluIDEsIG1heCAyLCAnWyRkZWJ1Z19sZXZlbF0nLCB0bCAwDQosIGZsYWdzIDB4NQ0KaW5zdGFs
+bF9tZXRob2QgREJJOjpkcjo6ZGVmYXVsdF91c2VyCSAgICB1c2FnZTogbWluIDMsIG1heCA0LCAn
+JHVzZXIsICRwYXNzIFssIFwlYXR0cl0nLCB0bCAwDQosIGZsYWdzIDB4MQ0KaW5zdGFsbF9tZXRo
+b2QgREJJOjpkcjo6REVTVFJPWQkNCmluc3RhbGxfbWV0aG9kIERCSTo6ZHI6OmV2ZW50CSAgICB1
+c2FnZTogbWluIDIsIG1heCAwLCAnJHR5cGUsIEBhcmdzJywgdGwgMA0KLCBmbGFncyAweDUNCmlu
+c3RhbGxfbWV0aG9kIERCSTo6ZHI6OlNUT1JFCSwgZmxhZ3MgMHg0MTANCmluc3RhbGxfbWV0aG9k
+IERCSTo6ZHI6OnByaXZhdGVfZGF0YQkgICAgdXNhZ2U6IG1pbiAxLCBtYXggMSwgJycsIHRsIDAN
+CiwgZmxhZ3MgMHg1DQppbnN0YWxsX21ldGhvZCBEQkk6OmRyOjp0cmFjZV9tc2cJICAgIHVzYWdl
+OiBtaW4gMiwgbWF4IDMsICckbWVzc2FnZV90ZXh0IFssICRtaW5fbGV2ZWwgXScsIHRsIDgNCiwg
+ZmxhZ3MgMHg1DQppbnN0YWxsX21ldGhvZCBEQkk6OmRyOjpORVhUS0VZCSwgZmxhZ3MgMHg0DQpp
+bnN0YWxsX21ldGhvZCBEQkk6OmRyOjpjb25uZWN0CSAgICB1c2FnZTogbWluIDEsIG1heCA1LCAn
+WyRkYiBbLCR1c2VyIFssJHBhc3N3ZCBbLFwlYXR0cl1dXV0nLCB0bCAwDQosIGZsYWdzIDB4MQ0K
+aW5zdGFsbF9tZXRob2QgREJJOjpkcjo6RVhJU1RTCSwgZmxhZ3MgMHg0DQppbnN0YWxsX21ldGhv
+ZCBEQkk6OmRyOjpGSVJTVEtFWQksIGZsYWdzIDB4NA0KaW5zdGFsbF9tZXRob2QgREJJOjpkcjo6
+RkVUQ0gJLCBmbGFncyAweDQwNA0KaW5zdGFsbF9tZXRob2QgREJJOjpkcjo6ZGF0YV9zb3VyY2Vz
+CSAgICB1c2FnZTogbWluIDEsIG1heCAyLCAnW1wlYXR0cl0nLCB0bCAwDQosIGZsYWdzIDB4MQ0K
+aW5zdGFsbF9tZXRob2QgREJJOjpkcjo6c2V0X2VycgksIGZsYWdzIDB4MA0KaW5zdGFsbF9tZXRo
+b2QgREJJOjpkcjo6ZnVuYwksIGZsYWdzIDB4Ng0KaW5zdGFsbF9tZXRob2QgREJJOjpkcjo6Y29u
+bmVjdF9jYWNoZWQJICAgIHVzYWdlOiBtaW4gMSwgbWF4IDUsICdbJGRiIFssJHVzZXIgWywkcGFz
+c3dkIFssXCVhdHRyXV1dXScsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0YWxsX21ldGhvZCBEQkk6
+OnN0OjplcnJzdHIJLCBmbGFncyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6Om1vcmVfcmVz
+dWx0cwkgICAgdXNhZ2U6IG1pbiAxLCBtYXggMSwgJycsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0
+YWxsX21ldGhvZCBEQkk6OnN0OjpibG9iX3JlYWQJICAgIHVzYWdlOiBtaW4gNCwgbWF4IDUsICck
+ZmllbGQsICRvZmZzZXQsICRsZW4gWywgXCRidWYgWywgJGJ1Zm9mZnNldF1dJywgdGwgMA0KLCBm
+bGFncyAweDENCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OmJpbmRfcGFyYW1faW5vdXRfYXJyYXkJ
+ICAgIHVzYWdlOiBtaW4gNCwgbWF4IDUsICckcGFyYW1ldGVyLCBcQHZhciwgJG1heGxlbiwgWywg
+XCVhdHRyXScsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0YWxsX21ldGhvZCBEQkk6OnN0OjpmZXRj
+aGFsbF9oYXNocmVmCSAgICB1c2FnZTogbWluIDIsIG1heCAyLCAnJywgdGwgMA0KLCBmbGFncyAw
+eDENCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OmVycgksIGZsYWdzIDB4NA0KaW5zdGFsbF9tZXRo
+b2QgREJJOjpzdDo6Q0xFQVIJLCBmbGFncyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OnN0
+YXRlCSAgICB1c2FnZTogbWluIDEsIG1heCAxLCAnJywgdGwgMA0KLCBmbGFncyAweDUNCmluc3Rh
+bGxfbWV0aG9kIERCSTo6c3Q6Ol9ub3RfaW1wbAkNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OnRy
+YWNlCSAgICB1c2FnZTogbWluIDEsIG1heCAzLCAnWyR0cmFjZV9sZXZlbCwgWyRmaWxlbmFtZV1d
+JywgdGwgMA0KLCBmbGFncyAweDUNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6Ol9nZXRfZmJhdgkN
+Cmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OmRlYnVnCSAgICB1c2FnZTogbWluIDEsIG1heCAyLCAn
+WyRkZWJ1Z19sZXZlbF0nLCB0bCAwDQosIGZsYWdzIDB4NQ0KaW5zdGFsbF9tZXRob2QgREJJOjpz
+dDo6ZmV0Y2hyb3cJDQppbnN0YWxsX21ldGhvZCBEQkk6OnN0Ojpfc2V0X2ZiYXYJLCBmbGFncyAw
+eDANCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OmV4ZWN1dGVfYXJyYXkJICAgIHVzYWdlOiBtaW4g
+MiwgbWF4IDAsICdcJWF0dHJpYnMgWywgQGFyZ3NdJywgdGwgMA0KLCBmbGFncyAweDENCmluc3Rh
+bGxfbWV0aG9kIERCSTo6c3Q6OmZldGNoCQ0KaW5zdGFsbF9tZXRob2QgREJJOjpzdDo6ZmV0Y2hy
+b3dfYXJyYXkJDQppbnN0YWxsX21ldGhvZCBEQkk6OnN0OjpERVNUUk9ZCQ0KaW5zdGFsbF9tZXRo
+b2QgREJJOjpzdDo6ZXZlbnQJICAgIHVzYWdlOiBtaW4gMiwgbWF4IDAsICckdHlwZSwgQGFyZ3Mn
+LCB0bCAwDQosIGZsYWdzIDB4NQ0KaW5zdGFsbF9tZXRob2QgREJJOjpzdDo6U1RPUkUJLCBmbGFn
+cyAweDQxMA0KaW5zdGFsbF9tZXRob2QgREJJOjpzdDo6YmluZF9jb2wJICAgIHVzYWdlOiBtaW4g
+MywgbWF4IDQsICckY29sdW1uLCBcJHZhciBbLCBcJWF0dHJdJywgdGwgMA0KLCBmbGFncyAweDEN
+Cmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OnByaXZhdGVfZGF0YQkgICAgdXNhZ2U6IG1pbiAxLCBt
+YXggMSwgJycsIHRsIDANCiwgZmxhZ3MgMHg1DQppbnN0YWxsX21ldGhvZCBEQkk6OnN0OjpmZXRj
+aHJvd19hcnJheXJlZgkNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OmNhbmNlbAkgICAgdXNhZ2U6
+IG1pbiAxLCBtYXggMSwgJycsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0YWxsX21ldGhvZCBEQkk6
+OnN0Ojp0cmFjZV9tc2cJICAgIHVzYWdlOiBtaW4gMiwgbWF4IDMsICckbWVzc2FnZV90ZXh0IFss
+ICRtaW5fbGV2ZWwgXScsIHRsIDgNCiwgZmxhZ3MgMHg1DQppbnN0YWxsX21ldGhvZCBEQkk6OnN0
+OjpmaW5pc2gJICAgIHVzYWdlOiBtaW4gMSwgbWF4IDEsICcnLCB0bCAwDQosIGZsYWdzIDB4MQ0K
+aW5zdGFsbF9tZXRob2QgREJJOjpzdDo6cm93cwksIGZsYWdzIDB4NA0KaW5zdGFsbF9tZXRob2Qg
+REJJOjpzdDo6TkVYVEtFWQksIGZsYWdzIDB4NA0KaW5zdGFsbF9tZXRob2QgREJJOjpzdDo6ZmV0
+Y2hyb3dfaGFzaHJlZgkNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OmR1bXBfcmVzdWx0cwkgICAg
+dXNhZ2U6IG1pbiAxLCBtYXggNSwgJyRtYXhmaWVsZGxlbiwgJGxpbmVzZXAsICRmaWVsZHNlcCwg
+JGZpbGVoYW5kbGUnLCB0bCAwDQosIGZsYWdzIDB4MQ0KaW5zdGFsbF9tZXRob2QgREJJOjpzdDo6
+YmluZF9wYXJhbV9hcnJheQkgICAgdXNhZ2U6IG1pbiAzLCBtYXggNCwgJyRwYXJhbWV0ZXIsICR2
+YXIgWywgXCVhdHRyXScsIHRsIDANCiwgZmxhZ3MgMHgxDQppbnN0YWxsX21ldGhvZCBEQkk6OnN0
+OjpFWElTVFMJLCBmbGFncyAweDQNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OkZFVENICSwgZmxh
+Z3MgMHg0MDQNCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OkZJUlNUS0VZCSwgZmxhZ3MgMHg0DQpp
+bnN0YWxsX21ldGhvZCBEQkk6OnN0OjpzZXRfZXJyCSwgZmxhZ3MgMHgwDQppbnN0YWxsX21ldGhv
+ZCBEQkk6OnN0OjpleGVjdXRlCSAgICB1c2FnZTogbWluIDEsIG1heCAwLCAnW0BhcmdzXScsIHRs
+IDANCiwgZmxhZ3MgMHg0MQ0KaW5zdGFsbF9tZXRob2QgREJJOjpzdDo6ZmV0Y2hhbGxfYXJyYXly
+ZWYJICAgIHVzYWdlOiBtaW4gMSwgbWF4IDMsICcnLCB0bCAwDQosIGZsYWdzIDB4MQ0KaW5zdGFs
+bF9tZXRob2QgREJJOjpzdDo6YmluZF9wYXJhbV9pbm91dAkgICAgdXNhZ2U6IG1pbiA0LCBtYXgg
+NSwgJyRwYXJhbWV0ZXIsIFwkdmFyLCAkbWF4bGVuLCBbLCBcJWF0dHJdJywgdGwgMA0KLCBmbGFn
+cyAweDENCmluc3RhbGxfbWV0aG9kIERCSTo6c3Q6OmJpbmRfY29sdW1ucwkgICAgdXNhZ2U6IG1p
+biAyLCBtYXggMCwgJ1wkdmFyMSBbLCBcJHZhcjIsIC4uLl0nLCB0bCAwDQosIGZsYWdzIDB4MQ0K
+aW5zdGFsbF9tZXRob2QgREJJOjpzdDo6ZnVuYwksIGZsYWdzIDB4Ng0KaW5zdGFsbF9tZXRob2Qg
+REJJOjpzdDo6YmxvYl9jb3B5X3RvX2ZpbGUJICAgIHVzYWdlOiBtaW4gMywgbWF4IDMsICckZmll
+bGQsICRmaWxlbmFtZV9vcl9oYW5kbGVyZWYnLCB0bCAwDQosIGZsYWdzIDB4MQ0KaW5zdGFsbF9t
+ZXRob2QgREJJOjpzdDo6YmluZF9wYXJhbQkgICAgdXNhZ2U6IG1pbiAzLCBtYXggNCwgJyRwYXJh
+bWV0ZXIsICR2YXIgWywgXCVhdHRyXScsIHRsIDANCiwgZmxhZ3MgMHgxDQogICAgLT4gREJJLT5j
+b25uZWN0KGRiaTpJbmdyZXM6aXRzLWFkbWluMTo6Y3NhZG1pbnAsIGRiZ3Vlc3QsICoqKiosIEhB
+U0goMHgxNDAwMDI1ZDApKQ0KICAgIC0+IERCSS0+aW5zdGFsbF9kcml2ZXIoSW5ncmVzKSBmb3Ig
+ZGVjX29zZiBwZXJsPTUuMDA4IHBpZD0xMTE1MCBydWlkPTEwMCBldWlkPTEwMA0KICAgICAgIGlu
+c3RhbGxfZHJpdmVyOiBEQkQ6OkluZ3JlcyB2ZXJzaW9uIDAuMzQgbG9hZGVkIGZyb20gL3Vzci9s
+b2NhbC9saWIvcGVybDUvc2l0ZV9wZXJsLzUuOC4wL2FscGhhLWRlY19vc2YtbXVsdGkvREJEL0lu
+Z3Jlcy5wbQ0KICAgIE5ldyBEQkk6OmRyIChmb3IgREJEOjpJbmdyZXM6OmRyLCBwYXJlbnQ9LCBp
+ZD0pDQogICAgZGJpaF9zZXR1cF9oYW5kbGUoREJJOjpkcj1IQVNIKDB4MTQwMDBiN2EwKT0+REJJ
+Ojpkcj1IQVNIKDB4MTQwMTExNGYwKSwgREJEOjpJbmdyZXM6OmRyLCAwLCBOdWxsISkNCiAgICBk
+YmloX21ha2VfY29tKE51bGwhLCBEQkQ6OkluZ3Jlczo6ZHIsIDE1MikgdGhyIzE0MDAwNDAwMA0K
+ICAgIGRiaWhfc2V0dXBfYXR0cmliKERCSTo6ZHI9SEFTSCgweDE0MDExMTRmMCksIEVyciwgTnVs
+bCEpIFNDQUxBUigweDE0MDExNTBiMCkgKGFscmVhZHkgZGVmaW5lZCkNCiAgICBkYmloX3NldHVw
+X2F0dHJpYihEQkk6OmRyPUhBU0goMHgxNDAxMTE0ZjApLCBTdGF0ZSwgTnVsbCEpIFNDQUxBUigw
+eDE0MDAwYmE2MCkgKGFscmVhZHkgZGVmaW5lZCkNCiAgICBkYmloX3NldHVwX2F0dHJpYihEQkk6
+OmRyPUhBU0goMHgxNDAxMTE0ZjApLCBFcnJzdHIsIE51bGwhKSBTQ0FMQVIoMHgxNDAxMTUwODAp
+IChhbHJlYWR5IGRlZmluZWQpDQogICAgZGJpaF9zZXR1cF9hdHRyaWIoREJJOjpkcj1IQVNIKDB4
+MTQwMTExNGYwKSwgRGVidWcsIE51bGwhKSAwIChhbHJlYWR5IGRlZmluZWQpDQogICAgZGJpaF9z
+ZXR1cF9hdHRyaWIoREJJOjpkcj1IQVNIKDB4MTQwMTExNGYwKSwgRmV0Y2hIYXNoS2V5TmFtZSwg
+TnVsbCEpICdOQU1FJyAoYWxyZWFkeSBkZWZpbmVkKQ0KICAgIDwtIGluc3RhbGxfZHJpdmVyPSBE
+Qkk6OmRyPUhBU0goMHgxNDAwMGI3YTApDQogICAgPj4gY29ubmVjdCAgICAgRElTUEFUQ0ggKERC
+STo6ZHI9SEFTSCgweDE0MDAwYjdhMCkgcmMxLzMgQDUgZzAgaW1hMSBwaWQjMTExNTApIGF0IC91
+c3IvbG9jYWwvbGliL3Blcmw1L3NpdGVfcGVybC81LjguMC9hbHBoYS1kZWNfb3NmLW11bHRpL0RC
+SS5wbSBsaW5lIDUwMyB2aWEgREJJVGVzdCBsaW5lIDINCiAgICAtPiBjb25uZWN0IGZvciBEQkQ6
+OkluZ3Jlczo6ZHIgKERCSTo6ZHI9SEFTSCgweDE0MDAwYjdhMCl+MHgxNDAxMTE0ZjAgJ2l0cy1h
+ZG1pbjE6OmNzYWRtaW5wJyAnZGJndWVzdCcgKioqKiBIQVNIKDB4MTQwMTIzMjMwKSkNCiAgICBO
+ZXcgREJJOjpkYiAoZm9yIERCRDo6SW5ncmVzOjpkYiwgcGFyZW50PURCSTo6ZHI9SEFTSCgweDE0
+MDExMTRmMCksIGlkPSkNCiAgICBkYmloX3NldHVwX2hhbmRsZShEQkk6OmRiPUhBU0goMHgxNDAx
+MTE0YTApPT5EQkk6OmRiPUhBU0goMHgxNDAxMTE0MzApLCBEQkQ6OkluZ3Jlczo6ZGIsIDE0MDAw
+YjNlMCwgTnVsbCEpDQogICAgZGJpaF9tYWtlX2NvbShEQkk6OmRyPUhBU0goMHgxNDAxMTE0ZjAp
+LCBEQkQ6OkluZ3Jlczo6ZGIsIDE3NikgdGhyIzE0MDAwNDAwMA0KICAgIGRiaWhfc2V0dXBfYXR0
+cmliKERCSTo6ZGI9SEFTSCgweDE0MDExMTQzMCksIEVyciwgREJJOjpkcj1IQVNIKDB4MTQwMTEx
+NGYwKSkgU0NBTEFSKDB4MTQwMTE1MGIwKSAoYWxyZWFkeSBkZWZpbmVkKQ0KICAgIGRiaWhfc2V0
+dXBfYXR0cmliKERCSTo6ZGI9SEFTSCgweDE0MDExMTQzMCksIFN0YXRlLCBEQkk6OmRyPUhBU0go
+MHgxNDAxMTE0ZjApKSBTQ0FMQVIoMHgxNDAwMGJhNjApIChhbHJlYWR5IGRlZmluZWQpDQogICAg
+ZGJpaF9zZXR1cF9hdHRyaWIoREJJOjpkYj1IQVNIKDB4MTQwMTExNDMwKSwgRXJyc3RyLCBEQkk6
+OmRyPUhBU0goMHgxNDAxMTE0ZjApKSBTQ0FMQVIoMHgxNDAxMTUwODApIChhbHJlYWR5IGRlZmlu
+ZWQpDQogICAgZGJpaF9zZXR1cF9hdHRyaWIoREJJOjpkYj1IQVNIKDB4MTQwMTExNDMwKSwgRGVi
+dWcsIERCSTo6ZHI9SEFTSCgweDE0MDExMTRmMCkpIDAgKGFscmVhZHkgZGVmaW5lZCkNCiAgICBk
+YmloX3NldHVwX2F0dHJpYihEQkk6OmRiPUhBU0goMHgxNDAxMTE0MzApLCBGZXRjaEhhc2hLZXlO
+YW1lLCBEQkk6OmRyPUhBU0goMHgxNDAxMTE0ZjApKSAnTkFNRScgKGFscmVhZHkgZGVmaW5lZCkN
+CiAgICBkYmloX3NldHVwX2F0dHJpYihEQkk6OmRiPUhBU0goMHgxNDAxMTE0MzApLCBIYW5kbGVF
+cnJvciwgREJJOjpkcj1IQVNIKDB4MTQwMTExNGYwKSkgdW5kZWYgKG5vdCBkZWZpbmVkKQ0KREJE
+OjpJbmdyZXM6OmRiZF9kYl9sb2dpbjogZGJuYW1lOiBpdHMtYWRtaW4xOjpjc2FkbWlucA0KICAg
+IHVzZXI9J2RiZ3Vlc3QnLCBvcHQ9JycNCiAgICBBZnRlciBjb25uZWN0LCBzcWxjb2RlPTAsIHNl
+c3Npb249MQ0KREJEOjpJbmdyZXM6OmRiZF9kYl9jb25uZWN0KEFVVE9DT01NSVQ9MCkNCiAgICA8
+LSBjb25uZWN0PSBEQkk6OmRiPUhBU0goMHgxNDAxMTE0YTApIGF0IC91c3IvbG9jYWwvbGliL3Bl
+cmw1L3NpdGVfcGVybC81LjguMC9hbHBoYS1kZWNfb3NmLW11bHRpL0RCSS5wbSBsaW5lIDUwMyB2
+aWEgREJJVGVzdCBsaW5lIDINCiAgICA+PiBTVE9SRSAgICAgICBESVNQQVRDSCAoREJJOjpkYj1I
+QVNIKDB4MTQwMTExNDMwKSByYzIvMSBAMyBnMCBpbWE0MTAgcGlkIzExMTUwKSBhdCAvdXNyL2xv
+Y2FsL2xpYi9wZXJsNS9zaXRlX3BlcmwvNS44LjAvYWxwaGEtZGVjX29zZi1tdWx0aS9EQkkucG0g
+bGluZSA1NDUgdmlhIERCSVRlc3QgbGluZSAyDQogICAgLT4gU1RPUkUgZm9yIERCRDo6SW5ncmVz
+OjpkYiAoREJJOjpkYj1IQVNIKDB4MTQwMTExNDMwKX5JTk5FUiAnUHJpbnRFcnJvcicgMSkNCiAg
+ICBTVE9SRSBEQkk6OmRiPUhBU0goMHgxNDAxMTE0MzApICdQcmludEVycm9yJyA9PiAxDQogICAg
+PC0gU1RPUkU9IDEgYXQgL3Vzci9sb2NhbC9saWIvcGVybDUvc2l0ZV9wZXJsLzUuOC4wL2FscGhh
+LWRlY19vc2YtbXVsdGkvREJJLnBtIGxpbmUgNTQ1IHZpYSBEQklUZXN0IGxpbmUgMg0KICAgID4+
+IFNUT1JFICAgICAgIERJU1BBVENIIChEQkk6OmRiPUhBU0goMHgxNDAxMTE0MzApIHJjMi8xIEAz
+IGcwIGltYTQxMCBwaWQjMTExNTApIGF0IC91c3IvbG9jYWwvbGliL3Blcmw1L3NpdGVfcGVybC81
+LjguMC9hbHBoYS1kZWNfb3NmLW11bHRpL0RCSS5wbSBsaW5lIDU0NSB2aWEgREJJVGVzdCBsaW5l
+IDINCiAgICAtPiBTVE9SRSBmb3IgREJEOjpJbmdyZXM6OmRiIChEQkk6OmRiPUhBU0goMHgxNDAx
+MTE0MzApfklOTkVSICdBdXRvQ29tbWl0JyAwKQ0KREJEOjpJbmdyZXM6OmRiZF9kYl9GRVRDSChU
+UkFOU0FDVElPTj0wKXNxbGNhPTANCkRCRDo6SW5ncmVzOjpkYmRfZGJfU1RPUkUoQVVUT0NPTU1J
+VD1PRkYpLCBzcWxjb2RlPTANCiAgICA8LSBTVE9SRT0gMSBhdCAvdXNyL2xvY2FsL2xpYi9wZXJs
+NS9zaXRlX3BlcmwvNS44LjAvYWxwaGEtZGVjX29zZi1tdWx0aS9EQkkucG0gbGluZSA1NDUgdmlh
+IERCSVRlc3QgbGluZSAyDQogICAgPC0gY29ubmVjdD0gREJJOjpkYj1IQVNIKDB4MTQwMTExNGEw
+KQ0KICAgIC0+IERCSS0+Y29ubmVjdChkYmk6UGc6ZGJuYW1lPW5ldGRiYXNlO2hvc3Q9aXRzLWRl
+djIubWFzc2V5LmFjLm56LCBuZXRkYmFzZSwgKioqKikNCiAgICAtPiBEQkktPmluc3RhbGxfZHJp
+dmVyKFBnKSBmb3IgZGVjX29zZiBwZXJsPTUuMDA4IHBpZD0xMTE1MCBydWlkPTEwMCBldWlkPTEw
+MA0KICAgICAgIGluc3RhbGxfZHJpdmVyOiBEQkQ6OlBnIHZlcnNpb24gMS4xMyBsb2FkZWQgZnJv
+bSAvdXNyL2xvY2FsL2xpYi9wZXJsNS9zaXRlX3BlcmwvNS44LjAvYWxwaGEtZGVjX29zZi1tdWx0
+aS9EQkQvUGcucG0NCiAgICBOZXcgREJJOjpkciAoZm9yIERCRDo6UGc6OmRyLCBwYXJlbnQ9LCBp
+ZD0pDQogICAgZGJpaF9zZXR1cF9oYW5kbGUoREJJOjpkcj1IQVNIKDB4MTQwMTExNWIwKT0+REJJ
+Ojpkcj1IQVNIKDB4MTQwMjI1MTEwKSwgREJEOjpQZzo6ZHIsIDAsIE51bGwhKQ0KICAgIGRiaWhf
+bWFrZV9jb20oTnVsbCEsIERCRDo6UGc6OmRyLCAxNTIpIHRociMxNDAwMDQwMDANCiAgICBkYmlo
+X3NldHVwX2F0dHJpYihEQkk6OmRyPUhBU0goMHgxNDAyMjUxMTApLCBFcnIsIE51bGwhKSBTQ0FM
+QVIoMHgxNDAxMTFjYjApIChhbHJlYWR5IGRlZmluZWQpDQogICAgZGJpaF9zZXR1cF9hdHRyaWIo
+REJJOjpkcj1IQVNIKDB4MTQwMjI1MTEwKSwgU3RhdGUsIE51bGwhKSBTQ0FMQVIoMHgxNDAxMTE0
+OTApIChhbHJlYWR5IGRlZmluZWQpDQogICAgZGJpaF9zZXR1cF9hdHRyaWIoREJJOjpkcj1IQVNI
+KDB4MTQwMjI1MTEwKSwgRXJyc3RyLCBOdWxsISkgU0NBTEFSKDB4MTQwMTExY2UwKSAoYWxyZWFk
+eSBkZWZpbmVkKQ0KICAgIGRiaWhfc2V0dXBfYXR0cmliKERCSTo6ZHI9SEFTSCgweDE0MDIyNTEx
+MCksIERlYnVnLCBOdWxsISkgMCAoYWxyZWFkeSBkZWZpbmVkKQ0KICAgIGRiaWhfc2V0dXBfYXR0
+cmliKERCSTo6ZHI9SEFTSCgweDE0MDIyNTExMCksIEZldGNoSGFzaEtleU5hbWUsIE51bGwhKSAn
+TkFNRScgKGFscmVhZHkgZGVmaW5lZCkNCiAgICA8LSBpbnN0YWxsX2RyaXZlcj0gREJJOjpkcj1I
+QVNIKDB4MTQwMTExNWIwKQ0KICAgID4+IGNvbm5lY3QgICAgIERJU1BBVENIIChEQkk6OmRyPUhB
+U0goMHgxNDAxMTE1YjApIHJjMS8zIEA1IGcwIGltYTEgcGlkIzExMTUwKSBhdCAvdXNyL2xvY2Fs
+L2xpYi9wZXJsNS9zaXRlX3BlcmwvNS44LjAvYWxwaGEtZGVjX29zZi1tdWx0aS9EQkkucG0gbGlu
+ZSA1MDMgdmlhIERCSVRlc3QgbGluZSA1DQogICAgLT4gY29ubmVjdCBmb3IgREJEOjpQZzo6ZHIg
+KERCSTo6ZHI9SEFTSCgweDE0MDExMTViMCl+MHgxNDAyMjUxMTAgJ2RibmFtZT1uZXRkYmFzZTto
+b3N0PWl0cy1kZXYyLm1hc3NleS5hYy5ueicgJ25ldGRiYXNlJyAqKioqIEhBU0goMHgxNDAxMmJj
+NjApKQ0KICAgIE5ldyBEQkk6OmRiIChmb3IgREJEOjpQZzo6ZGIsIHBhcmVudD1EQkk6OmRyPUhB
+U0goMHgxNDAyMjUxMTApLCBpZD0pDQogICAgZGJpaF9zZXR1cF9oYW5kbGUoREJJOjpkYj1IQVNI
+KDB4MTQwMjI1MGMwKT0+REJJOjpkYj1IQVNIKDB4MTQwMjI1MDUwKSwgREJEOjpQZzo6ZGIsIDE0
+MDExMTVjMCwgTnVsbCEpDQogICAgZGJpaF9tYWtlX2NvbShEQkk6OmRyPUhBU0goMHgxNDAyMjUx
+MTApLCBEQkQ6OlBnOjpkYiwgMTY4KSB0aHIjMTQwMDA0MDAwDQogICAgZGJpaF9zZXR1cF9hdHRy
+aWIoREJJOjpkYj1IQVNIKDB4MTQwMjI1MDUwKSwgRXJyLCBEQkk6OmRyPUhBU0goMHgxNDAyMjUx
+MTApKSBTQ0FMQVIoMHgxNDAxMTFjYjApIChhbHJlYWR5IGRlZmluZWQpDQogICAgZGJpaF9zZXR1
+cF9hdHRyaWIoREJJOjpkYj1IQVNIKDB4MTQwMjI1MDUwKSwgU3RhdGUsIERCSTo6ZHI9SEFTSCgw
+eDE0MDIyNTExMCkpIFNDQUxBUigweDE0MDExMTQ5MCkgKGFscmVhZHkgZGVmaW5lZCkNCiAgICBk
+YmloX3NldHVwX2F0dHJpYihEQkk6OmRiPUhBU0goMHgxNDAyMjUwNTApLCBFcnJzdHIsIERCSTo6
+ZHI9SEFTSCgweDE0MDIyNTExMCkpIFNDQUxBUigweDE0MDExMWNlMCkgKGFscmVhZHkgZGVmaW5l
+ZCkNCiAgICBkYmloX3NldHVwX2F0dHJpYihEQkk6OmRiPUhBU0goMHgxNDAyMjUwNTApLCBEZWJ1
+ZywgREJJOjpkcj1IQVNIKDB4MTQwMjI1MTEwKSkgMCAoYWxyZWFkeSBkZWZpbmVkKQ0KICAgIGRi
+aWhfc2V0dXBfYXR0cmliKERCSTo6ZGI9SEFTSCgweDE0MDIyNTA1MCksIEZldGNoSGFzaEtleU5h
+bWUsIERCSTo6ZHI9SEFTSCgweDE0MDIyNTExMCkpICdOQU1FJyAoYWxyZWFkeSBkZWZpbmVkKQ0K
+ICAgIGRiaWhfc2V0dXBfYXR0cmliKERCSTo6ZGI9SEFTSCgweDE0MDIyNTA1MCksIEhhbmRsZUVy
+cm9yLCBEQkk6OmRyPUhBU0goMHgxNDAyMjUxMTApKSB1bmRlZiAobm90IGRlZmluZWQpDQpwZ19k
+Yl9sb2dpbg0KcGdfZGJfbG9naW46IGNvbm5fc3RyID0gPmRibmFtZT1uZXRkYmFzZSBob3N0PWl0
+cy1kZXYyLm1hc3NleS5hYy5ueiB1c2VyPW5ldGRiYXNlPA0KICAgIDwtIGNvbm5lY3Q9IERCSTo6
+ZGI9SEFTSCgweDE0MDIyNTBjMCkgYXQgL3Vzci9sb2NhbC9saWIvcGVybDUvc2l0ZV9wZXJsLzUu
+OC4wL2FscGhhLWRlY19vc2YtbXVsdGkvREJJLnBtIGxpbmUgNTAzIHZpYSBEQklUZXN0IGxpbmUg
+NQ0KICAgID4+IFNUT1JFICAgICAgIERJU1BBVENIIChEQkk6OmRiPUhBU0goMHgxNDAyMjUwNTAp
+IHJjMi8xIEAzIGcwIGltYTQxMCBwaWQjMTExNTApIGF0IC91c3IvbG9jYWwvbGliL3Blcmw1L3Np
+dGVfcGVybC81LjguMC9hbHBoYS1kZWNfb3NmLW11bHRpL0RCSS5wbSBsaW5lIDU0NSB2aWEgREJJ
+VGVzdCBsaW5lIDUNCiAgICAtPiBTVE9SRSBmb3IgREJEOjpQZzo6ZGIgKERCSTo6ZGI9SEFTSCgw
+eDE0MDIyNTA1MCl+SU5ORVIgJ1ByaW50RXJyb3InIDEpDQpzZXQgc2Vzc2lvbl9kYigxMDc1ODU2
+Mzg0KQ0KRV9MUTAwQkUgQXR0ZW1wdCB0byBzd2l0Y2ggdG8gYSBub24tZXhpc3RlbnQgc2Vzc2lv
+bi4NCg0KICAgIFNUT1JFIERCSTo6ZGI9SEFTSCgweDE0MDIyNTA1MCkgJ1ByaW50RXJyb3InID0+
+IDENCiAgICA8LSBTVE9SRT0gMSBhdCAvdXNyL2xvY2FsL2xpYi9wZXJsNS9zaXRlX3BlcmwvNS44
+LjAvYWxwaGEtZGVjX29zZi1tdWx0aS9EQkkucG0gbGluZSA1NDUgdmlhIERCSVRlc3QgbGluZSA1
+DQogICAgPj4gU1RPUkUgICAgICAgRElTUEFUQ0ggKERCSTo6ZGI9SEFTSCgweDE0MDIyNTA1MCkg
+cmMyLzEgQDMgZzAgaW1hNDEwIHBpZCMxMTE1MCkgYXQgL3Vzci9sb2NhbC9saWIvcGVybDUvc2l0
+ZV9wZXJsLzUuOC4wL2FscGhhLWRlY19vc2YtbXVsdGkvREJJLnBtIGxpbmUgNTQ1IHZpYSBEQklU
+ZXN0IGxpbmUgNQ0KICAgIC0+IFNUT1JFIGZvciBEQkQ6OlBnOjpkYiAoREJJOjpkYj1IQVNIKDB4
+MTQwMjI1MDUwKX5JTk5FUiAnQXV0b0NvbW1pdCcgMSkNCkRCRDo6SW5ncmVzOjpkYmRfZGJfRkVU
+Q0goVFJBTlNBQ1RJT049MClzcWxjYT0wDQpEQkQ6OkluZ3Jlczo6ZGJkX2RiX1NUT1JFKEFVVE9D
+T01NSVQ9T04pLCBzcWxjb2RlPTANCiAgICA8LSBTVE9SRT0gMSBhdCAvdXNyL2xvY2FsL2xpYi9w
+ZXJsNS9zaXRlX3BlcmwvNS44LjAvYWxwaGEtZGVjX29zZi1tdWx0aS9EQkkucG0gbGluZSA1NDUg
+dmlhIERCSVRlc3QgbGluZSA1DQogICAgPC0gY29ubmVjdD0gREJJOjpkYj1IQVNIKDB4MTQwMjI1
+MGMwKQ0KICAgID4+IHByZXBhcmUgICAgIERJU1BBVENIIChEQkk6OmRiPUhBU0goMHgxNDAyMjUw
+YzApIHJjMS8xIEAyIGcwIGltYTEgcGlkIzExMTUwKSBhdCBEQklUZXN0IGxpbmUgOA0KICAgIC0+
+IHByZXBhcmUgZm9yIERCRDo6UGc6OmRiIChEQkk6OmRiPUhBU0goMHgxNDAyMjUwYzApfjB4MTQw
+MjI1MDUwICdzZWxlY3QgY291bnQoKikgZnJvbSBzaXRlJykNCiAgICBOZXcgREJJOjpzdCAoZm9y
+IERCRDo6UGc6OnN0LCBwYXJlbnQ9REJJOjpkYj1IQVNIKDB4MTQwMjI1MDUwKSwgaWQ9KQ0KICAg
+IGRiaWhfc2V0dXBfaGFuZGxlKERCSTo6c3Q9SEFTSCgweDE0MDIyNTFjMCk9PkRCSTo6c3Q9SEFT
+SCgweDE0MDIyMzNlMCksIERCRDo6UGc6OnN0LCAxNDAyMjUxZDAsIE51bGwhKQ0KICAgIGRiaWhf
+bWFrZV9jb20oREJJOjpkYj1IQVNIKDB4MTQwMjI1MDUwKSwgREJEOjpQZzo6c3QsIDI0OCkgdGhy
+IzE0MDAwNDAwMA0KICAgIGRiaWhfc2V0dXBfYXR0cmliKERCSTo6c3Q9SEFTSCgweDE0MDIyMzNl
+MCksIEVyciwgREJJOjpkYj1IQVNIKDB4MTQwMjI1MDUwKSkgU0NBTEFSKDB4MTQwMTExY2IwKSAo
+YWxyZWFkeSBkZWZpbmVkKQ0KICAgIGRiaWhfc2V0dXBfYXR0cmliKERCSTo6c3Q9SEFTSCgweDE0
+MDIyMzNlMCksIFN0YXRlLCBEQkk6OmRiPUhBU0goMHgxNDAyMjUwNTApKSBTQ0FMQVIoMHgxNDAx
+MTE0OTApIChhbHJlYWR5IGRlZmluZWQpDQogICAgZGJpaF9zZXR1cF9hdHRyaWIoREJJOjpzdD1I
+QVNIKDB4MTQwMjIzM2UwKSwgRXJyc3RyLCBEQkk6OmRiPUhBU0goMHgxNDAyMjUwNTApKSBTQ0FM
+QVIoMHgxNDAxMTFjZTApIChhbHJlYWR5IGRlZmluZWQpDQogICAgZGJpaF9zZXR1cF9hdHRyaWIo
+REJJOjpzdD1IQVNIKDB4MTQwMjIzM2UwKSwgRGVidWcsIERCSTo6ZGI9SEFTSCgweDE0MDIyNTA1
+MCkpIDAgKGFscmVhZHkgZGVmaW5lZCkNCiAgICBkYmloX3NldHVwX2F0dHJpYihEQkk6OnN0PUhB
+U0goMHgxNDAyMjMzZTApLCBGZXRjaEhhc2hLZXlOYW1lLCBEQkk6OmRiPUhBU0goMHgxNDAyMjUw
+NTApKSAnTkFNRScgKGFscmVhZHkgZGVmaW5lZCkNCiAgICBkYmloX3NldHVwX2F0dHJpYihEQkk6
+OnN0PUhBU0goMHgxNDAyMjMzZTApLCBIYW5kbGVFcnJvciwgREJJOjpkYj1IQVNIKDB4MTQwMjI1
+MDUwKSkgdW5kZWYgKG5vdCBkZWZpbmVkKQ0KREJEOjpJbmdyZXM6OmRiZF9zdF9wcmVwYXJlKCdz
+ZWxlY3QgY291bnQoKikgZnJvbSBzaXRlJykNClN0YXRlbWVudCA9IHNlbGVjdCBjb3VudCgqKSBm
+cm9tIHNpdGUgDQpTdGF0ZW1lbnQgPSAgY291bnQoKikgZnJvbSBzaXRlIA0KU3RhdGVtZW50MyA9
+IGNvdW50KCopIGZyb20gc2l0ZSANCmdlbl9zdC5uYW0gYWxsb2MgZmlyc3QgdGltZSByZXR1cm5z
+IDANCk5hbWUgPSBzMCANCk5hbWUxID0gIA0KTmFtZTIgPSBAASANCkRCRDo6SW5ncmVzOjpkYmRf
+c3RfcHJlcGFyZSBzdG10KCdzZWxlY3QgY291bnQoKikgZnJvbSBzaXRlJykgbmFtZTpzMF9jb3Vu
+dGZyb21zaXRlLCBzcWxkYTogMTQwMWY0YjQ4DQpEQkQ6OkluZ3JlczpzcWxfY2hlY2s6IHNxbGNv
+ZGU9LTMwMTAwIGdldCBlcnJ0ZXh0IGdvdCBlcnJ0ZXh0OiAnRV9VUzA4NDUgVGFibGUgJ3NpdGUn
+IGRvZXMgbm90IGV4aXN0IG9yIGlzIG5vdCBvd25lZCBieSB5b3UuDQogICAgKFR1ZSBPY3QgIDEg
+MDg6NTY6MDkgMjAwMiknLCByZXR1cm5pbmcNCiAgICA+PiBERVNUUk9ZICAgICBESVNQQVRDSCAo
+REJJOjpzdD1IQVNIKDB4MTQwMjI1MWMwKSByYzEvMSBAMSBnMCBpbWEwIHBpZCMxMTE1MCkgYXQg
+REJJVGVzdCBsaW5lIDgNCiAgICA8PiBERVNUUk9ZIGlnbm9yZWQgZm9yIG91dGVyIGhhbmRsZSBE
+Qkk6OnN0PUhBU0goMHgxNDAyMjUxYzApIChpbm5lciBEQkk6OnN0PUhBU0goMHgxNDAyMjMzZTAp
+KQ0KICAgID4+IERFU1RST1kgICAgIERJU1BBVENIIChEQkk6OnN0PUhBU0goMHgxNDAyMjMzZTAp
+IHJjMS8xIEAxIGcwIGltYTAgcGlkIzExMTUwKSBhdCBEQklUZXN0IGxpbmUgOA0KICAgIC0+IERF
+U1RST1kgZm9yIERCRDo6UGc6OnN0IChEQkk6OnN0PUhBU0goMHgxNDAyMjMzZTApfklOTkVSKQ0K
+U3RhdGVtZW50IGhhbmRsZSBEQkk6OnN0PUhBU0goMHgxNDAyMjMzZTApIERFU1RST1kgaWdub3Jl
+ZCAtIG5ldmVyIHNldCB1cCBhdCBEQklUZXN0IGxpbmUgOC4NCiAgICA8LSBERVNUUk9ZPSB1bmRl
+ZiBhdCBEQklUZXN0IGxpbmUgOA0KICAgIGRiaWhfY2xlYXJjb20gKHN0aCAweDE0MDIyNTFjMCAw
+eDE0MDFmNTFiMCwgY29tIDB4MTQwMWY0YTgwLCBpbXAgREJEOjpQZzo6c3QpOg0KICAgICAgIEZM
+QUdTIDB4MTExOiBDT01TRVQgV2FybiBQcmludEVycm9yIA0KICAgICAgIFBBUkVOVCBEQkk6OmRi
+PUhBU0goMHgxNDAyMjUwNTApDQogICAgICAgS0lEUyAwICgwIEFjdGl2ZSkNCiAgICAgICBJTVBf
+REFUQSB1bmRlZg0KICAgICAgIE5VTV9PRl9GSUVMRFMgMA0KICAgICAgIE5VTV9PRl9QQVJBTVMg
+MA0KICAgIGRiaWhfY2xlYXJjb20gMHgxNDAyMjUxYzAgKGNvbSAweDE0MDFmNGE4MCwgdHlwZSAz
+KSBkb25lLg0KDQogICAgISEgRVJST1I6IC0zMDEwMCAnRV9VUzA4NDUgVGFibGUgJ3NpdGUnIGRv
+ZXMgbm90IGV4aXN0IG9yIGlzIG5vdCBvd25lZCBieSB5b3UuDQogICAgKFR1ZSBPY3QgIDEgMDg6
+NTY6MDkgMjAwMiknDQogICAgPC0gcHJlcGFyZT0gdW5kZWYgYXQgREJJVGVzdCBsaW5lIDgNCkRC
+RDo6UGc6OmRiIHByZXBhcmUgZmFpbGVkOiBFX1VTMDg0NSBUYWJsZSAnc2l0ZScgZG9lcyBub3Qg
+ZXhpc3Qgb3IgaXMgbm90IG93bmVkIGJ5IHlvdS4NCiAgICAoVHVlIE9jdCAgMSAwODo1NjowOSAy
+MDAyKSBhdCBEQklUZXN0IGxpbmUgOC4NCiAgICAtPiAkREJJOjplcnJzdHIgKCYpIEZFVENIIGZy
+b20gbGFzdGg9SEFTSA0KICAgID4+IERCRDo6UGc6OmRiOjplcnJzdHINClByZXAgZmFpbGVkRV9V
+UzA4NDUgVGFibGUgJ3NpdGUnIGRvZXMgbm90IGV4aXN0IG9yIGlzIG5vdCBvd25lZCBieSB5b3Uu
+DQogICAgKFR1ZSBPY3QgIDEgMDg6NTY6MDkgMjAwMikgYXQgREJJVGVzdCBsaW5lIDguDQogICAg
+LS0gREJJOjpFTkQNCiAgICA+PiBkaXNjb25uZWN0X2FsbCBESVNQQVRDSCAoREJJOjpkcj1IQVNI
+KDB4MTQwMDBiN2EwKSByYzEvMyBAMSBnMCBpbWExIHBpZCMxMTE1MCkgYXQgL3Vzci9sb2NhbC9s
+aWIvcGVybDUvc2l0ZV9wZXJsLzUuOC4wL2FscGhhLWRlY19vc2YtbXVsdGkvREJJLnBtIGxpbmUg
+NTY1IHZpYSBEQklUZXN0IGxpbmUgMA0KICAgIC0+IGRpc2Nvbm5lY3RfYWxsIGZvciBEQkQ6Oklu
+Z3Jlczo6ZHIgKERCSTo6ZHI9SEFTSCgweDE0MDAwYjdhMCl+MHgxNDAxMTE0ZjApDQogICAgPC0g
+ZGlzY29ubmVjdF9hbGw9ICcnIGF0IC91c3IvbG9jYWwvbGliL3Blcmw1L3NpdGVfcGVybC81Ljgu
+MC9hbHBoYS1kZWNfb3NmLW11bHRpL0RCSS5wbSBsaW5lIDU2NSB2aWEgREJJVGVzdCBsaW5lIDAN
+CiAgICA+PiBkaXNjb25uZWN0X2FsbCBESVNQQVRDSCAoREJJOjpkcj1IQVNIKDB4MTQwMTExNWIw
+KSByYzEvMyBAMSBnMCBpbWExIHBpZCMxMTE1MCkgYXQgL3Vzci9sb2NhbC9saWIvcGVybDUvc2l0
+ZV9wZXJsLzUuOC4wL2FscGhhLWRlY19vc2YtbXVsdGkvREJJLnBtIGxpbmUgNTY1IHZpYSBEQklU
+ZXN0IGxpbmUgMA0KICAgIC0+IGRpc2Nvbm5lY3RfYWxsIGZvciBEQkQ6OlBnOjpkciAoREJJOjpk
+cj1IQVNIKDB4MTQwMTExNWIwKX4weDE0MDIyNTExMCkNCiAgICA8LSBkaXNjb25uZWN0X2FsbD0g
+JycgYXQgL3Vzci9sb2NhbC9saWIvcGVybDUvc2l0ZV9wZXJsLzUuOC4wL2FscGhhLWRlY19vc2Yt
+bXVsdGkvREJJLnBtIGxpbmUgNTY1IHZpYSBEQklUZXN0IGxpbmUgMA0KICAgID4+IERFU1RST1kg
+ICAgIERJU1BBVENIIChEQkk6OmRyPUhBU0goMHgxNDAxMTE1YjApIHJjMS8xIEAxIGcwIGltYTAg
+cGlkIzExMTUwKSBkdXJpbmcgZ2xvYmFsIGRlc3RydWN0aW9uDQogICAgPD4gREVTVFJPWSBmb3Ig
+REJJOjpkcj1IQVNIKDB4MTQwMTExNWIwKSBpZ25vcmVkIChpbm5lciBoYW5kbGUgZ29uZSkNCiAg
+ICA+PiBERVNUUk9ZICAgICBESVNQQVRDSCAoREJJOjpkYj1IQVNIKDB4MTQwMTExNDMwKSByYzEv
+MSBAMSBnMCBpbWEwIHBpZCMxMTE1MCkgZHVyaW5nIGdsb2JhbCBkZXN0cnVjdGlvbg0KICAgIC0+
+IERFU1RST1kgZm9yIERCRDo6SW5ncmVzOjpkYiAoREJJOjpkYj1IQVNIKDB4MTQwMTExNDMwKX5J
+Tk5FUikNCklzc3Vpbmcgcm9sbGJhY2soKSBmb3IgZGF0YWJhc2UgaGFuZGxlIGJlaW5nIERFU1RS
+T1knZCB3aXRob3V0IGV4cGxpY2l0IGRpc2Nvbm5lY3QoKSBkdXJpbmcgZ2xvYmFsIGRlc3RydWN0
+aW9uLg0KREJEOjpJbmdyZXM6OmRiZF9kYl9yb2xsYmFjaw0Kc2V0IHNlc3Npb25fZGIoMSkNCkRC
+RDo6SW5ncmVzOjpkYmRfZGJfZGlzY29ubmVjdA0KREJEOjpJbmdyZXM6OmRiZF9kYl9kZXN0cm95
+DQogICAgPC0gREVTVFJPWT0gdW5kZWYgZHVyaW5nIGdsb2JhbCBkZXN0cnVjdGlvbg0KICAgIGRi
+aWhfY2xlYXJjb20gKGRiaCAweDE0MDExMTRhMCAweDE0MDAyMjMwMCwgY29tIDB4MTQwMWU3Njgw
+LCBpbXAgREJEOjpJbmdyZXM6OmRiKToNCiAgICAgICBGTEFHUyAweDExMTogQ09NU0VUIFdhcm4g
+UHJpbnRFcnJvciANCiAgICAgICBQQVJFTlQgREJJOjpkcj1IQVNIKDB4MTQwMTExNGYwKQ0KICAg
+ICAgIEtJRFMgMCAoMCBBY3RpdmUpDQogICAgICAgSU1QX0RBVEEgdW5kZWYNCiAgICA+PiBERVNU
+Uk9ZICAgICBESVNQQVRDSCAoREJJOjpkcj1IQVNIKDB4MTQwMTExNGYwKSByYzEvMSBAMSBnMCBp
+bWEwIHBpZCMxMTE1MCkgZHVyaW5nIGdsb2JhbCBkZXN0cnVjdGlvbg0KICAgIC0+IERFU1RST1kg
+aW4gREJEOjpfOjpjb21tb24gZm9yIERCRDo6SW5ncmVzOjpkciAoREJJOjpkcj1IQVNIKDB4MTQw
+MTExNGYwKX5JTk5FUikNCiAgICA8LSBERVNUUk9ZPSB1bmRlZiBkdXJpbmcgZ2xvYmFsIGRlc3Ry
+dWN0aW9uDQogICAgZGJpaF9jbGVhcmNvbSAoZHJoIDB4MTQwMDBiN2EwIDB4MTQwMDRmM2UwLCBj
+b20gMHgxNDAxZTc0NDAsIGltcCBEQkQ6OkluZ3Jlczo6ZHIpOg0KICAgICAgIEZMQUdTIDB4MjE1
+OiBDT01TRVQgQWN0aXZlIFdhcm4gQXV0b0NvbW1pdCANCiAgICAgICBQQVJFTlQgdW5kZWYNCiAg
+ICAgICBLSURTIDEgKDEgQWN0aXZlKQ0KICAgICAgIElNUF9EQVRBIHVuZGVmDQogICAgZGJpaF9j
+bGVhcmNvbSAweDE0MDAwYjdhMCAoY29tIDB4MTQwMWU3NDQwLCB0eXBlIDEpIGRvbmUuDQoNCiAg
+ICBkYmloX2NsZWFyY29tIDB4MTQwMTExNGEwIChjb20gMHgxNDAxZTc2ODAsIHR5cGUgMikgZG9u
+ZS4NCg0KICAgID4+IERFU1RST1kgICAgIERJU1BBVENIIChEQkk6OmRyPUhBU0goMHgxNDAyMjUx
+MTApIHJjMS8xIEAxIGcwIGltYTAgcGlkIzExMTUwKSBkdXJpbmcgZ2xvYmFsIGRlc3RydWN0aW9u
+DQogICAgLT4gREVTVFJPWSBpbiBEQkQ6Ol86OmRyIGZvciBEQkQ6OlBnOjpkciAoREJJOjpkcj1I
+QVNIKDB4MTQwMjI1MTEwKX5JTk5FUikNCiAgICA8LSBERVNUUk9ZPSB1bmRlZiBkdXJpbmcgZ2xv
+YmFsIGRlc3RydWN0aW9uDQogICAgZGJpaF9jbGVhcmNvbSAoZHJoIDB4MTQwMTExNWIwIDB4MCwg
+Y29tIDB4MTQwMjI2MGMwLCBpbXAgREJEOjpQZzo6ZHIpOg0KICAgICAgIEZMQUdTIDB4MjE1OiBD
+T01TRVQgQWN0aXZlIFdhcm4gQXV0b0NvbW1pdCANCiAgICAgICBQQVJFTlQgdW5kZWYNCiAgICAg
+ICBLSURTIDEgKDEgQWN0aXZlKQ0KICAgICAgIElNUF9EQVRBIHVuZGVmDQogICAgZGJpaF9jbGVh
+cmNvbSAweDE0MDExMTViMCAoY29tIDB4MTQwMjI2MGMwLCB0eXBlIDEpIGRvbmUuDQoNCiAgICA+
+PiBERVNUUk9ZICAgICBESVNQQVRDSCAoREJJOjpkYj1IQVNIKDB4MTQwMjI1MGMwKSByYzEvMSBA
+MSBnMCBpbWEwIHBpZCMxMTE1MCkgZHVyaW5nIGdsb2JhbCBkZXN0cnVjdGlvbg0KICAgIDw+IERF
+U1RST1kgaWdub3JlZCBmb3Igb3V0ZXIgaGFuZGxlIERCSTo6ZGI9SEFTSCgweDE0MDIyNTBjMCkg
+KGlubmVyIERCSTo6ZGI9SEFTSCgweDE0MDIyNTA1MCkpDQogICAgPj4gREVTVFJPWSAgICAgRElT
+UEFUQ0ggKERCSTo6ZGI9SEFTSCgweDE0MDIyNTA1MCkgcmMxLzEgQDEgZzAgaW1hMCBwaWQjMTEx
+NTApIGR1cmluZyBnbG9iYWwgZGVzdHJ1Y3Rpb24NCiAgICAtPiBERVNUUk9ZIGZvciBEQkQ6OlBn
+OjpkYiAoREJJOjpkYj1IQVNIKDB4MTQwMjI1MDUwKX5JTk5FUikNCkRhdGFiYXNlIGhhbmRsZSBk
+ZXN0cm95ZWQgd2l0aG91dCBleHBsaWNpdCBkaXNjb25uZWN0IGR1cmluZyBnbG9iYWwgZGVzdHJ1
+Y3Rpb24uDQpEQkQ6OkluZ3Jlczo6ZGJkX2RiX2Rpc2Nvbm5lY3QNCnNldCBzZXNzaW9uX2RiKDEw
+NzU4NTYzODQpDQpFX0xRMDBCRSBBdHRlbXB0IHRvIHN3aXRjaCB0byBhIG5vbi1leGlzdGVudCBz
+ZXNzaW9uLg0KDQpEQkQ6OkluZ3Jlczo6ZGJkX2RiX2Rlc3Ryb3kNCiAgICA8LSBERVNUUk9ZPSB1
+bmRlZiBkdXJpbmcgZ2xvYmFsIGRlc3RydWN0aW9uDQogICAgZGJpaF9jbGVhcmNvbSAoZGJoIDB4
+MTQwMjI1MGMwIDB4MTQwMWY2NjUwLCBjb20gMHgxNDAyMjYzMDAsIGltcCBEQkQ6OlBnOjpkYik6
+DQogICAgICAgRkxBR1MgMHgzMTE6IENPTVNFVCBXYXJuIFByaW50RXJyb3IgQXV0b0NvbW1pdCAN
+CiAgICAgICBQQVJFTlQgdW5kZWYNCiAgICAgICBLSURTIDAgKDAgQWN0aXZlKQ0KICAgICAgIElN
+UF9EQVRBIHVuZGVmDQogICAgZGJpaF9jbGVhcmNvbSAweDE0MDIyNTBjMCAoY29tIDB4MTQwMjI2
+MzAwLCB0eXBlIDIpIGRvbmUuDQoNCiAgICA+PiBERVNUUk9ZICAgICBESVNQQVRDSCAoREJJOjpk
+cj1IQVNIKDB4MTQwMDBiN2EwKSByYzEvMSBAMSBnMCBpbWEwIHBpZCMxMTE1MCkgZHVyaW5nIGds
+b2JhbCBkZXN0cnVjdGlvbg0KICAgIDw+IERFU1RST1kgZm9yIERCSTo6ZHI9SEFTSCgweDE0MDAw
+YjdhMCkgaWdub3JlZCAoaW5uZXIgaGFuZGxlIGdvbmUpDQogICAgPj4gREVTVFJPWSAgICAgRElT
+UEFUQ0ggKERCSTo6ZGI9SEFTSCgweDE0MDExMTRhMCkgcmMxLzEgQDEgZzAgaW1hMCBwaWQjMTEx
+NTApIGR1cmluZyBnbG9iYWwgZGVzdHJ1Y3Rpb24NCiAgICA8PiBERVNUUk9ZIGZvciBEQkk6OmRi
+PUhBU0goMHgxNDAxMTE0YTApIGlnbm9yZWQgKGlubmVyIGhhbmRsZSBnb25lKQ0KVDIuKGl0cy1k
+ZXYxKXdvcms6IGV4aXQNDQpleGl0DQoKc2NyaXB0IGRvbmUgb24gVHVlIE9jdCAgMSAwODo1Njox
+MSAyMDAyCm==
+
+--=-rn1ftfi0iMoVjho1RZ/N--
+
+
+From G.Eustace@massey.ac.nz  Thu Oct  3 07:32:38 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g936WaD34951
+	for <timbo@localhost>; Thu, 3 Oct 2002 07:32:37 +0100 (BST)
+	(envelope-from G.Eustace@massey.ac.nz)
+Received: from pop3.mail.demon.net [194.217.242.58]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 03 Oct 2002 07:32:37 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1033613089:20:00632:0; Thu, 03 Oct 2002 02:44:49 GMT
+Received: from cali-1.pobox.com ([64.71.166.114]) by punt-2.mail.demon.net
+           id aa2029575; 3 Oct 2002 2:43 GMT
+Received: from cali-1.pobox.com (localhost.localdomain [127.0.0.1])
+	by cali-1.pobox.com (Postfix) with ESMTP id D63A93E655
+	for <Tim.Bunce@data-plan.com>; Wed,  2 Oct 2002 22:43:57 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from its-mail1.massey.ac.nz (its-mail1.massey.ac.nz [130.123.128.11])
+	by cali-1.pobox.com (Postfix) with ESMTP id BBF5F3E6B3
+	for <Tim.Bunce@pobox.com>; Wed,  2 Oct 2002 22:43:56 -0400 (EDT)
+Received: from its-mm1.massey.ac.nz (its-mm1.massey.ac.nz [130.123.128.45])
+	by its-mail1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id OAA05325
+	for <Tim.Bunce@pobox.com>; Thu, 3 Oct 2002 14:43:54 +1200 (NZST)
+Received: from its-campus2.massey.ac.nz (Not Verified[130.123.48.254]) by its-mm1.massey.ac.nz with MailMarshal
+	id <B000ffce56>; Thu, 03 Oct 2002 14:43:54 +1200
+Received: from it012615.massey.ac.nz (it012615.massey.ac.nz [130.123.107.104])
+	by its-campus2.massey.ac.nz (8.9.3/8.9.3) with ESMTP id OAA14603
+	for <Tim.Bunce@pobox.com>; Thu, 3 Oct 2002 14:43:54 +1200 (NZST)
+Subject: Re: Multiple drivers ?
+From: Glen Eustace <G.Eustace@massey.ac.nz>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+In-Reply-To: <20021002082822.GT8593@dansat.data-plan.com>
+References: <20021002082822.GT8593@dansat.data-plan.com>
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+X-Mailer: Ximian Evolution 1.0.8 (1.0.8-4) 
+Date: 03 Oct 2002 14:40:35 +1200
+Message-Id: <1033612835.21237.117.camel@it012615>
+Mime-Version: 1.0
+Status: RO
+X-Status: A
+Content-Length: 1010
+Lines: 32
+
+I( have rebuilt perl5.8 with NO multi and -g -DDEBUGGING. It now core
+dumps like 5.6.0 and I can NOT get a stack dump out of it no matter what
+I do :-(
+
+T1.(its-dev1)work: /usr/local/bin/perl5.8.0 -D DBITest 
+
+EXECUTING...
+
+Segmentation fault (core dumped)
+T1.(its-dev1)work: dbx /usr/local/bin/perl5.8.0 core
+dbx version 3.11.10
+Type 'help' for help.
+Core file created by program "perl5.8.0"
+
+signal Segmentation fault at >*[__kill, 0x3ff800e9b78]  beq     r19,
+0x3ff800e9b90
+(dbx) where
+>  0 __kill(0xb, 0x1401f1478, 0x30000894020, 0x1401f0bc8, 0x3000084c2bc)
+[0x3ff800e9b78]
+(dbx) 
+
+On Wed, 2002-10-02 at 20:28, Tim Bunce wrote:
+> Can you try it without multi (as multi trigers some code changes in the
+> DBI).
+
+-- 
+ .*.  | Glen Eustace, Systems Engineer - Networking.
+ /V\  | Information Technology Services PN460, Turitea,
+(/ \) | Massey University, Palmerston North, New Zealand.
+(   ) | Ph: +64 6 350 5799 x 2707, Fax: +64 6 350 5607
+^^-^^ |------------------------------------------------------------
+
+
+From G.Eustace@massey.ac.nz  Fri Oct  4 08:27:41 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g947ReQ03976
+	for <timbo@localhost>; Fri, 4 Oct 2002 08:27:40 +0100 (BST)
+	(envelope-from G.Eustace@massey.ac.nz)
+Received: from pop3.mail.demon.net [194.217.242.40]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 04 Oct 2002 08:27:40 +0100 (BST)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1033681082:10:09389:44; Thu, 03 Oct 2002 21:38:02 GMT
+Received: from wormwood.pobox.com ([208.210.125.20]) by punt-1.mail.demon.net
+           id aa1114348; 3 Oct 2002 21:37 GMT
+Received: from wormwood.pobox.com (localhost.pobox.com [127.0.0.1])
+	by wormwood.pobox.com (Postfix) with ESMTP id DB49774785
+	for <Tim.Bunce@data-plan.com>; Thu,  3 Oct 2002 17:37:46 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from its-mail1.massey.ac.nz (its-mail1.massey.ac.nz [130.123.128.11])
+	by wormwood.pobox.com (Postfix) with ESMTP id E04D57255A
+	for <Tim.Bunce@pobox.com>; Thu,  3 Oct 2002 17:37:37 -0400 (EDT)
+Received: from its-mm1.massey.ac.nz (its-mm1.massey.ac.nz [130.123.128.45])
+	by its-mail1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id JAA21943
+	for <Tim.Bunce@pobox.com>; Fri, 4 Oct 2002 09:37:30 +1200 (NZST)
+Received: from its-campus1.massey.ac.nz (Not Verified[130.123.32.254]) by its-mm1.massey.ac.nz with MailMarshal
+	id <B001002e72>; Fri, 04 Oct 2002 09:37:30 +1200
+Received: from it012615.massey.ac.nz (it012615.massey.ac.nz [130.123.107.104])
+	by its-campus1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id JAA22473
+	for <Tim.Bunce@pobox.com>; Fri, 4 Oct 2002 09:37:30 +1200 (NZST)
+Subject: Re: Multiple drivers ?
+From: Glen Eustace <G.Eustace@massey.ac.nz>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+In-Reply-To: <20021003092501.GA32825@dansat.data-plan.com>
+References: <20021003092501.GA32825@dansat.data-plan.com>
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+X-Mailer: Ximian Evolution 1.0.8 (1.0.8-4) 
+Date: 04 Oct 2002 09:34:07 +1200
+Message-Id: <1033680847.22967.42.camel@it012615>
+Mime-Version: 1.0
+Status: RO
+X-Status: A
+Content-Length: 3293
+Lines: 70
+
+This is getting really frustrating.  DBI + both DBD drivers were
+compiled and installed with -g, perl did that automagically as it had
+itself been compiled with -g.
+
+I don't seem to be getting anywhere with trying to trace perl, does the
+following help at all.  I swapped the order of the connects.  In both
+cases it dies after the 2nd one, either after or in the setup of
+HandleError
+
+T1.(its-dev1)work: /usr/local/bin/perl5.8.0 -D DBITestI |& tail
+    -> connect for DBD::Pg::dr (DBI::dr=HASH(0x14010fdd0)~0x140227d30
+'dbname=netdbase;host=its-dev2.massey.ac.nz' 'netdbase' ****
+HASH(0x14012e080))
+    New DBI::db (for DBD::Pg::db, parent=DBI::dr=HASH(0x140227d30), id=)
+   
+dbih_setup_handle(DBI::db=HASH(0x140227ce0)=>DBI::db=HASH(0x140227c70),
+DBD::Pg::db, 14010fde0, Null!)
+    dbih_make_com(DBI::dr=HASH(0x140227d30), DBD::Pg::db, 168) thr#0
+    dbih_setup_attrib(DBI::db=HASH(0x140227c70), Err,
+DBI::dr=HASH(0x140227d30)) SCALAR(0x1401ea4d0) (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140227c70), State,
+DBI::dr=HASH(0x140227d30)) SCALAR(0x14010fcb0) (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140227c70), Errstr,
+DBI::dr=HASH(0x140227d30)) SCALAR(0x1401ea500) (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140227c70), Debug,
+DBI::dr=HASH(0x140227d30)) 0 (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140227c70), FetchHashKeyName,
+DBI::dr=HASH(0x140227d30)) 'NAME' (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140227c70), HandleError,
+DBI::dr=HASH(0x140227d30)) undef (not defined)
+Segmentation fault (core dumped) 
+T1.(its-dev1)work: /usr/local/bin/perl5.8.0 -D DBITestP | & tail
+    -> connect for DBD::Ingres::dr
+(DBI::dr=HASH(0x1401fc380)~0x140225d60 'its-admin1::csadminp' 'dbguest'
+**** HASH(0x14012e080))
+    New DBI::db (for DBD::Ingres::db, parent=DBI::dr=HASH(0x140225d60),
+id=)
+   
+dbih_setup_handle(DBI::db=HASH(0x140225d10)=>DBI::db=HASH(0x140225ca0),
+DBD::Ingres::db, 1401fc390, Null!)
+    dbih_make_com(DBI::dr=HASH(0x140225d60), DBD::Ingres::db, 176) thr#0
+    dbih_setup_attrib(DBI::db=HASH(0x140225ca0), Err,
+DBI::dr=HASH(0x140225d60)) SCALAR(0x1401fd6f0) (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140225ca0), State,
+DBI::dr=HASH(0x140225d60)) SCALAR(0x1401fc250) (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140225ca0), Errstr,
+DBI::dr=HASH(0x140225d60)) SCALAR(0x1401fd720) (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140225ca0), Debug,
+DBI::dr=HASH(0x140225d60)) 0 (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140225ca0), FetchHashKeyName,
+DBI::dr=HASH(0x140225d60)) 'NAME' (already defined)
+    dbih_setup_attrib(DBI::db=HASH(0x140225ca0), HandleError,
+DBI::dr=HASH(0x140225d60)) undef (not defined)
+Segmentation fault (core dumped) 
+
+
+On Thu, 2002-10-03 at 21:25, Tim Bunce wrote:
+> Try building DBI with "perl Makefile.PL -g" and hack
+> the generated driver Makefile's to add in "-g" to the
+> compiler and linker command lines.
+> 
+> Also try using gdb instead of dbx.
+ 
+-- 
+ .*.  | Glen Eustace, Systems Engineer - Networking.
+ /V\  | Information Technology Services PN460, Turitea,
+(/ \) | Massey University, Palmerston North, New Zealand.
+(   ) | Ph: +64 6 350 5799 x 2707, Fax: +64 6 350 5607
+^^-^^ |------------------------------------------------------------
+
+
+From G.Eustace@massey.ac.nz  Sun Oct  6 21:35:43 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g96KZgd07841
+	for <timbo@localhost>; Sun, 6 Oct 2002 21:35:43 +0100 (BST)
+	(envelope-from G.Eustace@massey.ac.nz)
+Received: from pop3.mail.demon.net [194.217.242.23]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Sun, 06 Oct 2002 21:35:43 +0100 (BST)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1033932165:10:08851:2; Sun, 06 Oct 2002 19:22:45 GMT
+Received: from wormwood.pobox.com ([208.210.125.20]) by punt-1.mail.demon.net
+           id aa1104381; 6 Oct 2002 19:22 GMT
+Received: from wormwood.pobox.com (localhost.pobox.com [127.0.0.1])
+	by wormwood.pobox.com (Postfix) with ESMTP id 0F80373FA1
+	for <Tim.Bunce@data-plan.com>; Sun,  6 Oct 2002 15:22:44 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from its-mail1.massey.ac.nz (its-mail1.massey.ac.nz [130.123.128.11])
+	by wormwood.pobox.com (Postfix) with ESMTP id 33B27726D2
+	for <Tim.Bunce@pobox.com>; Sun,  6 Oct 2002 15:22:42 -0400 (EDT)
+Received: from its-mm1.massey.ac.nz (its-mm1.massey.ac.nz [130.123.128.45])
+	by its-mail1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id IAA05151
+	for <Tim.Bunce@pobox.com>; Mon, 7 Oct 2002 08:22:39 +1300 (NZDT)
+Received: from its-campus2.massey.ac.nz (Not Verified[130.123.48.254]) by its-mm1.massey.ac.nz with MailMarshal
+	id <B0010176ad>; Mon, 07 Oct 2002 08:22:39 +1300
+Received: from it012615.massey.ac.nz (it012615.massey.ac.nz [130.123.107.104])
+	by its-campus2.massey.ac.nz (8.9.3/8.9.3) with ESMTP id IAA00058
+	for <Tim.Bunce@pobox.com>; Mon, 7 Oct 2002 08:22:39 +1300 (NZDT)
+Subject: Re: Multiple drivers ?
+From: Glen Eustace <G.Eustace@massey.ac.nz>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+In-Reply-To: <20021004073858.GC2249@dansat.data-plan.com>
+References: <20021004073858.GC2249@dansat.data-plan.com>
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+X-Mailer: Ximian Evolution 1.0.8 (1.0.8-4) 
+Date: 07 Oct 2002 08:19:02 +1300
+Message-Id: <1033931942.22967.73.camel@it012615>
+Mime-Version: 1.0
+Status: RO
+Content-Length: 486
+Lines: 14
+
+Not yet, I don't have it on the system and will have to build it first.
+
+On Fri, 2002-10-04 at 19:38, Tim Bunce wrote:
+> Any joy with using gdb to get a stack trace from the core?
+> 
+> Tim.
+
+-- 
+ .*.  | Glen Eustace, Systems Engineer - Networking.
+ /V\  | Information Technology Services PN460, Turitea,
+(/ \) | Massey University, Palmerston North, New Zealand.
+(   ) | Ph: +64 6 350 5799 x 2707, Fax: +64 6 350 5607
+^^-^^ |------------------------------------------------------------
+
+
+From G.Eustace@massey.ac.nz  Wed Oct  9 17:52:53 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g99Gqpq02582
+	for <timbo@localhost>; Wed, 9 Oct 2002 17:52:52 +0100 (BST)
+	(envelope-from G.Eustace@massey.ac.nz)
+Received: from pop3.mail.demon.net [194.217.242.58]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Wed, 09 Oct 2002 17:52:52 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1034026546:20:13405:31; Mon, 07 Oct 2002 21:35:46 GMT
+Received: from dolly1.pobox.com ([207.106.49.22]) by punt-2.mail.demon.net
+           id aa2013411; 7 Oct 2002 21:35 GMT
+Received: from dolly1.pobox.com (localhost.localdomain [127.0.0.1])
+	by dolly1.pobox.com (Postfix) with ESMTP id 9078E2C014
+	for <Tim.Bunce@data-plan.com>; Mon,  7 Oct 2002 17:34:57 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from its-mail1.massey.ac.nz (its-mail1.massey.ac.nz [130.123.128.11])
+	by dolly1.pobox.com (Postfix) with ESMTP id E8D702C040
+	for <Tim.Bunce@pobox.com>; Mon,  7 Oct 2002 17:34:55 -0400 (EDT)
+Received: from its-mm1.massey.ac.nz (its-mm1.massey.ac.nz [130.123.128.45])
+	by its-mail1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id KAA25521
+	for <Tim.Bunce@pobox.com>; Tue, 8 Oct 2002 10:34:53 +1300 (NZDT)
+Received: from its-campus1.massey.ac.nz (Not Verified[130.123.32.254]) by its-mm1.massey.ac.nz with MailMarshal
+	id <B0010239c8>; Tue, 08 Oct 2002 10:34:53 +1300
+Received: from it012615.massey.ac.nz (it012615.massey.ac.nz [130.123.107.104])
+	by its-campus1.massey.ac.nz (8.9.3/8.9.3) with ESMTP id KAA30844
+	for <Tim.Bunce@pobox.com>; Tue, 8 Oct 2002 10:34:53 +1300 (NZDT)
+Subject: Re: Multiple drivers ?
+From: Glen Eustace <G.Eustace@massey.ac.nz>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+In-Reply-To: <20021004073858.GC2249@dansat.data-plan.com>
+References: <20021004073858.GC2249@dansat.data-plan.com>
+Content-Type: text/plain
+Content-Transfer-Encoding: 7bit
+X-Mailer: Ximian Evolution 1.0.8 (1.0.8-4) 
+Date: 08 Oct 2002 10:34:53 +1300
+Message-Id: <1034026493.4850.10.camel@it012615>
+Mime-Version: 1.0
+Status: O
+Content-Length: 2172
+Lines: 48
+
+Right, some progress at last.  The first trace is where Ingres is
+connect to first then Postgres, the 2nd is the other way around.
+
+(gdb) where
+#0  0x3ff800e9b78 in kill () from /usr/shlib/libc.so
+#1  0x3000084c470 in EXsignal () from
+/usr/local/lib/perl5/site_perl/5.8.0/alpha-dec_osf/auto/DBD/Ingres/Ingres.so
+#2  0x3000084c12c in i_EXcatch () from
+/usr/local/lib/perl5/site_perl/5.8.0/alpha-dec_osf/auto/DBD/Ingres/Ingres.so
+#3  <signal handler called>
+#4  0x3000100a0c8 in pg_db_login () from
+/usr/local/lib/perl5/site_perl/5.8.0/alpha-dec_osf/auto/DBD/Pg/Pg.so
+#5  0x30001003f64 in XS_DBD__Pg__db__login () from
+/usr/local/lib/perl5/site_perl/5.8.0/alpha-dec_osf/auto/DBD/Pg/Pg.so
+#6  0x3ffbff5ca0c in Perl_pp_entersub () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+#7  0x3ffbff36740 in Perl_runops_debug () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+#8  0x3ffbfed1930 in Perl_call_sv () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+#9  0x3ffbfed104c in Perl_call_sv () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+Cannot access memory at address 0xfffffffffffffffd
+(gdb) quit
+
+(gdb) where
+#0  0x3000182adc8 in dbd_db_login () from
+/usr/local/lib/perl5/site_perl/5.8.0/alpha-dec_osf/auto/DBD/Ingres/Ingres.so
+#1  0x30001825438 in XS_DBD__Ingres__db__login ()
+   from
+/usr/local/lib/perl5/site_perl/5.8.0/alpha-dec_osf/auto/DBD/Ingres/Ingres.so
+#2  0x3ffbff5ca0c in Perl_pp_entersub () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+#3  0x3ffbff36740 in Perl_runops_debug () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+#4  0x3ffbfed1930 in Perl_call_sv () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+#5  0x3ffbfed104c in Perl_call_sv () from
+/usr/local/lib/perl5/5.8.0/alpha-dec_osf/CORE/libperl.so
+Cannot access memory at address 0xfffffffffffffffd
+
+-- 
+ .*.  | Glen Eustace, Systems Engineer - Networking.
+ /V\  | Information Technology Services PN460, Turitea,
+(/ \) | Massey University, Palmerston North, New Zealand.
+(   ) | Ph: +64 6 350 5799 x 2707, Fax: +64 6 350 5607
+^^-^^ |------------------------------------------------------------
+
+
diff --git a/err_shelved/err_paramtypeattr.msg b/err_shelved/err_paramtypeattr.msg
new file mode 100644
index 00000000..00b42241
--- /dev/null
+++ b/err_shelved/err_paramtypeattr.msg
@@ -0,0 +1,127 @@
+From dbi-users-return-18973-Tim.Bunce=pobox.com@perl.org  Fri Jun 13 13:41:57 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h5DCc13p094355
+	for <timbo@localhost>; Fri, 13 Jun 2003 13:41:56 +0100 (BST)
+	(envelope-from dbi-users-return-18973-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 13 Jun 2003 13:41:56 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1055496595:20:08218:17; Fri, 13 Jun 2003 09:29:55 GMT
+Received: from puzzle.pobox.com ([207.106.49.20]) by punt-2.mail.demon.net
+           id aa2108963; 13 Jun 2003 9:29 GMT
+Received: from puzzle.pobox.com (localhost [127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id E0F8826C0C0
+	for <Tim.Bunce@data-plan.com>; Fri, 13 Jun 2003 05:29:37 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [64.70.54.95])
+	by puzzle.pobox.com (Postfix) with SMTP id 7680B26C2F9
+	for <Tim.Bunce@pobox.com>; Fri, 13 Jun 2003 05:29:37 -0400 (EDT)
+Received: (qmail 84076 invoked by uid 1005); 13 Jun 2003 09:28:29 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 83995 invoked by uid 76); 13 Jun 2003 09:28:27 -0000
+Received: from qmailr@one.develooper.com (HELO ran-out.mx.develooper.com) (64.81.84.115) by onion.perl.org (qpsmtpd/0.26) with SMTP; Fri, 13 Jun 2003 02:28:27 -0700
+Received: (qmail 4047 invoked by uid 225); 13 Jun 2003 09:27:36 -0000
+Delivered-To: dbi-users@perl.org
+Received: (qmail 4015 invoked by uid 507); 13 Jun 2003 09:27:32 -0000
+Received: from mail03.svc.cra.dublin.eircom.net (HELO mail03.svc.cra.dublin.eircom.net) (159.134.118.19) by one.develooper.com (qpsmtpd/0.26) with SMTP; Fri, 13 Jun 2003 02:27:31 -0700
+Received: (qmail 77474 messnum 3719254 invoked from network[159.134.165.197/p453.as1.limerick1.eircom.net]); 13 Jun 2003 09:27:41 -0000
+Received: from p453.as1.limerick1.eircom.net (HELO dansat.data-plan.com) (159.134.165.197)  by mail03.svc.cra.dublin.eircom.net (qp 77474) with SMTP; 13 Jun 2003 09:27:41 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h5D9Rh0p084228;	Fri, 13 Jun 2003 10:27:43 +0100 (BST)	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id h5D9RhnU084227;	Fri, 13 Jun 2003 10:27:43 +0100 (BST)
+Date: Fri, 13 Jun 2003 10:27:43 +0100
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Steven Lembark <lembark@wrkhors.com>
+Cc: dbi-users <dbi-users@perl.org>
+Subject: Re: Query formatting problem
+Message-ID: <20030613092743.GM77623@dansat.data-plan.com>
+References: <47410000.1055436905@getz.wrkhors.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <47410000.1055436905@getz.wrkhors.com>
+User-Agent: Mutt/1.4i
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-1.9 required=7.0 tests=CARRIAGE_RETURNS,IN_REP_TO,REFERENCES,SPAM_PHRASE_00_01,USER_AGENT,USER_AGENT_MUTT version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 2322
+Lines: 69
+
+On Thu, Jun 12, 2003 at 11:55:05AM -0500, Steven Lembark wrote:
+
+> Using the placeholders makes my life simpler since the
+> name and value are taken from the same variable but
+> DBI handles the stringy/numeric issues for itself. The
+> problem starts when admin's have to check why something
+> failed at 3am and don't know that the '?' are replaced
+> as '500' followed by a naked 500 (for $a) and then the
+> date in quotes.
+> 
+> What I need is something like:
+> 	my $a = 500;
+> 	my $date = '11-Jul-1999';
+> 	$string = $sth->interpolated( $sql, $a, $a, $date )
+> 
+> gives me back:
+> 		name = "500"
+> 		and
+> 		value = 500
+> 		and
+> 		date = "11-Jul-1999"
+> 
+> The main issue is being able to walk the bind param. list
+> and check if the columns are numeric (naked copy of $a + 0
+> inserted) or not (quoted copy of $a).
+
+It's not quite that simple.
+
+> The alternative is having to sprintf every query I use
+> for each combination of values and $dbh->do() them for
+> large datasets in case any one of them fails (ugh!).
+> 
+> Looking throught he DBI-1.38 pod, the Catalog Methods
+> don't have anything quite like this since there is no
+> way to query what DBI thinks of the bound parameters
+
+There is the $sth->{ParamValues} attribute.
+
+I could add an $sth->{ParamTypes} attribute. Patches welcome!
+
+[Would be a hash with the same keys as ParamValues. The hash values
+would be either an integer SQL_* type value, like SQL_VARCHAR, or
+a ref to a hash that included a TYPE => SQL_* type value pair, plus
+anything else that was passed at the third arg to bind_param()]
+
+> An ideal would be some sort of $dbh->blah that returned
+> the stringified version of whatever query was run last:
+> 
+> 	die join "\n",
+> 		'Bad news, boss:',
+> 		$dbh->errstr,
+> 		$dbh->last_query
+> 	;
+> 
+> If there is someplace w/in the SQL modules that has this
+> please warn me, so far wandering through CPAN hasn't
+> gotten me anywhere.
+
+It's not done because it's far from trivial to "do it right".
+
+"The Plan" is that the (undocumented) preparse method can be asked
+to return the query reformatted into a sprintf string, into which
+you can then fairly easily plug the bind values - but you'd have to
+look after any quoting for each.
+
+An extra method could then be added to do that for you and then the
+driver could override that if it needed to.
+
+Tim.
+
diff --git a/err_shelved/err_poddocs.msg b/err_shelved/err_poddocs.msg
new file mode 100644
index 00000000..32f21d57
--- /dev/null
+++ b/err_shelved/err_poddocs.msg
@@ -0,0 +1,69 @@
+From dbi-users-return-9708-Tim.Bunce=pobox.com@perl.org  Thu Feb 28 15:13:20 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g1SFDKU40298
+	for <timbo@localhost>; Thu, 28 Feb 2002 15:13:20 GMT
+	(envelope-from dbi-users-return-9708-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.58]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 28 Feb 2002 15:13:20 +0000 (GMT)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1014908847:20:07471:26; Thu, 28 Feb 2002 15:07:27 GMT
+Received: from cali-3.pobox.com ([64.71.166.116]) by punt-2.mail.demon.net
+           id aa2112148; 28 Feb 2002 15:07 GMT
+Received: from cali-3.pobox.com (localhost.localdomain [127.0.0.1])
+	by cali-3.pobox.com (Postfix) with ESMTP id 3E0CB3E6B4
+	for <Tim.Bunce@data-plan.com>; Thu, 28 Feb 2002 10:00:41 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [209.85.157.220])
+	by cali-3.pobox.com (Postfix) with SMTP id 18F453E6B2
+	for <Tim.Bunce@pobox.com>; Thu, 28 Feb 2002 10:00:41 -0500 (EST)
+Received: (qmail 39714 invoked by uid 1005); 28 Feb 2002 15:00:31 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 39648 invoked by uid 76); 28 Feb 2002 15:00:16 -0000
+Received: from 66-3-212-3.customer.algx.net (HELO mail.focalex.com) (66.3.212.3)
+  by onion.perl.org (qpsmtpd/0.06) with SMTP; Thu Feb 28 15:00:16 2002 -0000
+Received: (from rjk@localhost)
+	by mail.focalex.com (8.9.3/8.9.3) id JAA25121;
+	Thu, 28 Feb 2002 09:56:15 -0500
+Date: Thu, 28 Feb 2002 09:56:15 -0500
+From: Ronald J Kimball <rjk-dbi@focalex.com>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Cc: dbi-users <dbi-users@perl.org>
+Subject: Re: [PATCH] Optionally prevent prepare_cached from calling finish on active handle
+Message-ID: <20020228095615.I5083@herschel.focalex.com>
+References: <20020228043816.GG2921@owns.warpcore.org> <20020228085505.G5083@herschel.focalex.com> <20020228141124.T17360@dansat.data-plan.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+X-Mailer: Mutt 1.0.1i
+In-Reply-To: <20020228141124.T17360@dansat.data-plan.com>; from Tim.Bunce@pobox.com on Thu, Feb 28, 2002 at 02:11:24PM +0000
+Status: RO
+X-Status: A
+Content-Length: 453
+Lines: 19
+
+On Thu, Feb 28, 2002 at 02:11:24PM +0000, Tim Bunce wrote:
+> On Thu, Feb 28, 2002 at 08:55:05AM -0500, Ronald J Kimball wrote:
+> > That should be written as either:
+> > 
+> > C<$sth-E<gt>{Active}>
+> > 
+> > or:
+> > 
+> > C<< $sth->{Active} >>
+> 
+> What's the oldest version of perl that supports those forms of pod
+> for all pod translators?
+
+C<$sth-E<gt>{Active}> should work fine in 5.004, possibly earlier.
+
+C<< $sth->{Active} >> requires 5.6.
+
+Ronald
+
+
diff --git a/err_shelved/err_priv_attr_subclass.msg b/err_shelved/err_priv_attr_subclass.msg
new file mode 100644
index 00000000..6819cdcd
--- /dev/null
+++ b/err_shelved/err_priv_attr_subclass.msg
@@ -0,0 +1,71 @@
+From dbi-users-return-8368-Tim.Bunce=pobox.com@perl.org  Mon Jan  7 12:41:55 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g07CftU22020
+	for <timbo@localhost>; Mon, 7 Jan 2002 12:41:55 GMT
+	(envelope-from dbi-users-return-8368-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.22]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Mon, 07 Jan 2002 12:41:55 +0000 (GMT)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1010405559:10:17922:31; Mon, 07 Jan 2002 12:12:39 GMT
+Received: from wormwood.pobox.com ([208.210.125.20]) by punt-1.mail.demon.net
+           id aa1126847; 7 Jan 2002 12:12 GMT
+Received: from wormwood.pobox.com (localhost.pobox.com [127.0.0.1])
+	by wormwood.pobox.com (Postfix) with ESMTP id 5870C72517
+	for <Tim.Bunce@data-plan.com>; Mon,  7 Jan 2002 07:12:13 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [209.85.157.220])
+	by wormwood.pobox.com (Postfix) with SMTP id 48FD3725AC
+	for <Tim.Bunce@pobox.com>; Mon,  7 Jan 2002 07:12:12 -0500 (EST)
+Received: (qmail 78049 invoked by uid 1005); 7 Jan 2002 12:12:05 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Delivered-To: moderator for dbi-users@perl.org
+Received: (qmail 74601 invoked by uid 76); 7 Jan 2002 11:55:17 -0000
+Date: Mon, 7 Jan 2002 11:55:03 +0000
+From: Graham Barr <gbarr@pobox.com>
+To: Tim Bunce <Tim.Bunce@pobox.com>
+Cc: "Randal L. Schwartz" <merlyn@stonehenge.com>, dbi-users@perl.org
+Subject: Re: Subclassing - draft docs (Re: Important: Subclassing and Merg	ing DBIx::AnyDBD into the DBI)
+Message-ID: <20020107115503.M14235@pobox.com>
+References: <B1FA93A1B9A9D31189EC00508B6140CD065A0E59@KPEXS08> <3C35DFC3.6090607@globalsports.com> <20020105012243.D75939@dansat.data-plan.com> <m1zo3sbyr4.fsf@halfdome.holdit.com> <20020106224336.M75939@dansat.data-plan.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+User-Agent: Mutt/1.2.5i
+In-Reply-To: <20020106224336.M75939@dansat.data-plan.com>; from Tim.Bunce@pobox.com on Sun, Jan 06, 2002 at 10:43:36PM +0000
+Status: RO
+X-Status: A
+Content-Length: 930
+Lines: 24
+
+On Sun, Jan 06, 2002 at 10:43:36PM +0000, Tim Bunce wrote:
+> > If people want per-DBI-handle data, why not provide the data via
+> > $dbh->private instead, which returns a hashref unique to the handle?
+> 
+> And shared by all other classes/code which wants to use per-handle data.
+> Doesn't seem to be much of a win.
+> 
+> Though it crosses my mind that a $h->private(__PACKAGE__, 'foo') interface
+> would at least force people to consider namespace polution/protection.
+
+This is similar to what we did in Tk a long time ago. There is a method
+->private which takes an optional package name, if the package is
+not given it defaults to the callers package. It simply returns a hashref
+for the caller to use. It was meant for subclasses to store thier own data
+without clashing. The code for Tk was something like
+
+sub private {
+  my $self = shift;
+  my $pkg = shift || caller;
+  return $self->{private_data}{$pkg} ||= {};
+}
+
+Graham.
+
+
diff --git a/err_shelved/err_provide_sth_reset.msg b/err_shelved/err_provide_sth_reset.msg
new file mode 100644
index 00000000..4c58d9ff
--- /dev/null
+++ b/err_shelved/err_provide_sth_reset.msg
@@ -0,0 +1,130 @@
+From dbi-users-return-8931-Tim.Bunce=pobox.com@perl.org  Tue Jan 29 16:20:44 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g0TGKhU62145
+	for <timbo@localhost>; Tue, 29 Jan 2002 16:20:43 GMT
+	(envelope-from dbi-users-return-8931-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.40]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 29 Jan 2002 16:20:43 +0000 (GMT)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1012320821:11:23499:26; Tue, 29 Jan 2002 16:13:41 GMT
+Received: from wormwood.pobox.com ([208.210.125.20]) by punt-1.mail.demon.net
+           id aa1102528; 29 Jan 2002 16:00 GMT
+Received: from wormwood.pobox.com (localhost.pobox.com [127.0.0.1])
+	by wormwood.pobox.com (Postfix) with ESMTP id C24C87255B
+	for <Tim.Bunce@data-plan.com>; Tue, 29 Jan 2002 10:59:28 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [209.85.157.220])
+	by wormwood.pobox.com (Postfix) with SMTP id E31467251C
+	for <Tim.Bunce@pobox.com>; Tue, 29 Jan 2002 10:59:27 -0500 (EST)
+Received: (qmail 48658 invoked by uid 1005); 29 Jan 2002 15:56:53 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 48478 invoked by uid 76); 29 Jan 2002 15:56:48 -0000
+Received: from gw.peppler.org (HELO kiruna.peppler.org) (206.55.243.57)
+  by onion.perl.org (qpsmtpd/0.06) with SMTP; Tue Jan 29 15:56:48 2002 -0000
+Received: from troll.peppler.org (troll [192.168.0.4])
+	by kiruna.peppler.org (8.9.1b+Sun/8.9.1) with ESMTP id HAA13392;
+	Tue, 29 Jan 2002 07:56:37 -0800 (PST)
+Received: (from mpeppler@localhost)
+	by troll.peppler.org (8.11.6/8.11.6) id g0TFuaG16479;
+	Tue, 29 Jan 2002 07:56:36 -0800
+From: Michael Peppler <mpeppler@peppler.org>
+MIME-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Transfer-Encoding: 7bit
+Message-ID: <15446.50740.489133.566962@troll.peppler.org>
+Date: Tue, 29 Jan 2002 07:56:36 -0800
+To: "Abi Pothen" <apothen@hotmail.com>
+Cc: dbi-users@perl.org, dgood@stratasource.com, Tim.Bunce@ig.co.uk
+Subject: Re: Multiple Results in DBD::ODBC 0.31
+In-Reply-To: <LAW2-F38LqN33HFnwpG000044d7@hotmail.com>
+References: <LAW2-F38LqN33HFnwpG000044d7@hotmail.com>
+X-Mailer: VM 6.92 under 21.1 (patch 12) "Channel Islands" XEmacs Lucid
+Status: RO
+X-Status: A
+Content-Length: 2355
+Lines: 76
+
+[ redirected to dbi-users ]
+
+Abi Pothen writes:
+ > Hi,
+ >   I am having a problem with DBD::ODBC (version 0.31) that has fixes to 
+ > handle multiple result set. This fix is working fine only when the number of 
+ > columns of the previous result set is equal to or greater than the number of 
+ > columns of the following result set. If the number of columns of the result 
+ > set of the previous result set is greater than the following, SQLFetch 
+ > function call is failing and returning -1.
+
+I've had to handle that in DBD::Sybase (as well as clearing the
+NAME_xx attribute cache between result sets).
+
+I'm not sure that I've got the best solution, but I have code like
+this in dbdimp.c between result sets:
+
+    av = DBIS->get_fbav(imp_sth);
+    num_fields = AvFILL(av)+1;
+
+    /* XXX
+       The code in the if() below is likely to break with new versions
+       of DBI!!! */
+    if(num_fields < imp_sth->numCols) {
+	int isReadonly = SvREADONLY(av);
+	if(isReadonly)
+	    SvREADONLY_off(av);		/* DBI sets this readonly  */
+	i = imp_sth->numCols - 1;
+	while(i >= num_fields)
+	    av_store(av, i--, newSV(0));
+	num_fields = AvFILL(av)+1;
+	if(isReadonly)
+	    SvREADONLY_on(av);		/* protect against shift @$row etc */
+    } else if(num_fields > imp_sth->numCols) {
+	int isReadonly = SvREADONLY(av);
+	if(isReadonly)
+	    SvREADONLY_off(av);		/* DBI sets this readonly  */
+	av_fill(av, imp_sth->numCols - 1);
+	num_fields = AvFILL(av)+1;
+	if(isReadonly)
+	    SvREADONLY_on(av);		/* protect against shift @$row etc */
+    }
+
+and
+
+	      if(imp_sth->done_desc) {
+		  HV *hv = (HV*)SvRV(sth);
+		  HE *he;
+
+		  cleanUp(imp_sth);
+		  
+		  hv_iterinit(hv);
+		  while((he = hv_iternext(hv))) {
+		      I32 i;
+		      char *key = hv_iterkey(he, &i);
+		      SV *sv = hv_iterval(hv, he);
+
+		      if(strnEQ(key, "NAME", 4)) {
+			  if(dbis->debug >= 3)
+			      PerlIO_printf(DBILOGFP, 
+			       "    st_next_result() -> delete key %s (%s) from cache\n",
+					    key, neatsvpv(sv, 0));
+
+			  hv_delete(hv, key, i, G_DISCARD);
+		      }
+		  }
+	      }
+
+I'm not really sure that this last bit is all that is needed, or the
+correct way to clear the cached attributes, but it seems to work.
+
+Michael
+-- 
+Michael Peppler - Data Migrations Inc. - http://www.mbay.net/~mpeppler
+mpeppler@peppler.org - mpeppler@mbay.net
+International Sybase User Group - http://www.isug.com
+
diff --git a/err_shelved/err_proxybindnamed.msg b/err_shelved/err_proxybindnamed.msg
new file mode 100644
index 00000000..0d953130
--- /dev/null
+++ b/err_shelved/err_proxybindnamed.msg
@@ -0,0 +1,400 @@
+From ome@webcom.de  Fri Dec 14 07:31:22 2001
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id fBE7VLN56647
+	for <timbo@localhost>; Fri, 14 Dec 2001 07:31:21 GMT
+	(envelope-from ome@webcom.de)
+Received: from pop3.mail.demon.net [194.217.242.59]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 14 Dec 2001 07:31:21 +0000 (GMT)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1008266036:10:05019:1; Thu, 13 Dec 2001 17:53:56 GMT
+Received: from cali-2.pobox.com ([64.71.166.115]) by punt-1.mail.demon.net
+           id aa1004659; 13 Dec 2001 17:53 GMT
+Received: from cali-2.pobox.com (localhost.localdomain [127.0.0.1])
+	by cali-2.pobox.com (Postfix) with ESMTP id 989F83E800
+	for <Tim.Bunce@data-plan.com>; Thu, 13 Dec 2001 12:53:05 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from arane.webcom.de (unknown [217.110.202.132])
+	by cali-2.pobox.com (Postfix) with ESMTP id D69A03E7B6
+	for <Tim.Bunce@pobox.com>; Thu, 13 Dec 2001 12:52:15 -0500 (EST)
+Received: from omenotebook (p78.n78.dip.aha.ru [195.2.78.78])
+	by arane.webcom.de (Postfix) with ESMTP id A96871729D
+	for <Tim.Bunce@pobox.com>; Thu, 13 Dec 2001 18:51:00 +0100 (MET)
+From: "Oleg Mechtcheriakov" <ome@webcom.de>
+To: "'Tim Bunce'" <Tim.Bunce@pobox.com>
+Subject: RE: :Proxy and bind_param (with ORACLE)
+Date: Thu, 13 Dec 2001 18:43:47 +0100
+Message-ID: <001f01c183fe$447c1940$9b4e02c3@webcom.de>
+MIME-Version: 1.0
+Content-Type: text/plain;
+	charset="iso-8859-1"
+Content-Transfer-Encoding: 7bit
+X-Priority: 3 (Normal)
+X-MSMail-Priority: Normal
+X-Mailer: Microsoft Outlook CWS, Build 9.0.2416 (9.0.2911.0)
+Importance: Normal
+X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
+In-Reply-To: <20011213160038.A49031@dansat.data-plan.com>
+Status: RO
+Content-Length: 7257
+Lines: 236
+
+Hi, Tim,
+
+thanks for Your mail.
+
+Unfortunately I've changed the project, the job and the programming language
+since then, so now I cannot add anything to the matter. Feel free to do with
+my suggested patch whatever You like -- I'm pretty sure You will do it quite
+well as usial.
+
+Reg's
+Oleg
+
+P.S. BTW, finally I had to give up with this PROXY idea coze in the
+production environment ORACLE was somehow unhappy with a lot of connections
+made by proxy-server. I guess we need a good approach which will allow us to
+have proxy-server which is able to pool or to cash somehow
+ORACLE-connections.
+
+
+
+-----Original Message-----
+From: Tim Bunce [mailto:Tim.Bunce@pobox.com]
+Sent: Thursday, December 13, 2001 5:01 PM
+To: Oleg Mechtcheriakov
+Cc: 'Tim Bunce'; 'Scott T. Hildreth'; dbi-users@perl.org
+Subject: Re: :Proxy and bind_param (with ORACLE)
+
+
+FYI I've opted to apply the ProxyServer patch (thanks) but not the Proxy
+patch for named bind params.  I'm not comfortable with the sql-editing
+approach. Too risky for general use.
+
+I think a better fix would be to treat $sth->{'proxy_params'} as a
+list of lists of bind params, so a bind_param(1,$foo) would push
+[1,$foo] onto teh list, and bind_param_inout(":baz",\$bar,10) would
+push [":baz",\$bar,10] onto the list. The list-of-lists would be
+easy to recognise and handle on the server side.
+
+Tim.
+
+On Thu, Aug 23, 2001 at 05:24:17PM +0200, Oleg Mechtcheriakov wrote:
+> OK,
+>
+> here come 'diff -c' files.
+>
+> And sorry for not so good explanation. Clear English is not my best point.
+> :-)
+>
+> But changes in the server and client code are independent. And basically
+> only Proxy.pm has to be changed for sure. Changes in ProxyServer fix
+another
+> point.
+>
+> So I don't use hash ref to allow new clients to work with old server. That
+> means that the communication and server's algorithm are kept the same.
+>
+> Reg's
+> Oleg
+>
+>
+>
+> > -----Original Message-----
+> > From: Tim Bunce [mailto:Tim.Bunce@pobox.com]
+> > Sent: Thursday, August 23, 2001 5:04 PM
+> > To: Oleg Mechtcheriakov
+> > Cc: 'Scott T. Hildreth'; dbi-users@perl.org; 'Tim Bunce'
+> > Subject: Re: :Proxy and bind_param (with ORACLE)
+> >
+> >
+> > On Thu, Aug 23, 2001 at 03:57:18PM +0200, Oleg Mechtcheriakov wrote:
+> > > OK,
+> > >
+> > > sorry for a delay, I was not in the office.
+> > >
+> > > The diff files are attached. The changes could be actually
+> > too fast and
+> > > dirty -- I'm just occasional programmer so may be I missed
+> > some hidden magic
+> > > behind of these modules.
+> >
+> > Why not just make params be a hash ref? Far simpler. (Don't
+> > forget to allow
+> > the server to handle both so old clients can still talk to a
+> > newer server.)
+> >
+> > Tim.
+> >
+> > p.s. Please use a context diff format (diff -c or diff -u).
+> >
+> > > Here comes an explanation.
+> > >
+> > > ---- Proxy.pm. ----
+> > > Existing version didn't handle named parameters in the
+> > function bind_param
+> > > (and bind_param_inout of course).
+> > >
+> > > The function is exented to handle named parameters as well.
+> > Named parameters
+> > > are supposed to be passed in the form
+> > ':name_of_the_parameter'. The function
+> > > replaces these named parameters in the quesry string with
+> > ':p1', ':p2' and
+> > > bind them as numbered parameters. This is allowed due to
+> > the fact that
+> > > DBD::Proxy doesn't make true 'prepare' and the query string
+> > could be changed
+> > > after 'prepare' was called.
+> > >
+> > > Perhaps the code itself has to be veryfied by some Perl
+> > guru because I'm not
+> > > 100% sure in my regular expressions. One more point is that
+> > to make sure I
+> > > programmed it so that named parameters in the form ':p1'
+> > will be rejected
+> > > but actually may be it was to restrictive.
+> > >
+> > > ---- ProxyServer.pm ----
+> > > Existing version processed parameter binding in the
+> > function 'execute' in a
+> > > wrong way. The decision about which function to use, bind_param or
+> > > bind_param_inout was made based on the number of the
+> > parameters passed in
+> > > the initial call of bind_param (or bind_param_inout) being
+> > made on the
+> > > client side (in the Proxy.pm). It worked well only when all
+> > the parameters
+> > > were given, i.e.
+> > >
+> > > $sth->bind_param_inout(1,\$addr_id,32,DBI::SQL_INTEGER)
+> > >
+> > > or
+> > > $sth->bind_param(1,$addr_id,DBI::SQL_INTEGER)
+> > >
+> > >
+> > > Actually my changes are optional and made mainly to get all
+> > my existing
+> > > scripts running whereas not all of them are supplying the
+> > whole parameter
+> > > list.
+> > >
+> > > Now the dicision which fucntion to use is made based on the
+> > 'nature' of the
+> > > parameter variable. It checks directly if this is a
+> > reference or not.
+> > >
+> > > That's all. Your are welcom to ask for more detailed explanation.
+> > >
+> > > Reg's
+> > > Oleg
+> > >
+> > >
+> > >
+> > >
+> > >
+> > > > -----Original Message-----
+> > > > From: shildret@scotth.emsphone.com
+> > > > [mailto:shildret@scotth.emsphone.com]On Behalf Of Scott
+> > T. Hildreth
+> > > > Sent: Tuesday, August 21, 2001 3:31 PM
+> > > > To: Oleg Mechtcheriakov
+> > > > Cc: dbi-users@perl.org
+> > > > Subject: RE: :Proxy and bind_param (with ORACLE)
+> > > >
+> > > >
+> > > >
+> > > > I believe you want to send the patch to Tim, since DBD::Proxy is
+> > > > bundled with DBI.
+> > > >
+> > > > On 21-Aug-01 Oleg Mechtcheriakov wrote:
+> > > > > OK,
+> > > > >
+> > > > > now I'm ready to answer my question om my own.
+> > > > >
+> > > > > The point was exactly that. DBI::Proxy worked well only for
+> > > > 'numbered'
+> > > > > parameters. I've created small and dirty patch to work with
+> > > > named parameters
+> > > > > as well. Who is the right person to talk about the patch
+> > > > for DBI::Proxy?
+> > > > >
+> > > > > Reg's
+> > > > > Oleg
+> > > > >
+> > > > >> -----Original Message-----
+> > > > >> From: Oleg Mechtcheriakov [mailto:ome@webcom.de]
+> > > > >> Sent: Monday, August 20, 2001 12:35 PM
+> > > > >> To: dbi-users@perl.org
+> > > > >> Subject: DBD::Proxy and bind_param (with ORACLE)
+> > > > >>
+> > > > >>
+> > > > >> Greetings,
+> > > > >>
+> > > > >> has someone experienced troubles with DBD::Proxy and
+> > > > >> bind_param function?
+> > > > >>
+> > > > >> I'm trying to switch from DBD::Oracle to DBD::Proxy and
+> > > > >> everything was OK
+> > > > >> but bind_param gives me an exception.
+> > > > >>
+> > > > >> Here is the code snippet:
+> > > > >>
+> > > > >> my $addr_id;
+> > > > >> my $sth = $dbh->prepare(q{BEGIN :id :=
+> > > > >> first_req.check_req_sub_ok(:address);END;});
+> > > > >> $sth->bind_param_inout(":id",\$addr_id,32,DBI::SQL_INTEGER);
+> > > > >> $sth->bind_param(":address",$address);
+> > > > >>
+> > > > >> which gives me the following error message at the first
+> > > > >> bind_param_inout
+> > > > >>
+> > > > >> Modification of non-creatable array value attempted,
+> > > > subscript -1 at
+> > > > >> /usr/local/lib/perl5/site_perl/5.6.1/i86pc-solaris/DBD/Proxy.p
+> > > > >> m line 536
+> > > > >>
+> > > > >> Any ideas?
+> > > > >>
+> > > > >> Many thanks in advance
+> > > > >> Oleg
+> > > > >>
+> > > > >>
+> > > > >
+> > > >
+> > > > ----------------------------------
+> > > > E-Mail: Scott T. Hildreth <shildreth@emsphone.com>
+> > > > Date: 21-Aug-01
+> > > > Time: 08:29:52
+> > > > ----------------------------------
+> > > >
+> >
+> >
+> >
+> >
+
+
+
+
+From dbi-users-return-10603-Tim.Bunce=pobox.com@perl.org  Mon Apr  8 13:29:21 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g38CTLK33004
+	for <timbo@localhost>; Mon, 8 Apr 2002 13:29:21 +0100 (BST)
+	(envelope-from dbi-users-return-10603-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.58]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Mon, 08 Apr 2002 13:29:21 +0100 (BST)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1018257505:10:10894:53; Mon, 08 Apr 2002 09:18:25 GMT
+Received: from dolly1.pobox.com ([207.106.49.22]) by punt-1.mail.demon.net
+           id aa1011969; 8 Apr 2002 9:18 GMT
+Received: from dolly1.pobox.com (localhost.localdomain [127.0.0.1])
+	by dolly1.pobox.com (Postfix) with ESMTP id AD0BE2C0AD
+	for <Tim.Bunce@data-plan.com>; Mon,  8 Apr 2002 05:17:56 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [209.85.157.220])
+	by dolly1.pobox.com (Postfix) with SMTP id 38AEA2C0A5
+	for <Tim.Bunce@pobox.com>; Mon,  8 Apr 2002 05:17:56 -0400 (EDT)
+Received: (qmail 1684 invoked by uid 1005); 8 Apr 2002 09:17:52 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 1666 invoked by uid 76); 8 Apr 2002 09:17:51 -0000
+Received: from patan.sun.com (HELO patan.sun.com) (192.18.98.43)
+  by onion.perl.org (qpsmtpd/0.06) with SMTP; Mon Apr  8 09:17:51 2002 -0000
+Received: from rannoch-mail1.UK.Sun.COM ([129.159.90.102])
+	by patan.sun.com (8.9.3+Sun/8.9.3) with ESMTP id DAA16287
+	for <dbi-users@perl.org>; Mon, 8 Apr 2002 03:17:48 -0600 (MDT)
+Received: from sr-ellg01-03 (sr3-ge1-sf [129.159.90.208])
+	by rannoch-mail1.UK.Sun.COM (8.10.2+Sun/8.10.2/ENSMAIL,v2.1p1) with SMTP id g389HlX09517
+	for <dbi-users@perl.org>; Mon, 8 Apr 2002 10:17:48 +0100 (BST)
+Message-Id: <200204080917.g389HlX09517@rannoch-mail1.UK.Sun.COM>
+Date: Mon, 8 Apr 2002 10:17:47 +0100 (BST)
+From: Ben Lowe - RMC EMEA - Web Developer <Ben.Lowe@Sun.COM>
+Reply-To: Ben Lowe - RMC EMEA - Web Developer <Ben.Lowe@Sun.COM>
+Subject: DBD::Proxy connecting to Oracle using PL/SQL and stored procedures
+To: dbi-users@perl.org
+MIME-Version: 1.0
+Content-Type: TEXT/plain; charset=us-ascii
+Content-MD5: IaPbbAlKo+8H8ojTXVpMsw==
+X-Mailer: dtmail 1.3.0 @(#)CDE Version 1.4.2 SunOS 5.8 sun4u sparc 
+Status: RO
+X-Status: A
+Content-Length: 2227
+Lines: 70
+
+Hi,
+
+I have repeated my original post below. Does anyone on here know if it is 
+possible to use inout parameters using DBD::Proxy ? Is this a specific problem
+with oracle ? What I would like to do is to execute an oracle stored 
+procedure and return back a primary key or an error message.Has anyone found a
+way to do this if you can't use inout parameters ? 
+
+cheers Ben
+------------- Begin Forwarded Message -------------
+
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Date: Fri, 5 Apr 2002 09:55:43 +0100 (BST)
+From: Ben Lowe - RMC EMEA - Web Developer <Ben.Lowe@Sun.COM>
+Subject: DBD::Proxy connecting to Oracle using PL/SQL and stored procedures
+To: dbi-users@perl.org
+
+Hello,
+
+This is my first post to this list. I need to be able to run PL/SQL and
+oracle stored procedures using the perl DBI. I am using the DBD::Proxy
+driver to connect to the oracle server on another host. I cannot get
+the following simple code to work.
+
+my $p1;
+my $csr = $dbh->prepare(q{
+    begin
+        :test := 1  * 2;
+    end;
+			 })or error(new CGI,$DBI::errstr);
+  
+$csr->bind_param_inout(':test', \$p1, 50) or error(new CGI,$DBI::errstr);
+$csr->execute() or error(new CGI,$DBI::errstr);
+print $p1;
+
+
+Whenever I try to use placeholders I get the
+following error:
+
+ Argument ":test" isn't numeric in subtraction (-) at 
+/usr/local/lib/perl5/site_perl/5.6.0/sun4-solaris/DBD/Proxy.pm line 536.
+ 
+Is it not possible to get a return value using DBD::Proxy ? I have tried using ?
+placeholders and this works for passing values to the statement but when
+I try and get a value back nothing happens. Is this a limitation in DBD::Proxy ?
+
+cheers Ben
+
+
+
+
+------------- End Forwarded Message -------------
+
+
+======================================================
+Ben Lowe,                                ben.l@sun.com
+ 
+Phone: +44 (0)1506 673425    5-digit shortdial: x73425
+  
+Web Developer		 EMEA Remote Monitoring Centre
+  
+LINLITHGOW,UK
+======================================================
+
+
+
diff --git a/err_shelved/err_proxytest.msg b/err_shelved/err_proxytest.msg
new file mode 100644
index 00000000..55d82fb0
--- /dev/null
+++ b/err_shelved/err_proxytest.msg
@@ -0,0 +1,70 @@
+From timbo@dansat.data-plan.com  Wed May 14 14:41:47 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.6/8.12.6) with ESMTP id h4EDda3A043838
+	for <timbo@localhost>; Wed, 14 May 2003 14:41:47 +0100 (BST)
+	(envelope-from timbo@dansat.data-plan.com)
+Received: from pop3.mail.demon.net [194.217.242.39]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Wed, 14 May 2003 14:41:47 +0100 (BST)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1052910735:10:26872:56; Wed, 14 May 2003 11:12:15 GMT
+Received: from puzzle.pobox.com ([207.106.49.20]) by punt-1.mail.demon.net
+           id aa1027917; 14 May 2003 11:12 GMT
+Received: from puzzle.pobox.com (localhost [127.0.0.1])
+	by puzzle.pobox.com (Postfix) with ESMTP id 2D0A226C404
+	for <Tim.Bunce@data-plan.com>; Wed, 14 May 2003 07:10:45 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from mail01.svc.cra.dublin.eircom.net (mail01.svc.cra.dublin.eircom.net [159.134.118.17])
+	by puzzle.pobox.com (Postfix) with SMTP id 3CAC726C2F8
+	for <Tim.Bunce@pobox.com>; Wed, 14 May 2003 07:10:44 -0400 (EDT)
+Received: (qmail 33834 messnum 121761 invoked from network[159.134.164.133/p133.as1.limerick1.eircom.net]); 14 May 2003 11:10:42 -0000
+Received: from p133.as1.limerick1.eircom.net (HELO dansat.data-plan.com) (159.134.164.133)
+  by mail01.svc.cra.dublin.eircom.net (qp 33834) with SMTP; 14 May 2003 11:10:42 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.6/8.12.6) with ESMTP id h4EBAk2f043654;
+	Wed, 14 May 2003 12:10:46 +0100 (BST)
+	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.12.6/8.12.6/Submit) id h4EBAkH4043653;
+	Wed, 14 May 2003 12:10:46 +0100 (BST)
+Date: Wed, 14 May 2003 12:10:41 +0100
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Brian McCauley <nobull@cpan.org>
+Cc: "Steven N. Hirsch" <shirsch@adelphia.net>, Tim Bunce <Tim.Bunce@pobox.com>
+Subject: Re: (Fwd) Re: Announce: DBI 1.36 ** RELEASE CANDIDATE 1 **
+Message-ID: <20030514111041.GY29922@dansat.data-plan.com>
+References: <Pine.LNX.4.44.0305131812150.2200-100000@atx.fast.net> <u94r3xlxbo.fsf@wcl-l.bham.ac.uk>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <u94r3xlxbo.fsf@wcl-l.bham.ac.uk>
+User-Agent: Mutt/1.4i
+Status: RO
+Content-Length: 945
+Lines: 24
+
+On Wed, May 14, 2003 at 09:57:47AM +0100, Brian McCauley wrote:
+> 
+> It is beginning to look more and more like something in my stuff has
+> interacted with other changes between 1.35 and 1.36RC1.
+> 
+> Having fixed the typo you found I've just run my patched 1.35
+> DBD::Proxy against it's own server and an old one, in all three
+> proxy_lazy_prepare modes ('0','1',undef) and with and without reading
+> NUM_OF_FIELDS between the prepare() and the execute().  It worked in
+> all 12 cases.
+> 
+> Anyhow lets hope 1.36RC2 works.  When 1.36 is out I'll produce a
+> tested set of patches against that and refrain from letting anyone see
+> my untested code.
+
+Sounds good.
+
+Certainly it would be helpful to improve the test suite.
+I'd like to see a t/foo.t that starts a server, sets DBI_AUTOPROXY,
+then executes t/10examp.t. It could then repeat that using different
+options in DBI_AUTOPROXY ("dbi:Proxy(proxy_foo=bar):...") to test
+other modes.
+
+Tim.
+
diff --git a/err_shelved/err_setmagic_rowfetch.msg b/err_shelved/err_setmagic_rowfetch.msg
new file mode 100644
index 00000000..18d74c03
--- /dev/null
+++ b/err_shelved/err_setmagic_rowfetch.msg
@@ -0,0 +1,82 @@
+From michael.schaefer@dlr.de  Thu Jan 21 12:04:20 1999
+Return-Path: <michael.schaefer@dlr.de>
+Received: from oink by toad.ig.co.uk (SMI-8.6/SMI-SVR4)
+	id MAA07309; Thu, 21 Jan 1999 12:04:17 GMT
+Received: from punt-21.mail.demon.net by oink with SMTP (PP) id <09006-28@oink>;
+          Thu, 21 Jan 1999 12:02:31 +0000
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@ig.co.uk 
+          id 916863427:20:14755:13; Wed, 20 Jan 99 20:17:07 GMT
+Received: from ttyc1.braunschweig.netsurf.de ([194.195.236.131]) 
+          by punt-2.mail.demon.net id aa2014522; 20 Jan 99 20:16 GMT
+Received: from mica (helo=localhost) by shadowlands.darknet 
+          with local-smtp (Exim 2.03 #4) id 103450-0000cw-00 
+          for Tim.Bunce@ig.co.uk; Wed, 20 Jan 1999 21:18:22 +0100
+Date: Wed, 20 Jan 1999 21:18:22 +0100 (CET)
+From: Michael Schaefer <michael.schaefer@dlr.de>
+To: Tim.Bunce@ig.co.uk
+Subject: DBI promlem?
+Message-ID: <Pine.LNX.4.02.9901202113240.2404-200000@shadowlands.darknet>
+MIME-Version: 1.0
+Content-Type: MULTIPART/MIXED; BOUNDARY="-1463786751-2140409513-916863502=:2404"
+Status: RO
+Content-Length: 2582
+Lines: 57
+
+  This message is in MIME format.  The first part should be readable text,
+  while the remaining parts are likely unreadable without MIME-aware tools.
+  Send mail to mime@docserver.cac.washington.edu for more info.
+
+---1463786751-2140409513-916863502=:2404
+Content-Type: TEXT/PLAIN; charset=US-ASCII
+
+Hi,
+
+I have sorta serious problem using DBI 1.06 (DBD:mysql 1.2015) together
+with Perl/TK (800.012). I attached a sample code demonstrating the
+problem.
+
+I use bind_col to bind a column to a variable. The variable gets updated,
+that part works fine. But it seems to get updated in a manner Perl/TK
+Widgets are not notified about the change (Entry widget which is bound to
+the variable too). Updating a variable given by reference inside perl
+(function test in demo.pl) works fine. 
+
+I am not sure if it is a problem of DBI, DBD:mysql or Perl/TK .), but
+maybe you can help me.
+
+The Perl version I am using is 5.002_02 with Linux 2.2-pre7 (Don't think
+it is a linux problem which is the reason I did not try with stable
+kernels)
+
+Michael
+
+---1463786751-2140409513-916863502=:2404
+Content-Type: TEXT/PLAIN; charset=US-ASCII; name="demo.pl"
+Content-Transfer-Encoding: BASE64
+Content-ID: <Pine.LNX.4.02.9901202118220.2404@shadowlands.darknet>
+Content-Description: 
+Content-Disposition: attachment; filename="demo.pl"
+
+IyEvdXNyL2Jpbi9wZXJsIC13DQoNCnVzZSBzdHJpY3Q7DQp1c2UgREJJOw0K
+dXNlIFRrOw0KDQpteSAkbmFtZTsNCg0KIyBUaGlzIGZ1bmN0aW9uIHVwZGF0
+ZXMgJG5hbWUsIGJ1dCB0aGUgJEVudHJ5IHdpZGdldCBkb2VzIG5vdCBub3Rp
+ZnkgaXQNCnN1YiBmZXRjaF9lbnRyeSB7DQoJbXkgKCAkaWQgKSA9IEBfOw0K
+ICAgIG15KCAkZGJoLCAkc3RoICk7DQoNCglwcmludCAiJG5hbWVcbiI7ICMg
+aXN0IGhpZXIgInRlc3QiOw0KCQ0KICAgICRkYmggPSBEQkktPmNvbm5lY3Qo
+ICJEQkk6bXlzcWw6ZGF0YWJhc2U9ZmlybWVuIiwgInJvb3QiLCB1bmRlZiAp
+Ow0KDQogICAgJHN0aCA9ICRkYmgtPnByZXBhcmUoIlNFTEVDVCBmaXJtZW5u
+YW1lIEZST00gZmlybWVuIFdIRVJFIGZpcm1lbmlkID0gPyAiKTsNCiAgICAk
+c3RoLT5leGVjdXRlKCAkaWQgKTsNCgkkc3RoLT5iaW5kX2NvbCggMSwgXCRu
+YW1lICk7DQojCSRzdGgtPmJpbmRfY29sdW1ucyggdW5kZWYsIFwkbmFtZSAp
+Ow0KCSRzdGgtPmZldGNoOw0KCQ0KICAgICRzdGgtPmZpbmlzaDsNCiAgICAk
+ZGJoLT5kaXNjb25uZWN0Ow0KDQoJcHJpbnQgIiRuYW1lXG4iOyAjIGlzdCBo
+aWVyIG5pY2h0IG1laHIgdGVzdCwgbnVyIGRhcyB3aWRnZXQgJGVudHJ5IGth
+cGllcnQgZXMgbmljaHQNCg0KfQ0KDQojIFRoaXMgZnVuY3Rpb24gd29ya3MN
+CnN1YiB0ZXN0IHsNCglteSAoICRuYW1lcmVmICkgPSBAXzsNCgkNCgkkJG5h
+bWVyZWYgPSAidGVzdCI7DQp9DQoNCg0KbXkgJG1haW4gPSBuZXcgVGs6Ok1h
+aW5XaW5kb3c7DQpteSAkZW50cnkgPSAkbWFpbi0+RW50cnkoIC13aWR0aD0+
+NDAsIC10ZXh0dmFyaWFibGU9PiBcJG5hbWUpLT5wYWNrOw0KDQomdGVzdCgg
+XCRuYW1lICk7DQomZmV0Y2hfZW50cnkoIDEgKTsNCg0KVGs6Ok1haW5Mb29w
+Ow0K
+---1463786751-2140409513-916863502=:2404--
+
diff --git a/err_shelved/err_state.msg b/err_shelved/err_state.msg
new file mode 100644
index 00000000..5f724ffa
--- /dev/null
+++ b/err_shelved/err_state.msg
@@ -0,0 +1,76 @@
+From timbo@dansat.data-plan.com  Tue Sep 30 21:52:31 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h8UKqFCF048073
+	for <timbo@localhost>; Tue, 30 Sep 2003 21:52:30 +0100 (BST)
+	(envelope-from timbo@dansat.data-plan.com)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 30 Sep 2003 21:52:30 +0100 (BST)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 1A4R9E-0004hS-Aq;
+	Tue, 30 Sep 2003 20:31:04 +0000
+Received: from [207.106.49.21] (helo=wink.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 1A4R9E-0004hS-Aq
+	for pobox@dbi.demon.co.uk; Tue, 30 Sep 2003 20:31:04 +0000
+Received: from wink.pobox.com (localhost[127.0.0.1])
+	by wink.pobox.com (Postfix) with ESMTP id D6C691EA6D
+	for <pobox@dbi.demon.co.uk>; Tue, 30 Sep 2003 16:31:03 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from mail03.svc.cra.dublin.eircom.net (mail03.svc.cra.dublin.eircom.net[159.134.118.19])
+	by wink.pobox.com (Postfix) with SMTP id 201C116A7C
+	for <Tim.Bunce@pobox.com>; Tue, 30 Sep 2003 16:31:03 -0400 (EDT)
+Received: (qmail 61234 messnum 176167 invoked from network[213.94.228.233/unknown]); 30 Sep 2003 20:31:01 -0000
+Received: from unknown (HELO dansat.data-plan.com) (213.94.228.233)
+  by mail03.svc.cra.dublin.eircom.net (qp 61234) with SMTP; 30 Sep 2003 20:31:01 -0000
+Received: from dansat.data-plan.com (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h8UKV9C3047848;
+	Tue, 30 Sep 2003 21:31:09 +0100 (BST)
+	(envelope-from timbo@dansat.data-plan.com)
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.12.9/8.12.9/Submit) id h8UKV8Ic047847;
+	Tue, 30 Sep 2003 21:31:08 +0100 (BST)
+Date: Tue, 30 Sep 2003 21:31:08 +0100
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Ronald J Kimball <rjk-dbi@focalex.com>
+Cc: Tim Bunce <Tim.Bunce@pobox.com>, Hardy Merrill <hmerrill@redhat.com>,
+   Andy Hassall <andy@andyh.co.uk>, dbi-users@perl.org
+Subject: Re: Insert return value
+Message-ID: <20030930203108.GQ42989@dansat.data-plan.com>
+References: <20030929155836.GH88918@dansat.data-plan.com> <20030929161417.GA24725@merrill.boston.redhat.com> <20030929194317.GO88918@dansat.data-plan.com> <20030929200232.GA25453@merrill.boston.redhat.com> <20030929203645.GA25651@merrill.boston.redhat.com> <011601c386cf$6a1c2ed0$0e64a8c0@excession> <20030929223529.GB88918@dansat.data-plan.com> <20030930125735.GA27929@merrill.boston.redhat.com> <20030930172427.GI42989@dansat.data-plan.com> <20030930133157.G25344@rkimball.focalex.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <20030930133157.G25344@rkimball.focalex.com>
+User-Agent: Mutt/1.4i
+Status: RO
+Content-Length: 1253
+Lines: 27
+
+On Tue, Sep 30, 2003 at 01:31:57PM -0400, Ronald J Kimball wrote:
+> On Tue, Sep 30, 2003 at 06:24:27PM +0100, Tim Bunce wrote:
+> > On Tue, Sep 30, 2003 at 08:57:35AM -0400, Hardy Merrill wrote:
+> > > 
+> > > My thought was that we'd
+> > > somehow want to know specifically that the violation is caused
+> > > by an attempt to insert a duplicate key, but 23000 is a
+> > > "generic" constraint violation error.  Is a generic constraint
+> > > violation error what we want for this?
+> > 
+> > It's all the standard gives you.
+> > 
+> > If you need more details there's always $h->errstr ...
+> 
+> I like the idea of having standard error values to check for, but if we
+> have to fall back to $dbh->errstr() anyway, I'm not sure what we're gaining
+> from this.  Personally, I've written a lot of code that checks for unique
+> constraint violations.  Detecting a generic constraint violation, without
+> knowing what type of constraint was violated, just doesn't seem very
+> useful to me.
+
+I think a lot of people/applications would be happy to have a
+standard way to check for a constraint violation; knowing that in
+their lives, and their databases e.g., mysql with MyISAM tables,
+the only constraint violation on an insert would be due to a duplicate key.
+
+Tim.
+
diff --git a/err_shelved/err_successwithinfo.msg b/err_shelved/err_successwithinfo.msg
new file mode 100644
index 00000000..2bf2d82d
--- /dev/null
+++ b/err_shelved/err_successwithinfo.msg
@@ -0,0 +1,89 @@
+From dbi-users-return-12265-Tim.Bunce=pobox.com@perl.org  Tue Jun 25 13:07:08 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g5PC77o69717
+	for <timbo@localhost>; Tue, 25 Jun 2002 13:07:07 +0100 (BST)
+	(envelope-from dbi-users-return-12265-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.59]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Tue, 25 Jun 2002 13:07:07 +0100 (BST)
+Received: from punt-1.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1024999579:10:23375:115; Tue, 25 Jun 2002 10:06:19 GMT
+Received: from cali-2.pobox.com ([64.71.166.115]) by punt-1.mail.demon.net
+           id aa1113555; 25 Jun 2002 10:06 GMT
+Received: from cali-2.pobox.com (localhost.localdomain [127.0.0.1])
+	by cali-2.pobox.com (Postfix) with ESMTP id 21C833E693
+	for <Tim.Bunce@data-plan.com>; Tue, 25 Jun 2002 06:01:14 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [64.70.54.95])
+	by cali-2.pobox.com (Postfix) with SMTP id AE0963E694
+	for <Tim.Bunce@pobox.com>; Tue, 25 Jun 2002 06:01:13 -0400 (EDT)
+Received: (qmail 43655 invoked by uid 1005); 25 Jun 2002 10:05:01 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 43640 invoked by uid 76); 25 Jun 2002 10:05:00 -0000
+Received: from mail05.svc.cra.dublin.eircom.net (HELO mail05.svc.cra.dublin.eircom.net) (159.134.118.21)
+  by onion.perl.org (qpsmtpd/0.07b) with SMTP; Tue Jun 25 10:05:00 2002 -0000
+Received: (qmail 98741 messnum 357937 invoked from network[159.134.167.72/p840.as1.limerick1.eircom.net]); 25 Jun 2002 09:59:50 -0000
+Received: from p840.as1.limerick1.eircom.net (HELO dansat.data-plan.com) (159.134.167.72)
+  by mail05.svc.cra.dublin.eircom.net (qp 98741) with SMTP; 25 Jun 2002 09:59:50 -0000
+Received: (from timbo@localhost)
+	by dansat.data-plan.com (8.11.6/8.11.6) id g5P9xo968632;
+	Tue, 25 Jun 2002 10:59:50 +0100 (BST)
+	(envelope-from timbo)
+Date: Tue, 25 Jun 2002 10:59:50 +0100
+From: Tim Bunce <Tim.Bunce@pobox.com>
+To: Reddy Thalakola <reddyt@yahoo-inc.com>
+Cc: dbi-users <dbi-users@perl.org>
+Subject: Re: strange error with using $db->do
+Message-ID: <20020625105950.L87029@dansat.data-plan.com>
+References: <NEBBLPOIMMCKNMNLFKGMGEODEMAA.reddyt@yahoo-inc.com> <NEBBLPOIMMCKNMNLFKGMGEOHEMAA.reddyt@yahoo-inc.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+User-Agent: Mutt/1.2.5i
+In-Reply-To: <NEBBLPOIMMCKNMNLFKGMGEOHEMAA.reddyt@yahoo-inc.com>; from reddyt@yahoo-inc.com on Mon, Jun 24, 2002 at 03:01:03PM -0700
+Status: RO
+Content-Length: 1253
+Lines: 35
+
+On Mon, Jun 24, 2002 at 03:01:03PM -0700, Reddy Thalakola wrote:
+> I have cron script that runs fine on a bsd machine, but returns this output
+> on the linux machine.
+> 
+> i have version 1.21 on the linux machine.
+> 
+> DBD::Oracle::db do failed: ORA-00000: normal, successful completion (DBD
+> SUCCESS_WITH_INFO: OCIStmtExecute) at
+> /home/scripts/update/recompilestoredprocedures line 33.
+> 
+> here is the code:
+> 
+> while (my ($oname,$otype) =  $select->fetchrow_array) {
+>     $sql = "ALTER $otype $oname COMPILE";
+>     unless ( $db->do($sql)) { ## this db statement generates the eror
+>         $objectsnotcompiled = $objectsnotcompiled .  $oname . ' ';
+>     }
+> }
+
+The DBI needs some standard way to handle the 'success with info' concept.
+Meanwhile:
+
+:  Changes in DBD::Oracle 1.09   27th August 2001
+: 
+:    Changed behaviour when OCIStmtExecute() returns OCI_SUCCESS_WITH_INFO:
+:      used to be treated as OCI_SUCCESS, now also sets $DBI::err/$DBI::errstr
+:      and will therefore trigger RaiseError/PrintError if they are set.
+
+So you can either disable RaiseError/PrintError for that statement or
+just wrap an eval { ... } around it (probably better).
+
+The OCI_SUCCESS_WITH_INFO is probably due to PL/SQL warnings from the COMPILE.
+
+Tim.
+
+
diff --git a/err_shelved/err_svpv.msg b/err_shelved/err_svpv.msg
new file mode 100644
index 00000000..15878330
--- /dev/null
+++ b/err_shelved/err_svpv.msg
@@ -0,0 +1,98 @@
+From perl5-porters-return-69761-Tim.Bunce=pobox.com@perl.org  Thu Dec 12 22:35:27 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.6/8.12.6) with ESMTP id gBCMYmb5000123
+	for <timbo@localhost>; Thu, 12 Dec 2002 22:35:27 GMT
+	(envelope-from perl5-porters-return-69761-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.22]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Thu, 12 Dec 2002 22:35:27 +0000 (GMT)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1039729881:20:12781:5; Thu, 12 Dec 2002 21:51:21 GMT
+Received: from icicle.pobox.com ([66.220.15.208]) by punt-2.mail.demon.net
+           id aa2011906; 12 Dec 2002 21:50 GMT
+Received: from icicle.pobox.com (localhost [127.0.0.1])
+	by icicle.pobox.com (Postfix) with ESMTP id 4F45123E28
+	for <Tim.Bunce@data-plan.com>; Thu, 12 Dec 2002 16:50:55 -0500 (EST)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [64.70.54.95])
+	by icicle.pobox.com (Postfix) with SMTP id 6747C23E15
+	for <Tim.Bunce@pobox.com>; Thu, 12 Dec 2002 16:50:54 -0500 (EST)
+Received: (qmail 89370 invoked by uid 1005); 12 Dec 2002 21:49:36 -0000
+Mailing-List: contact perl5-porters-help@perl.org; run by ezmlm
+Precedence: bulk
+list-help: <mailto:perl5-porters-help@perl.org>
+list-unsubscribe: <mailto:perl5-porters-unsubscribe@perl.org>
+list-post: <mailto:perl5-porters@perl.org>
+Delivered-To: mailing list perl5-porters@perl.org
+Received: (qmail 89327 invoked by uid 76); 12 Dec 2002 21:49:35 -0000
+Received: from exim@plum.flirble.org (HELO plum.flirble.org) (195.40.6.20) by onion.perl.org (qpsmtpd/0.20) with SMTP; 2002-12-12 21:49:35Z
+Received: from gr.189.18.176.dial.global.net.uk ([80.189.18.176] helo=Bagpuss.unfortu.net)	by plum.flirble.org with asmtp (Exim 3.20 #3)	id 18MbD1-000LjS-00	for perl5-porters@perl.org; Thu, 12 Dec 2002 21:49:31 +0000
+Received: from nick by Bagpuss.unfortu.net with local (Exim 3.22 #1 (Debian))	id 18Mb9C-0000F6-00; Thu, 12 Dec 2002 21:45:34 +0000
+Date: Thu, 12 Dec 2002 21:45:34 +0000
+To: John Peacock <jpeacock@rowman.com>
+Cc: Rafael Garcia-Suarez <rgarciasuarez@free.fr>, perl5-porters@perl.org
+Subject: Re: [PATCH] operation on `PL_na' may be undefined
+Message-ID: <20021212214533.GI311@Bagpuss.unfortu.net>
+References: <20021210195917.GJ288@Bagpuss.unfortu.net> <3DF64F1A.5050407@rowman.com> <20021211161647.39b89b14.rgarciasuarez@free.fr> <3DF767C0.1020103@rowman.com>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+In-Reply-To: <3DF767C0.1020103@rowman.com>
+User-Agent: Mutt/1.4i
+From: Nicholas Clark <nick@unfortu.net>
+X-SMTPD: qpsmtpd/0.20, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 1410
+Lines: 50
+
+Sorry about the delay in replying to the original question.
+On Wed, Dec 11, 2002 at 11:28:48AM -0500, John Peacock wrote:
+> Rafael Garcia-Suarez wrote:
+> >%_ : placeholder for an SV that will get stringified. See sv_vcatpvfn() in 
+> >sv.c.
+> >I can't find doc on this in the perl sources, but there a small paragraph
+> >about it in the Cozens & Jenness.
+
+I can't find any docs either. In fact, a straight grep on %_ in the
+current sources is most unrewarding.
+
+> Neat!  Is it supported in 5.005???
+
+Well, I had a grep in the 5.004_04 sources and it's in there quite a lot,
+such as:
+
+    if (in_eval & 2)
+        warn("%_", msg);
+    else if (in_eval)
+        sv_catsv(GvSV(errgv), msg);
+
+so I wondered what had happened to them all. The same piece of code is now:
+
+    if (PL_in_eval & EVAL_WARNONLY)
+        Perl_warn(aTHX_ "%"SVf, msg);
+    else
+        qerror(msg);
+
+with this in perl.h
+
+#ifndef SVf
+#  ifdef CHECK_FORMAT
+#    define SVf "p"
+#  else
+#    define SVf "_"
+#  endif
+#endif
+
+That doesn't seem to be in Devel::PPort (yet - patches welcome I guess)
+
+I wonder how many parts of the perl core can be reduced slightly in size
+by changing %s SvPV_nolen(sv) to %_ sv.
+This would have the beneficial side effect of making the non-error code path
+more direct, which might have a slight speed gain.
+
+It's not in 5.003_07's sources, but I don't think anyone really supports that
+any more.
+
+Nicholas Clark
+
+
diff --git a/err_shelved/err_utf8trsnacodexs.msg b/err_shelved/err_utf8trsnacodexs.msg
new file mode 100644
index 00000000..4570f6f5
--- /dev/null
+++ b/err_shelved/err_utf8trsnacodexs.msg
@@ -0,0 +1,78 @@
+From perl-unicode-return-2087-Tim.Bunce=pobox.com@perl.org  Fri Aug  8 18:30:31 2003
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.12.9/8.12.9) with ESMTP id h78HU65r059847
+	for <timbo@localhost>; Fri, 8 Aug 2003 18:30:30 +0100 (BST)
+	(envelope-from perl-unicode-return-2087-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.253]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 08 Aug 2003 18:30:30 +0100 (BST)
+Received: from punt-3.mail.demon.net by mailstore
+	for pobox@dbi.demon.co.uk id 19lAqh-0003IH-Em;
+	Fri, 08 Aug 2003 17:16:19 +0000
+Received: from [207.106.49.21] (helo=wink.pobox.com)
+	by punt-3.mail.demon.net with esmtp id 19lAqh-0003IH-Em
+	for pobox@dbi.demon.co.uk; Fri, 08 Aug 2003 17:16:19 +0000
+Received: from wink.pobox.com (localhost [127.0.0.1])
+	by wink.pobox.com (Postfix) with ESMTP id 7A07010048
+	for <pobox@dbi.demon.co.uk>; Fri,  8 Aug 2003 13:16:05 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [64.70.54.95])
+	by wink.pobox.com (Postfix) with SMTP id EB0B7FD57
+	for <Tim.Bunce@pobox.com>; Fri,  8 Aug 2003 13:15:59 -0400 (EDT)
+Received: (qmail 22852 invoked by uid 1005); 8 Aug 2003 17:15:58 -0000
+Mailing-List: contact perl-unicode-help@perl.org; run by ezmlm
+Precedence: bulk
+list-help: <mailto:perl-unicode-help@perl.org>
+list-unsubscribe: <mailto:perl-unicode-unsubscribe@perl.org>
+list-post: <mailto:perl-unicode@perl.org>
+Delivered-To: mailing list perl-unicode@perl.org
+Received: (qmail 22837 invoked by uid 76); 8 Aug 2003 17:15:57 -0000
+Delivered-To: perl-unicode@perl.org
+Received-SPF: unknown
+Date: Sat, 9 Aug 2003 02:15:48 +0900
+Subject: Re: Encode from XS
+Content-Type: text/plain; charset=US-ASCII; format=flowed
+Mime-Version: 1.0 (Apple Message framework v552)
+Cc: perl-unicode@perl.org
+To: Simon Cozens <simon@simon-cozens.org>
+From: Dan Kogai <dankogai@dan.co.jp>
+In-Reply-To: <87brv0mbk8.fsf@alibi.simon-cozens.org>
+Message-Id: <F4150ECF-C9C3-11D7-BE7D-000393AE4244@dan.co.jp>
+Content-Transfer-Encoding: 7bit
+X-Mailer: Apple Mail (2.552)
+X-SMTPD: qpsmtpd/0.27-dev, http://develooper.com/code/qpsmtpd/
+X-Spam-Check-By: one.develooper.com
+X-Spam-Status: No, hits=-2.3 required=7.0 tests=CARRIAGE_RETURNS,IN_REP_TO,QUOTED_EMAIL_TEXT,SPAM_PHRASE_00_01,USER_AGENT_APPLEMAIL version=2.44
+X-SMTPD: qpsmtpd/0.26, http://develooper.com/code/qpsmtpd/
+Status: RO
+Content-Length: 945
+Lines: 27
+
+On Saturday, Aug 9, 2003, at 00:08 Asia/Tokyo, Simon Cozens wrote:
+> This is sad and I ought to know the answer, but...
+>
+> Can someone give me a few quick examples of creating Encode::XS objects
+> to do simple transcoding, from XS?
+
+You should check the source of PerlIO::encoding 
+(ext/PerlIO/encoding/encoding.xs) to see how to do so via XS.  But I 
+don't think you'd call it simple.  Let me quote a few lines from there;
+
+         PUSHMARK(sp);
+         XPUSHs(e->enc);
+         XPUSHs(e->dataSV);
+         XPUSHs(e->chk);
+         PUTBACK;
+         if (call_method("decode", G_SCALAR) != 1) {
+             Perl_die(aTHX_ "panic: decode did not return a value");
+         }
+         SPAGAIN;
+         uni = POPs;
+
+See?  It does exactly what you would call an ordinary perl 
+(sub|method)s from XS; you push arguments into the stack, call_method() 
+and pop the result.  In other words, there is no shortcut -- yet.
+
+Dan the Encode Maintainer
+
+
diff --git a/err_shelved/err_warnhandler.msg b/err_shelved/err_warnhandler.msg
new file mode 100644
index 00000000..42481fb8
--- /dev/null
+++ b/err_shelved/err_warnhandler.msg
@@ -0,0 +1,523 @@
+From dbi-users-return-12047-Tim.Bunce=pobox.com@perl.org  Fri Jun 14 07:33:16 2002
+Received: from localhost (localhost [127.0.0.1])
+	by dansat.data-plan.com (8.11.6/8.11.6) with ESMTP id g5E6XEo84932
+	for <timbo@localhost>; Fri, 14 Jun 2002 07:33:14 +0100 (BST)
+	(envelope-from dbi-users-return-12047-Tim.Bunce=pobox.com@perl.org)
+Received: from pop3.mail.demon.net [194.217.242.21]
+	by localhost with POP3 (fetchmail-5.8.5)
+	for timbo@localhost (single-drop); Fri, 14 Jun 2002 07:33:14 +0100 (BST)
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@data-plan.com
+          id 1024018923:20:17194:15; Fri, 14 Jun 2002 01:42:03 GMT
+Received: from dolly1.pobox.com ([207.106.49.22]) by punt-2.mail.demon.net
+           id aa2018976; 14 Jun 2002 1:41 GMT
+Received: from dolly1.pobox.com (localhost.localdomain [127.0.0.1])
+	by dolly1.pobox.com (Postfix) with ESMTP id E20132C024
+	for <Tim.Bunce@data-plan.com>; Thu, 13 Jun 2002 21:41:52 -0400 (EDT)
+Delivered-To: tim.bunce@pobox.com
+Received: from onion.perl.org (onion.valueclick.com [64.70.54.95])
+	by dolly1.pobox.com (Postfix) with SMTP id 106D02BFF5
+	for <Tim.Bunce@pobox.com>; Thu, 13 Jun 2002 21:41:52 -0400 (EDT)
+Received: (qmail 30855 invoked by uid 1005); 14 Jun 2002 01:43:12 -0000
+Mailing-List: contact dbi-users-help@perl.org; run by ezmlm
+Precedence: bulk
+List-Post: <mailto:dbi-users@perl.org>
+List-Help: <mailto:dbi-users-help@perl.org>
+List-Unsubscribe: <mailto:dbi-users-unsubscribe@perl.org>
+List-Subscribe: <mailto:dbi-users-subscribe@perl.org>
+Delivered-To: mailing list dbi-users@perl.org
+Received: (qmail 30833 invoked by uid 76); 14 Jun 2002 01:43:12 -0000
+Received: from adsl-64-174-207-130.dsl.lsan03.pacbell.net (HELO dave.net) (64.174.207.130)
+  by onion.perl.org (qpsmtpd/0.07b) with SMTP; Fri Jun 14 01:43:12 2002 -0000
+Received: (from dave@localhost)
+	by dave.net (8.11.6/8.11.6) id g5E1fg304127;
+	Thu, 13 Jun 2002 18:41:42 -0700
+Date: Thu, 13 Jun 2002 18:41:42 -0700
+From: "David L. Good" <dave@dave.net>
+To: dbi-users@perl.org
+Cc: jurlwin@bellatlantic.net
+Subject: DBD::ODBC and Sybase/SQL Server server messages
+Message-ID: <20020613184142.A4105@fred.dave.net>
+Mail-Followup-To: "David L. Good" <dave@dave.net>,
+	dbi-users@perl.org, jurlwin@bellatlantic.net
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+User-Agent: Mutt/1.2.5.1i
+Status: RO
+Content-Length: 15573
+Lines: 473
+
+I just took a look at DBD::ODBC again after nearly a two year hiatus and
+discovered that this patch I submitted two years ago was never put in.
+The project I was working on at the time got back burnered soon after I
+sent in the patch, so I never really checked.  Now I'm starting a similar
+project and I think this old patch might still be useful, but I'm not sure
+how much stuff has changed since DBD::ODBC 0.28.  I'm including my (rather
+longwinded) explanation of what it does and why it might be useful.
+Does this seem like something that might be useful to anyone else?
+If so, and if nobody else wants to do it, I'll take a look at integrating
+it into 0.41.  One potential problem though is that I don't currently have
+a box to test it on.
+
+----- Forwarded message from David Good <dgood@stratasource.com> -----
+
+Date: Thu, 29 Jun 2000 13:41:31 -0700
+From: David Good <dgood@stratasource.com>
+To: dbi-users@isc.org
+Cc: jurlwin@bellatlantic.net
+Subject: Re: DBD::ODBC and Sybase/SQL Server server messages
+
+
+On Fri, Apr 28, 2000 at 10:16:58AM -0700, David Good <dgood@stratasource.com> wrote:
+> On Fri, Apr 21, 2000 at 05:32:53PM -0700, David Good <dgood@stratasource.com> wrote:
+> > I'm using DBD::ODBC to connect to Sybase and MS-SQL Server databases
+> > (among others) and I was wondering if there is an easy way to get
+> > server messages for things like DBCCs.  In dblib and ct-lib you'd set
+> > up a message handler for this.  Indeed, in DBD::Sybase you can set
+> > $dbh->{syb_err_handler} to a coderef to handle it.  Looking through the
+> > ODBC API, I don't see anything really, really obvious, but I haven't
+> > gotten really in-depth yet.  Anyone have any ideas?
+> 
+> To answer my own question, it turns out that the server messages are
+> all there and readily available, they just aren't retrieved unless the
+> SQLExecute returns an error status.  I think the most useful method
+> for retrieving these is through some sort of callback method similar
+> to DBD::Sybase's $dbh->{syb_err_handler}.  Unfortunately, there's no
+> way to retrieve the messages while execution is in progress unless
+> SQLExecute is run in asynchronous mode.  Now, async mode can be set
+> on a per-statement or per-connection basis depending on the data source
+> (i.e. some type of data sources can do per-statement async and some can do
+> per-connection async).  I suppose the best way to go is to define another
+> attribute odbc_async_execute or somesuch and if set, set the async mode by
+> whichever means is available.  If anyone has any ideas or suggestions let
+> me know as it will probably be a few days before I get started on this...
+
+
+I've finally finished this.  Here's the details (with the patch following):
+
+I've implemented two separate functions.  The first is an "error
+handler" similar to that in DBD::Sybase.  The error handler can be used
+to intercept error and status messages from the server.  It is the only
+way (at least currently) that you can retrieve non-error status messages
+when execution is successful.
+
+To use the error handler, set the "odbc_err_handler" attribute on
+your database handle to a reference to a subroutine that will act
+as the error handler.  This subroutine will be passed two args, the
+SQLSTATE and the error message.  If the subroutine returns 0, the
+error message will be otherwise ignored.  If it returns non-zero,
+the error message will be processed normally.  
+
+The second function implemented is asynchronous execution.  It's only
+useful for retrieving server messages with an error handler during an
+execute() that takes a long time (such as a DBCC on a large database) ODBC
+doesn't have the concept of a callback routine like Sybase's DBlib/CTlib
+does, so asynchronous execution is needed to be able to get the server
+messages before the SQL statement is done processing.
+
+To use asynchronous execution, set the "odbc_async_exec" attribute on
+your database handle to 1.  Not all ODBC drivers support asynchronous
+execution.  To see if yours does, set odbc_async_exec to 1 and then check
+it's value.  If the value is 1, your ODBC driver can do asynchronous
+execution.  If the value is 0, your ODBC driver cannot.
+
+Here's a sample script:
+
+use strict;
+
+use DBI;
+
+sub err_handler {
+  my ($state, $msg) = @_;
+  # Strip out all of the driver ID stuff
+  $msg =~ s/^(\[[\w\s]*\])+//;  
+  print "===> state: $state msg: $msg\n";
+  return 0;
+}
+my $dbh = DBI->connect("dbi:ODBC:TEST248", "sa", "********")
+       || die "Can't connect: $DBI::errstr\n";
+
+$dbh->{odbc_err_handler} = \&err_handler;
+$dbh->{odbc_async_exec} = 1;
+print "odbc_async_exec is: $dbh->{odbc_async_exec}\n";
+
+my $sth;
+$sth = $dbh->prepare("dbcc checkdb(model)") || die $dbh->errstr;
+$sth->execute                               || die $dbh->errstr;
+$sth->finish;
+$dbh->disconnect;
+
+
+Observations:
+
+  - I've tested this on Sybase 11.0.3, MS SQL Server 6.5 and 7.0,
+    Oracle 8.1.6 using Oracle 7.3 drivers.  I doubt any of this will be
+    tremendously useful to Oracle users though...
+
+  - ODBC seems to buffer the messages it makes available, so you'll get
+    server messages in chunks.  This means there could be significant
+    delays in getting messages from the server.  For example, if while
+    running a DBCC, you could get a significant message just before
+    the DBCC starts on a huge table.  Since ODBC is buffering the messages,
+    you won't see that significant message until DBCC is done with the
+    huge table (and possibly a few others) and fills the buffer.
+
+  - Oracle's ODBC drivers do not seem to support asynchronous execution
+    at all.  But that's OK, since I doubt Oracle generates any messages
+    during execution...
+
+  - A lot of the guts to implement the error handler was lifted wholesale
+    from DBD:Sybase 0.21.  I don't even pretend to fully understand some
+    of the stuff in this patch.  Thanks go to Michael Peppler for his work
+    on DBD:Sybase, making this patch possible.
+
+-- 
+David Good                                         David.Good@stratasource.com
+
+                 This space intentionally left blank.
+
+
+
+--- dbdimp.c.orig	Wed Jun 14 14:31:48 2000
++++ dbdimp.c	Wed Jun 28 12:21:53 2000
+@@ -327,9 +327,6 @@
+     HSTMT hstmt = SQL_NULL_HSTMT;
+     SV *errstr;
+ 
+-    if (err_rc == SQL_SUCCESS && DBIS->debug<3)	/* nothing to do */
+-	return;
+-
+     switch(DBIc_TYPE(imp_xxh)) {
+ 	case DBIt_ST:
+ 	    imp_sth = (struct imp_sth_st *)(imp_xxh);
+@@ -342,6 +339,17 @@
+ 	default:
+ 	    croak("panic: dbd_error on bad handle type");
+     }
++
++    /*
++     * If status is SQL_SUCCESS, there's no error, so we can just return.
++     * There may be status or other non-error messsages though.
++     * We want those messages if the debug level is set to at least 3.
++     * If an error handler is installed, let it decide what messages
++     * should or shouldn't be reported.
++     */
++    if (err_rc == SQL_SUCCESS && DBIS->debug < 3 && !imp_dbh->err_handler)
++	return; 
++
+     hdbc = imp_dbh->hdbc;
+     henv = imp_dbh->henv;
+ 
+@@ -368,6 +376,50 @@
+ 			    ErrorMsg, sizeof(ErrorMsg)-1, &ErrorMsgLen
+ 			   )) == SQL_SUCCESS || rc == SQL_SUCCESS_WITH_INFO) {
+ 	    sv_setpvn(DBIc_STATE(imp_xxh), sqlstate, 5);
++	    /*
++	     * If there's an error handler, run it and see what it returns...
++	     * (lifted from DBD:Sybase 0.21)
++	     */
++
++	    if(imp_dbh->err_handler) {
++		dSP;
++		SV *sv, **svp;
++		HV *hv;
++		int retval, count;
++
++		ENTER;
++		SAVETMPS;
++		PUSHMARK(sp);
++
++		if (DBIS->debug >= 3)
++		    fprintf(DBILOGFP, "dbd_error: calling err_handler\n"); 
++
++		/* 
++		 * Here are the args to the error handler routine:
++		 *    1. sqlstate (string)
++		 *    2. ErrorMsg (string)
++		 *
++		 * That's it for now...
++		 */
++		XPUSHs(sv_2mortal(newSVpv(sqlstate, 0)));
++		XPUSHs(sv_2mortal(newSVpv(ErrorMsg, 0)));
++
++
++		PUTBACK;
++		if((count = perl_call_sv(imp_dbh->err_handler, G_SCALAR)) != 1)
++		    croak("An error handler can't return a LIST.");
++		SPAGAIN;
++		retval = POPi;
++
++		PUTBACK;
++		FREETMPS;
++		LEAVE;
++
++		/* If the called sub returns 0 then ignore this error */
++		if(retval == 0)
++		    continue;
++	    }
++
+ 	    if (SvCUR(errstr) > 0) {
+ 		sv_catpv(errstr, "\n");
+ 		/* JLU: attempt to get a reasonable error	*/
+@@ -406,7 +458,7 @@
+ 	else henv = SQL_NULL_HENV;	/* done the top		*/
+     }
+ 
+-    if (err_rc != SQL_SUCCESS) {
++    if (err_rc != SQL_SUCCESS && err_rc != SQL_STILL_EXECUTING) {
+ 	if (what) {
+ 	    char buf[10];
+ 	    sprintf(buf, " err=%d", err_rc);
+@@ -631,6 +683,23 @@
+     imp_sth->RowCount = -1;
+     imp_sth->eod = -1;
+ 
++    /* If AsyncExecute is set and AsyncType is SQL_AM_STATEMENT, we need to
++     * set the SQL_ATTR_ASYNC_ENABLE attribute.
++     */
++    if (imp_dbh->AsyncExecute && imp_dbh->AsyncType == SQL_AM_STATEMENT){
++	rc = SQLSetStmtAttr(imp_sth->hstmt,
++			    SQL_ATTR_ASYNC_ENABLE,
++			    (SQLPOINTER) SQL_ASYNC_ENABLE_ON,
++			    SQL_IS_UINTEGER
++			   );
++	if (!SQL_ok(rc)) {
++	    dbd_error(sth, rc, "st_prepare/SQLSetStmtAttr");
++	    SQLFreeStmt(imp_sth->hstmt, SQL_DROP);
++	    imp_sth->hstmt = SQL_NULL_HSTMT;
++	    return 0;
++	}
++    }
++
+     DBIc_IMPSET_on(imp_sth);
+     return 1;
+ }
+@@ -934,6 +1003,23 @@
+ 		imp_sth->hstmt);
+ 
+     rc = SQLExecute(imp_sth->hstmt);
++
++    /*
++     * If asynchronous execution has been enabled, SQLExecute will
++     * return SQL_STILL_EXECUTING until it has finished.
++     * Grab whatever messages occur during execution...
++     */
++    while (rc == SQL_STILL_EXECUTING){
++	dbd_error(sth, rc, "st_execute/SQLExecute"); 
++
++	/* Wait a second so we don't loop too fast and bring the machine
++	 * to its knees
++	 */
++	sleep(1);
++	
++	rc = SQLExecute(imp_sth->hstmt);
++    }
++     
+     /* patches to handle blobs better, via Jochen Wiedmann */
+     while (rc == SQL_NEED_DATA) {
+ 	phs_t* phs;
+@@ -956,11 +1042,16 @@
+ 	}
+ 	rc = SQL_NEED_DATA;  /*  So the loop continues ...  */
+     }
+-     
++
++    /* 
++     * Call dbd_error regardless of the value of rc so we can
++     * get any status messages that are desired.
++     */
++    dbd_error(sth, rc, "st_execute/SQLExecute"); 
+     if (!SQL_ok(rc)) {
+-	dbd_error(sth, rc, "st_execute/SQLExecute");
+-	return -2;
++ 	return -2;
+     }
++ 
+ 
+     rc = SQLRowCount(imp_sth->hstmt, &imp_sth->RowCount);
+     if (!SQL_ok(rc)) {
+@@ -1664,13 +1755,118 @@
+     STRLEN kl;
+     STRLEN plen;
+     char *key = SvPV(keysv,kl);
+-    SV *cachesv = NULL;
++    SV *cachesv = NULL;  /* This never seems to be used?!? [dgood 6/16/00] */
+     int on;
+     UDWORD vParam;
+     const db_params *pars;
+ 
+-    if ((pars = S_dbOption(S_db_storeOptions, key, kl)) == NULL)
++    if ((pars = S_dbOption(S_db_storeOptions, key, kl)) == NULL) {
++
++	/* Here's where we put attributes that are *not* just */
++	/* SQLSetConnectOption attributes                     */
++
++	/* This was taken from DBD::Sybase 0.21 */
++	if (kl == 16 && strEQ(key, "odbc_err_handler")) {
++	    if(valuesv == &sv_undef) {
++		imp_dbh->err_handler = NULL;
++	    } else if(imp_dbh->err_handler == (SV*)NULL) {
++		imp_dbh->err_handler = newSVsv(valuesv);
++	    } else {
++		sv_setsv(imp_dbh->err_handler, valuesv);
++	    }
++	    return TRUE;
++	}
++	if (kl == 15 && strEQ(key, "odbc_async_exec")) {
++	    on = SvTRUE(valuesv);
++	    if(on) {
++		/* Only bother setting the attribute if it's not already set! */
++		if (imp_dbh->AsyncExecute == 1) 
++		    return TRUE;
++
++		/*
++		 * Determine which method of async execution this
++		 * driver allows -- per-connection or per-statement
++		 */
++		rc = SQLGetInfo(imp_dbh->hdbc, 
++				SQL_ASYNC_MODE, 
++				&imp_dbh->AsyncType,
++				sizeof(imp_dbh->AsyncType),
++				NULL
++			       );
++		/*
++		 * Normally, we'd do a if (!SQL_ok(rc)) ... here.
++		 * Unfortunately, if the driver doesn't support async
++		 * mode, it may return an error here.  There doesn't
++		 * seem to be any other way to check (other than doing
++		 * a special check for the SQLSTATE).  We'll just default
++		 * to doing nothing and not bother checking errors.
++		 */
++
++
++		if (imp_dbh->AsyncType == SQL_AM_CONNECTION){
++		    /*
++		     * Driver has per-connection async option.  Set it
++		     * now in the dbh.
++		     */
++		    if (DBIS->debug >= 2)
++			fprintf(DBILOGFP, 
++				"Supported AsyncType is SQL_AM_CONNECTION\n");
++		    rc = SQLSetConnectOption(imp_dbh->hdbc, 
++					     SQL_ATTR_ASYNC_ENABLE,
++					     SQL_ASYNC_ENABLE_ON
++					    );
++		    if (!SQL_ok(rc)) {
++			dbd_error(dbh, rc, "db_STORE/SQLSetConnectOption");
++			return FALSE;
++		    }
++		    imp_dbh->AsyncExecute = 1;
++		}
++		else if (imp_dbh->AsyncType == SQL_AM_STATEMENT){
++		    /*
++		     * Driver has per-statement async option.  Just set
++		     * AsyncExecute and the rest will be handled by 
++		     * dbd_st_prepare.
++		     */
++		    if (DBIS->debug >= 2)
++			fprintf(DBILOGFP, 
++				"Supported AsyncType is SQL_AM_STATEMENT\n");
++		    imp_dbh->AsyncExecute = 1;
++		}
++		else {   /* (imp_dbh->AsyncType == SQL_AM_NONE) */
++		    /*
++		     * We're out of luck.
++		     */
++		    if (DBIS->debug >= 2)
++			fprintf(DBILOGFP, 
++				"Supported AsyncType is SQL_AM_NONE\n");
++		    imp_dbh->AsyncExecute = 0;
++		    return FALSE;
++		}
++	    } else {
++		/* Only bother turning it off if it was previously set... */
++		if (imp_dbh->AsyncExecute == 1) {
++
++		    /* We only need to do anything here if the AsyncType is 
++		     * SQL_AM_CONNECTION since the per-statement async type
++		     * is turned on only when the statement handle is created.
++		     */
++		    if (imp_dbh->AsyncType == SQL_AM_CONNECTION){
++			rc = SQLSetConnectOption(imp_dbh->hdbc, 
++						 SQL_ATTR_ASYNC_ENABLE,
++						 SQL_ASYNC_ENABLE_OFF
++						);
++			if (!SQL_ok(rc)) {
++			    dbd_error(dbh, rc, "db_STORE/SQLSetConnectOption");
++			    return FALSE;
++			}
++		    }
++		}
++		imp_dbh->AsyncExecute = 0;
++	    }
++	    return TRUE;
++	}
+ 	return FALSE;
++    }
+ 
+     switch(pars->fOption)
+     {
+@@ -1731,8 +1927,27 @@
+ 
+     /* checking pars we need FAST */
+ 
+-    if ((pars = S_dbOption(S_db_fetchOptions, key, kl)) == NULL)
+-	return Nullsv;
++    if ((pars = S_dbOption(S_db_fetchOptions, key, kl)) == NULL) {
++
++	/* Here's where we put attributes that are *not* just */
++	/* SQLGetConnectOption attributes                     */
++
++	/* This was taken from DBD::Sybase 0.21 */
++	if (kl == 16 && strEQ(key, "odbc_err_handler")) {
++	    if(imp_dbh->err_handler) {
++		retsv = newSVsv(imp_dbh->err_handler);
++	    } else {
++		retsv = &sv_undef;
++	    }
++	}
++	if (kl == 15 && strEQ(key, "odbc_async_exec")) {
++	    if(imp_dbh->AsyncExecute)
++		retsv = newSViv(1);
++	    else
++		retsv = newSViv(0);
++	}
++	return retsv;
++    }
+ 
+     /*
+      * readonly, tracefile etc. isn't working yet. only AutoCommit supported.
+--- dbdimp.h.orig	Wed Jun 14 14:31:55 2000
++++ dbdimp.h	Wed Jun 21 15:24:05 2000
+@@ -27,6 +27,13 @@
+     dbih_dbc_t com;		/* MUST be first element in structure	*/
+     HENV henv;			/* copy from imp_drh for speed		*/
+     HDBC hdbc;
++
++    SV *err_handler;
++
++    int		AsyncExecute;	/* Execute statements asynchronously */
++    SQLUINTEGER	AsyncType;      /* What type of async execution the driver
++                                 * supports
++				 */
+ };
+ 
+ 
+@@ -38,7 +45,7 @@
+     HDBC       hdbc;		/* copy for speed	*/
+     HSTMT      hstmt;
+ 
+-	int        moreResults;	/* are there more results to fetch?	*/
++    int        moreResults;	/* are there more results to fetch?	*/
+     int        done_desc;	/* have we described this sth yet ?	*/
+ 
+     /* Input Details	*/
+
+
+----- End forwarded message -----
+
+-- 
+David Good                                                    dave@dave.net
+
+                 This space intentionally left blank.
+
diff --git a/err_shelved/ref_croakxs.msg b/err_shelved/ref_croakxs.msg
new file mode 100644
index 00000000..56a166da
--- /dev/null
+++ b/err_shelved/ref_croakxs.msg
@@ -0,0 +1,76 @@
+From owner-perl5-porters@perl.org  Wed Aug  4 19:22:43 1999
+Return-Path: <owner-perl5-porters@perl.org>
+Received: from oink by toad.ig.co.uk (SMI-8.6/SMI-SVR4)
+	id TAA17154; Wed, 4 Aug 1999 19:22:42 +0100
+Received: from punt-21.mail.demon.net by oink with SMTP (PP) id <18339-4@oink>;
+          Wed, 4 Aug 1999 19:21:42 +0100
+Received: from punt-2.mail.demon.net by mailstore for timbo@ig.co.uk 
+          id 933790392:20:21708:11; Wed, 04 Aug 99 18:13:12 GMT
+Received: from defender.perl.org ([209.45.167.243]) by punt-2.mail.demon.net 
+          id aa2021630; 4 Aug 99 18:13 GMT
+Received: (from majordomo@localhost) 
+          by defender.perl.org (8.9.3/8.9.3/Debian/GNU) id OAA31539 
+          for perl5-porters-outgoing; Wed, 4 Aug 1999 14:12:38 -0400
+Received: from imr1.srv.na.deuba.com (imr1.srv.na.deuba.com [165.250.91.54]) 
+          by defender.perl.org (8.9.3/8.9.3/Debian/GNU) with ESMTP id OAA31533 
+          for <perl5-porters@perl.org>; Wed, 4 Aug 1999 14:12:36 -0400
+Received: by imr1.srv.na.deuba.com id OAA06501;
+          Wed, 4 Aug 1999 14:12:31 -0400 (EDT)
+Received: from bmr2-e1.srv.na.deuba.com(165.250.66.247) 
+          by imr1.srv.na.deuba.com via mail (V2.1/2.1) id xma006478;
+          Wed, 4 Aug 99 14:12:26 -0400
+Received: from dbrelay2.srv.na.deuba.com by bmr2-e1.srv.na.deuba.com 
+          id OAA28420; Wed, 4 Aug 1999 14:12:24 -0400 (EDT)
+Received: from db.com by dbrelay2.srv.na.deuba.com id OAA29992;
+          Wed, 4 Aug 1999 14:11:36 -0400 (EDT)
+Received: by db.com (sSMTP sendmail emulation); Wed, 4 Aug 1999 14:12:23 -0400
+Date: Wed, 4 Aug 1999 14:12:23 -0400
+From: Joshua N Pritikin <joshua.pritikin@db.com>
+To: perl5-porters@perl.org
+Subject: perl_call_pv("Carp::croak", ...) [5.5.58]
+Message-ID: <19990804141222.J4209@eq1062.wks.na.deuba.com>
+Reply-To: Joshua N Pritikin <joshua.pritikin@db.com>
+Mail-Followup-To: perl5-porters@perl.org
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+X-Mailer: Mutt 0.95.5i
+Sender: owner-perl5-porters@perl.org
+Precedence: bulk
+X-Loop: Perl5-Porters
+Status: RO
+Content-Length: 1014
+Lines: 32
+
+I use the attached code to invoke Carp::croak from C.  It has been
+working fine until 5.5.58.  It appears that it fails if Carp::Heavy
+has not already been loaded.  If Carp::Heavy is not already loaded,
+then perl_call_pv actually returns, then I panic and exit.  Any
+ideas?  Should I code I up a small test case as an XS module?
+
+static void Event_croak(const char* pat, ...) {
+    STRLEN n_a;
+    dSP;
+    SV *msg;
+    va_list args;
+    perl_require_pv("Carp.pm");
+    va_start(args, pat);
+    msg = NEWSV(0,0);
+    sv_vsetpvfn(msg, pat, strlen(pat), &args, Null(SV**), 0, 0);
+    va_end(args);
+    SvREADONLY_on(msg);
+    SAVEFREESV(msg);
+    PUSHMARK(SP);
+    XPUSHs(msg);
+    PUTBACK;
+    perl_call_pv("Carp::croak", G_DISCARD);
+    PerlIO_puts(PerlIO_stderr(), "panic: Carp::croak failed\n");
+    (void)PerlIO_flush(PerlIO_stderr());
+    my_failure_exit();
+}
+
+Thanks.
+
+-- 
+"Never ascribe to malice that which can be explained by stupidity."
+                            via, but not speaking for Deutsche Bank
+
diff --git a/err_shelved/ref_gotoxs.msg b/err_shelved/ref_gotoxs.msg
new file mode 100644
index 00000000..968c6922
--- /dev/null
+++ b/err_shelved/ref_gotoxs.msg
@@ -0,0 +1,25 @@
+From timbo  Tue Nov 30 00:26:25 1999
+Return-Path: <timbo>
+Received: by toad.ig.co.uk (SMI-8.6/SMI-SVR4)
+	id AAA17404; Tue, 30 Nov 1999 00:26:25 GMT
+Date: Tue, 30 Nov 1999 00:26:25 +0000
+From: Tim Bunce <timbo@ig.co.uk>
+To: Tim Bunce <timbo@ig.co.uk>
+Subject: driver calling goto kills application!
+Message-ID: <19991130002625.B17204@ig.co.uk>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+X-Mailer: Mutt 0.95.3i
+Content-Length: 139
+Lines: 9
+
+Adding this code:
+
+	my $foo=0;
+	LOOP:
+	warn "LOOP";
+	goto LOOP unless ++$foo >= 2;
+
+causes the DBI to die when the driver method returns.
+
+
diff --git a/err_shelved/ref_in_eval.msg b/err_shelved/ref_in_eval.msg
new file mode 100644
index 00000000..cad5ab0e
--- /dev/null
+++ b/err_shelved/ref_in_eval.msg
@@ -0,0 +1,179 @@
+From owner-perl5-porters@perl.org  Sun May 23 17:17:17 1999
+Return-Path: <owner-perl5-porters@perl.org>
+Received: from oink by toad.ig.co.uk (SMI-8.6/SMI-SVR4)
+	id RAA03964; Sun, 23 May 1999 17:17:16 +0100
+Received: from punt-11.mail.demon.net by oink with SMTP (PP) id <05597-3@oink>;
+          Sun, 23 May 1999 17:16:14 +0100
+Received: from punt-1.mail.demon.net by mailstore for timbo@ig.co.uk 
+          id 927473893:10:18342:13; Sun, 23 May 99 15:38:13 GMT
+Received: from defender.perl.org ([209.45.167.243]) by punt-1.mail.demon.net 
+          id aa1126778; 23 May 99 15:37 GMT
+Received: (from majordomo@localhost) 
+          by defender.perl.org (8.9.3/8.9.3/Debian/GNU) id LAA25353 
+          for perl5-porters-outgoing; Sun, 23 May 1999 11:35:47 -0400
+Received: from crypt.compulink.co.uk (root@crypt.compulink.co.uk [194.153.28.27]) 
+          by defender.perl.org (8.9.3/8.9.3/Debian/GNU) with SMTP id LAA25346 
+          for <perl5-porters@perl.org>; Sun, 23 May 1999 11:35:42 -0400
+Received: from crypt.compulink.co.uk (hv@localhost [127.0.0.1]) 
+          by crypt.compulink.co.uk (8.6.12/8.6.9) with ESMTP id QAA00032;
+          Sun, 23 May 1999 16:35:07 +0100
+Message-Id: <199905231535.QAA00032@crypt.compulink.co.uk>
+To: perl5-porters@perl.org
+cc: hv@crypt0.demon.co.uk
+Reply-to: hv@crypt0.demon.co.uk
+Subject: [PATCH 5.005_56] name PL_in_eval bits
+Date: Sun, 23 May 1999 16:35:07 +0100
+From: Hugo van der Sanden <hv@crypt.compulink.co.uk>
+Sender: owner-perl5-porters@perl.org
+Precedence: bulk
+X-Loop: Perl5-Porters
+Status: RO
+Content-Length: 4206
+Lines: 145
+
+The attached patch names the bit values used for PL_in_eval, prompted
+by the possibility that regexp evals might need an extra bit.
+
+It may be worth checking the places that do a simple boolean test on
+PL_in_eval, to see whether they should more correctly be checking
+(PL_in_eval & EVAL_INEVAL) rather than (PL_in_eval != EVAL_NULL);
+this particularly may affect those cases when yywarn() sets
+EVAL_WARNONLY.
+
+I'm not entirely sure that scope.h is the best place for the defines,
+but I couldn't think of a better.
+
+This patch changes no behaviour, and all tests still pass here.
+
+Hugo
+--- scope.h.old	Mon Feb 15 00:39:04 1999
++++ scope.h	Sun May 23 16:26:56 1999
+@@ -188,4 +188,10 @@
+    
+ #define CATCH_GET	(PL_top_env->je_mustcatch)
+ #define CATCH_SET(v)	(PL_top_env->je_mustcatch = (v))
+-   
++
++/* flag bits for PL_in_eval */
++#define EVAL_NULL 0			/* not in an eval */
++#define EVAL_INEVAL 1		/* some enclosing scope is an eval */
++#define EVAL_WARNONLY 2		/* used by yywarn() when calling yyerror() */
++#define EVAL_KEEPERR 4		/* set by perl_call_sv if G_KEEPERR */
++
+--- op.c.old	Sun Feb 28 21:42:19 1999
++++ op.c	Sun May 23 16:12:00 1999
+@@ -104,7 +104,7 @@
+ 	    SV *msg = sv_2mortal(
+ 			newSVpvf("(Did you mean $ or @ instead of %c?)\n",
+ 				 type == OP_ENTERSUB ? '&' : '%'));
+-	    if (PL_in_eval & 2)
++	    if (PL_in_eval & EVAL_WARNONLY)
+ 		warn("%_", msg);
+ 	    else if (PL_in_eval)
+ 		sv_catsv(GvSV(PL_errgv), msg);
+@@ -1721,7 +1721,8 @@
+ {
+     dTHR;
+     if (PL_in_eval) {
+-	PL_eval_root = newUNOP(OP_LEAVEEVAL, ((PL_in_eval & 4) ? OPf_SPECIAL : 0), o);
++	PL_eval_root = newUNOP(OP_LEAVEEVAL,
++		((PL_in_eval & EVAL_KEEPERR) ? OPf_SPECIAL : 0), o);
+ 	PL_eval_start = linklist(PL_eval_root);
+ 	PL_eval_root->op_next = 0;
+ 	peep(PL_eval_start);
+@@ -3936,7 +3937,7 @@
+ 	    if (strEQ(s, "BEGIN")) {
+ 		char *not_safe =
+ 		    "BEGIN not safe after errors--compilation aborted";
+-		if (PL_in_eval & 4)
++		if (PL_in_eval & EVAL_KEEPERR)
+ 		    croak(not_safe);
+ 		else {
+ 		    /* force display of errors found but not reported */
+--- perl.c.old	Mon Mar  1 03:30:47 1999
++++ perl.c	Sun May 23 16:12:21 1999
+@@ -1274,9 +1274,9 @@
+ 	    PUSHEVAL(cx, 0, 0);
+ 	    PL_eval_root = PL_op;             /* Only needed so that goto works right. */
+ 	    
+-	    PL_in_eval = 1;
++	    PL_in_eval = EVAL_INEVAL;
+ 	    if (flags & G_KEEPERR)
+-		PL_in_eval |= 4;
++		PL_in_eval |= EVAL_KEEPERR;
+ 	    else
+ 		sv_setpv(ERRSV,"");
+ 	}
+--- pp_ctl.c.old	Thu Feb 18 20:31:00 1999
++++ pp_ctl.c	Sun May 23 16:13:51 1999
+@@ -1330,7 +1330,7 @@
+ 	SV **newsp;
+ 
+ 	if (message) {
+-	    if (PL_in_eval & 4) {
++	    if (PL_in_eval & EVAL_KEEPERR) {
+ 		SV **svp;
+ 		STRLEN klen = strlen(message);
+ 		
+@@ -2591,7 +2591,7 @@
+     AV* comppadlist;
+     I32 i;
+ 
+-    PL_in_eval = 1;
++    PL_in_eval = EVAL_INEVAL;
+ 
+     PUSHMARK(SP);
+ 
+@@ -2670,7 +2670,7 @@
+     SvREFCNT_dec(PL_rs);
+     PL_rs = newSVpv("\n", 1);
+     if (saveop && saveop->op_flags & OPf_SPECIAL)
+-	PL_in_eval |= 4;
++	PL_in_eval |= EVAL_KEEPERR;
+     else
+ 	sv_setpv(ERRSV,"");
+     if (yyparse() || PL_error_count || !PL_eval_root) {
+@@ -3092,7 +3092,7 @@
+     PUSHEVAL(cx, 0, 0);
+     PL_eval_root = PL_op;		/* Only needed so that goto works right. */
+ 
+-    PL_in_eval = 1;
++    PL_in_eval = EVAL_INEVAL;
+     sv_setpv(ERRSV,"");
+     PUTBACK;
+     return DOCATCH(PL_op->op_next);
+--- toke.c.old	Sun Feb 28 21:40:03 1999
++++ toke.c	Sun May 23 16:16:27 1999
+@@ -6342,9 +6342,9 @@
+ {
+     dTHR;
+     --PL_error_count;
+-    PL_in_eval |= 2;
++    PL_in_eval |= EVAL_WARNONLY;
+     yyerror(s);
+-    PL_in_eval &= ~2;
++    PL_in_eval &= ~EVAL_WARNONLY;
+     return 0;
+ }
+ 
+@@ -6407,7 +6407,7 @@
+ 		(int)PL_multi_open,(int)PL_multi_close,(long)PL_multi_start);
+         PL_multi_end = 0;
+     }
+-    if (PL_in_eval & 2)
++    if (PL_in_eval & EVAL_WARNONLY)
+ 	warn("%_", msg);
+     else if (PL_in_eval)
+ 	sv_catsv(ERRSV, msg);
+--- util.c.old	Mon Feb 15 02:28:30 1999
++++ util.c	Sun May 23 16:19:04 1999
+@@ -2882,7 +2882,7 @@
+     PL_start_env.je_mustcatch = TRUE;
+     PL_top_env  = &PL_start_env;
+ 
+-    PL_in_eval = FALSE;
++    PL_in_eval = EVAL_NULL;	/* ~(EVAL_INEVAL|EVAL_WARNONLY|EVAL_KEEPERR) */
+     PL_restartop = 0;
+ 
+     PL_statname = NEWSV(66,0);
+
diff --git a/err_shelved/ref_magicsv.txt b/err_shelved/ref_magicsv.txt
new file mode 100644
index 00000000..9f504ce0
--- /dev/null
+++ b/err_shelved/ref_magicsv.txt
@@ -0,0 +1,53 @@
+From owner-perl5-porters@perl.org  Fri Sep 11 18:27:22 1998
+Return-Path: <owner-perl5-porters@perl.org>
+Received: from oink by toad.ig.co.uk (SMI-8.6/SMI-SVR4)
+	id SAA05819; Fri, 11 Sep 1998 18:27:22 +0100
+Received: from punt-21.mail.demon.net by oink with SMTP (PP) id <25814-0@oink>;
+          Fri, 11 Sep 1998 18:27:00 +0100
+Received: from punt-2.mail.demon.net by mailstore for timbo@ig.co.uk 
+          id 905534226:20:04429:5; Fri, 11 Sep 98 17:17:06 GMT
+Received: from defender.perl.org ([209.45.167.243]) by punt-2.mail.demon.net 
+          id aa2004125; 11 Sep 98 17:16 GMT
+Received: (from majordomo@localhost) 
+          by defender.perl.org (8.8.8/8.8.8/Debian/GNU) id NAA06399 
+          for perl5-porters-outgoing; Fri, 11 Sep 1998 13:08:59 -0400
+X-Authentication-Warning: defender.perl.org: majordomo set sender to 
+                          owner-perl5-porters@perl.org using -f
+Received: from ns2.brainstorm.net (root@ns2.brainstorm.net [205.164.112.3]) 
+          by defender.perl.org (8.8.8/8.8.8/Debian/GNU) with ESMTP id NAA06393 
+          for <perl5-porters@perl.org>; Fri, 11 Sep 1998 13:08:57 -0400
+Received: from wall.org (kiev.wall.org [205.178.11.135]) 
+          by ns2.brainstorm.net (8.8.8/8.6.9) with SMTP id KAA17751;
+          Fri, 11 Sep 1998 10:08:43 -0700 (PDT)
+Received: by wall.org (SMI-8.6/SMI-SVR4) id KAA28168;
+          Fri, 11 Sep 1998 10:06:48 -0700
+Date: Fri, 11 Sep 1998 10:06:48 -0700
+From: larry@wall.org (Larry Wall)
+Message-Id: <199809111706.KAA28168@wall.org>
+To: Joshua Pritikin <joshua.pritikin@db.com>
+Cc: gsar@engin.umich.edu, perl5-porters@perl.org
+Subject: Re: nice XS utility function
+In-Reply-To: <Pine.GSO.4.02.9809101654310.1288-100000@eq1062.wks.na.deuba.com> (from Joshua Pritikin on Thu, 10 Sep 1998 16:57:22 -0400 (EDT))
+Sender: owner-perl5-porters@perl.org
+Precedence: bulk
+X-Loop: Perl5-Porters
+Status: RO
+Content-Length: 562
+Lines: 15
+
+Joshua Pritikin writes:
+: On Thu, 10 Sep 1998 gsar@engin.umich.edu wrote:
+: > Looks like a candidate for perlguts, but shouldn't you check IOK to save
+: > some cycles?
+: 
+: Like this?  I still don't get the intent of private vs. public *OK macros.
+: Caching?
+
+When mg_get() fetches the magical value of a scalar, it has to put it
+somewhere.  It puts it into the scalar itself, and sets the private
+flags to say what's actually there.  Then subsequent code can examine
+the scalar multiple times without re-invoking magic.  Look at sv_2iv()
+for an example.
+
+Larry
+
diff --git a/err_shelved/ref_tie_xs.info b/err_shelved/ref_tie_xs.info
new file mode 100644
index 00000000..da0ccaf6
--- /dev/null
+++ b/err_shelved/ref_tie_xs.info
@@ -0,0 +1,129 @@
+From Alan.Burlison@uk.sun.com  Tue Sep  1 15:59:25 1998
+Return-Path: <Alan.Burlison@uk.sun.com>
+Received: from oink by toad.ig.co.uk (SMI-8.6/SMI-SVR4)
+	id PAA22488; Tue, 1 Sep 1998 15:59:25 +0100
+Received: from punt-21.mail.demon.net by oink with SMTP (PP) id <06585-2@oink>;
+          Tue, 1 Sep 1998 15:59:10 +0100
+Received: from punt-2.mail.demon.net by mailstore for Tim.Bunce@ig.co.uk 
+          id 904661840:20:01389:18; Tue, 01 Sep 98 14:57:20 GMT
+Received: from mercury.sun.com ([192.9.25.1]) by punt-2.mail.demon.net 
+          id aa2126473; 1 Sep 98 14:56 GMT
+Received: from UK.Sun.COM ([129.156.85.58]) 
+          by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id HAA04025;
+          Tue, 1 Sep 1998 07:55:48 -0700
+Received: from sale-wts by UK.Sun.COM (SMI-8.6/SMI-SVR4-sd.fkk205) id PAA10080;
+          Tue, 1 Sep 1998 15:55:46 +0100
+Received: from fubar by sale-wts (SMI-8.6/SMI-SVR4-se.fkk202) id PAA00631;
+          Tue, 1 Sep 1998 15:55:45 +0100
+Message-Id: <199809011455.PAA00631@sale-wts>
+Date: Tue, 1 Sep 1998 15:54:06 +0100 (BST)
+From: Alan Burlison <Alan.Burlison@UK.Sun.COM>
+Reply-To: Alan Burlison <Alan.Burlison@UK.Sun.COM>
+Subject: Re: Looking for some XS MAGIC examples...
+To: larry@wall.org, Tim.Bunce@ig.co.uk
+Cc: nik@tiuk.ti.com, ilya@math.ohio-state.edu, nick@ni-s.u-net.com,
+        sugalskd@osshe.edu, perl5-porters@perl.org
+MIME-Version: 1.0
+Content-Type: MULTIPART/mixed; BOUNDARY=Swarm_of_Eels_714_000
+X-Mailer: dtmail 1.2.1 CDE Version 1.2.1 SunOS 5.6 sun4u sparc
+Status: RO
+Content-Length: 3504
+Lines: 96
+
+--Swarm_of_Eels_714_000
+Content-Type: TEXT/plain; charset=us-ascii
+Content-MD5: 5P2HlF1KvE3Z7HYkMbTwJA==
+
+Tim,
+
+> > I'm making pleasing progress thanks to all the help I have received - I
+> > have now got a grasp on blessing from an XSUB.  I'm now trying to 
+figure
+> > out how to create a tied hash from within a XSUB.
+> 
+> Hint: follow pp_tie in pp_sys.c.
+> 
+> A doc patch with an example to the appropriate perl*.pod would be nice.
+
+Thanks - got it sussed.  Hope this will suffice as a doc patch.
+
+Alan Burlison
+
+--Swarm_of_Eels_714_000
+Content-Type: TEXT/plain; name="perlguts.patch"; charset=us-ascii; x-unix-mode=0644
+Content-Description: perlguts.patch
+Content-MD5: Szv+VXYcGKk63sRK0CjTCg==
+
+*** perlguts.pod.orig	Tue Sep  1 14:46:49 1998
+--- perlguts.pod	Tue Sep  1 15:48:40 1998
+***************
+*** 861,868 ****
+  
+  When the SV is read from or written to, the C<uf_val> or C<uf_set>
+  function will be called with C<uf_index> as the first arg and a
+! pointer to the SV as the second.
+  
+  Note that because multiple extensions may be using '~' or 'U' magic,
+  it is important for extensions to take extra care to avoid conflict.
+  Typically only using the magic on objects blessed into the same class
+--- 861,881 ----
+  
+  When the SV is read from or written to, the C<uf_val> or C<uf_set>
+  function will be called with C<uf_index> as the first arg and a
+! pointer to the SV as the second.  A simple example of how to add 'U'
+! magic is shown below.  Note that the ufuncs structure is copied by
+! sv_magic, so you can safely allocate it on the stack.
+  
++     void
++     Umagic(sv)
++         SV *sv;
++     PREINIT:
++         struct ufuncs uf;
++     CODE:
++         uf.uf_val   = &my_get_fn;
++         uf.uf_set   = &my_set_fn;
++         uf.uf_index = 0;
++         sv_magic(sv, 0, 'U', (char*)&uf, sizeof(uf));
++ 
+  Note that because multiple extensions may be using '~' or 'U' magic,
+  it is important for extensions to take extra care to avoid conflict.
+  Typically only using the magic on objects blessed into the same class
+***************
+*** 907,912 ****
+--- 920,952 ----
+  you find yourself actually applying such information in this section, be
+  aware that the behavior may change in the future, umm, without warning.
+  
++ The perl tie function associates a variable with an object that implements
++ the various GET, SET etc methods.  To perform the equivalent of the perl
++ tie function from an XSUB, you must mimic this behaviour.  The code below
++ carries out the necessary steps - firstly it creates a new hash, and then
++ creates a second hash which it blesses into the class which will implement
++ the tie methods. Lastly it ties the two hashes together, and returns a
++ reference to the new tied hash.  Note that the code below does NOT call the
++ TIEHASH method in the MyTie class -
++ see L<Calling Perl Routines from within C Programs> for details on how
++ to do this.
++ 
++     SV*
++     mytie()
++     PREINIT:
++         HV *hash;
++         HV *stash;
++         SV *tie;
++     CODE:
++         hash = newHV();
++         tie = newRV_noinc((SV*)newHV());
++         stash = gv_stashpv("MyTie", TRUE);
++         sv_bless(tie, stash);
++         hv_magic(hash, tie, 'P');
++         RETVAL = newRV_noinc(hash);
++     OUTPUT:
++         RETVAL
++ 
+  The C<av_store> function, when given a tied array argument, merely
+  copies the magic of the array onto the value to be "stored", using
+  C<mg_copy>.  It may also return NULL, indicating that the value did not
+
+--Swarm_of_Eels_714_000--
+
diff --git a/lib/DBI/DBD.pm b/lib/DBI/DBD.pm
index 6d98ece7..722d2540 100644
--- a/lib/DBI/DBD.pm
+++ b/lib/DBI/DBD.pm
@@ -2,10 +2,10 @@ package DBI::DBD;
 
 use vars qw($VERSION);	# set $VERSION early so we don't confuse PAUSE/CPAN etc
 
-$VERSION = sprintf("%d.%02d", q$Revision: 11.20 $ =~ /(\d+)\.(\d+)/o);
+$VERSION = sprintf("%d.%02d", q$Revision: 11.21 $ =~ /(\d+)\.(\d+)/o);
 
 
-# $Id: DBD.pm,v 11.20 2004/01/07 17:38:51 timbo Exp $
+# $Id: DBD.pm,v 11.21 2004/02/01 11:16:16 timbo Exp $
 #
 # Copyright (c) 1997-2003 Jonathan Leffler, Jochen Wiedmann, Steffen
 # Goeldner and Tim Bunce
@@ -58,8 +58,8 @@ DBI::DBD - Perl DBI Database Driver Writer's Guide
 
 =head2 Version and volatility
 
-  $Revision: 11.20 $
-  $Date: 2004/01/07 17:38:51 $
+  $Revision: 11.21 $
+  $Date: 2004/02/01 11:16:16 $
 
 This document is I<still> a minimal draft which is in need of further work.
 
@@ -708,7 +708,7 @@ version 1.10 to precede version 1.9, so that using a raw CVS, RCS or
 SCCS version number is probably not appropriate (despite being very
 common). For RCS or CVS you can use this code:
 
-  $VERSION = sprintf "%d.%02d", '$Revision: 11.20 $ ' =~ /(\d+)\.(\d+)/;
+  $VERSION = sprintf "%d.%02d", '$Revision: 11.21 $ ' =~ /(\d+)\.(\d+)/;
 
 which pads out the fractional part with leading zeros so all is well
 (so long as you don't go past x.99)
@@ -3673,6 +3673,8 @@ $(BASEEXT).xsi: $(DBI_DRIVER_XST) '.$xstf_h.'
 ';
 }
 
+package DBDI; # just to reserve it via PAUSE for the future
+
 __END__
 
 =head1 AUTHORS
diff --git a/lib/DBI/DBD/Metadata.pm b/lib/DBI/DBD/Metadata.pm
index 6b214a3b..d3a34c33 100644
--- a/lib/DBI/DBD/Metadata.pm
+++ b/lib/DBI/DBD/Metadata.pm
@@ -1,6 +1,6 @@
 package DBI::DBD::Metadata;
 
-# $Id: Metadata.pm,v 1.4 2004/01/07 17:38:51 timbo Exp $
+# $Id: Metadata.pm,v 1.5 2004/02/01 11:16:16 timbo Exp $
 #
 # Copyright (c) 1997-2003 Jonathan Leffler, Jochen Wiedmann,
 # Steffen Goeldner and Tim Bunce
@@ -21,7 +21,7 @@ use DBI::Const::GetInfoType qw(%GetInfoType);
 use strict;
 
 my
-$VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
 
 =head1 NAME
 
@@ -245,7 +245,7 @@ A possible implementation of DBD::Driver::type_info_all() may look like:
   }
 
 Please replace Driver (or "<foo>") with the name of your driver.
-Note that this stub function is generated for you by the write_typeinfo
+Note that this stub function is generated for you by the write_typeinfo_pm
 function, but you must manually transfer the code to Driver.pm.
 
 =cut
@@ -305,9 +305,9 @@ sub fmt_value
     return $val;
 }
 
-sub write_typeinfo
+sub write_typeinfo_pm
 {
-    my ($driver, $dsn, $user, $pass) = @_ ? @_ : @ARGV;
+    my ($dsn, $user, $pass, $driver) = @_ ? @_ : @ARGV;
     my $dbh = DBI->connect($dsn, $user, $pass, {AutoCommit=>1, RaiseError=>1});
     $driver = "<foo>" unless defined $driver;
 
@@ -316,7 +316,7 @@ sub write_typeinfo
 # Transfer this to ${driver}.pm
 
 # The type_info_all function was automatically generated by
-# DBI::DBD::Metadata::write_typeinfo v$DBI::DBD::Metadata::VERSION.
+# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
 
 package DBD::${driver}::db;         # This line can be removed once transferred.
 
@@ -331,7 +331,7 @@ package DBD::${driver}::db;         # This line can be removed once transferred.
 # Don't forget to add version and intellectual property control information.
 
 # The \%type_info_all hash was automatically generated by
-# DBI::DBD::Metadata::write_typeinfo v$DBI::DBD::Metadata::VERSION.
+# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
 
 package DBD::${driver}::TypeInfo;
 
diff --git a/lib/DBI/PurePerl.pm b/lib/DBI/PurePerl.pm
index 38bd37b9..fe2f1c61 100644
--- a/lib/DBI/PurePerl.pm
+++ b/lib/DBI/PurePerl.pm
@@ -24,7 +24,7 @@ use Carp;
 require Symbol;
 
 $DBI::PurePerl = $ENV{DBI_PUREPERL} || 1;
-$DBI::PurePerl::VERSION = sprintf "%d.%02d", '$Revision: 1.95 $ ' =~ /(\d+)\.(\d+)/;
+$DBI::PurePerl::VERSION = sprintf "%d.%02d", '$Revision: 1.96 $ ' =~ /(\d+)\.(\d+)/;
 $DBI::neat_maxlen ||= 400;
 
 $DBI::tfh = Symbol::gensym();
@@ -131,6 +131,7 @@ my %is_valid_attribute = map {$_ =>1 } (keys %is_flag_attribute, qw(
 	Driver
 	FetchHashKeyName
 	HandleError
+	HandleSetError
 	ImplementorClass
 	Kids
 	LongReadLen
@@ -211,23 +212,38 @@ sub  _install_method {
 	    my $keep_error = 1;
 	};
     }
-    elsif (IMA_KEEP_ERR_SUB & $bitmask) {
+    elsif (0 and IMA_KEEP_ERR_SUB & $bitmask) {
 	push @pre_call_frag, q{
 	    my $keep_error = $h->{_parent}->{_call_depth};
 	    unless ($keep_error) {
 		#warn "$method_name cleared err";
-		$h->{err} = 0;
+		$h->{err} = $DBI::err = undef;
 		$h->{errstr} = $DBI::state = '';
 	    };
 	};
     }
     else {
-	push @pre_call_frag, q{
-	    my $keep_error;
+	my $ke_init = (IMA_KEEP_ERR_SUB & $bitmask)
+		? q{= $h->{_parent}->{_call_depth} }
+		: "";
+	push @pre_call_frag, qq{
+	    my \$keep_error $ke_init;
+	};
+	my $keep_error_code = q{
 	    #warn "$method_name cleared err";
-	    $h->{err} = 0;
+	    $h->{err} = $DBI::err = undef;
 	    $h->{errstr} = $DBI::state = '';
 	};
+	$keep_error_code = q{
+	    printf $DBI::tfh "    !! %s: %s CLEARED by call to }.$method_name.q{ method\n".
+		    $h->{err}, $h->{err}
+		if $DBI::dbi_debug && defined $h->{err};
+	}. $keep_error_code
+	    if exists $ENV{DBI_TRACE};
+	push @pre_call_frag, ($ke_init)
+		? qq{ unless (\$keep_error) { $keep_error_code }}
+		: $keep_error_code
+	    unless $method_name eq 'set_err';
     }
 
     push @pre_call_frag, q{
@@ -263,33 +279,52 @@ sub  _install_method {
     } if IMA_END_WORK & $bitmask;
 
     push @post_call_frag, q{
-        if ($h->{err} && !$keep_error && $call_depth <= 1 && !$h->{_parent}{_call_depth}) {
-            my $last = ($DBI::last_method_except{$method_name})
-		? ($h->{'_last_method'}||$method_name) : $method_name;
-            my $errstr = $h->{errstr} || $DBI::errstr || $DBI::err || '';
-            my $msg = sprintf "%s %s failed: %s", $imp, $last, $errstr;
-            if ($h->{'ShowErrorStatement'} and my $Statement = $h->{Statement}) {
-		$msg .= ' for [``' . $Statement . "''";
-		my $ParamValues = $h->FETCH('ParamValues');
-		if ($ParamValues) {
-		    my $pv_idx = 0;
-		    $msg .= " with params: ";
-		    while ( my($k,$v) = each %$ParamValues ) {
-			$msg .= sprintf "%s%s=%s", ($pv_idx++==0) ? "" : ", ", $k, DBI::neat($v);
+        if ( !$keep_error && defined(my $err=$h->{err}) ) {
+
+	    my $at_top = ($call_depth <= 1 && !$h->{_parent}{_call_depth});
+	    my($pe,$re,$he,$hw) = @{$h}{qw(PrintError RaiseError HandleError HandleSetError)};
+	    my $msg;
+$hw=0;
+
+	    if ($err && $at_top && ($pe || $re || $he)	# error at top level
+	    or (!$err && ($pe || $hw))			# warning/info
+	    ) {
+		my $last = ($DBI::last_method_except{$method_name})
+		    ? ($h->{'_last_method'}||$method_name) : $method_name;
+		my $errstr = $h->{errstr} || $DBI::errstr || $err || '';
+		my $msg = sprintf "%s %s failed: %s", $imp, $last, $errstr;
+
+		if ($h->{'ShowErrorStatement'} and my $Statement = $h->{Statement}) {
+		    $msg .= ' for [``' . $Statement . "''";
+		    if (my $ParamValues = $h->FETCH('ParamValues')) {
+			my $pv_idx = 0;
+			$msg .= " with params: ";
+			while ( my($k,$v) = each %$ParamValues ) {
+			    $msg .= sprintf "%s%s=%s", ($pv_idx++==0) ? "" : ", ", $k, DBI::neat($v);
+			}
+		    }
+		    $msg .= "]";
+		}
+		if (!$err && $hw) {
+		    undef $hw unless &$hw($msg,$h,$ret[0]);
+		}
+		# still have warn (not info) and it wasn't handled by HandleSetError
+		if (!$hw and defined $DBI::err and $DBI::err eq "0") {
+		    warn $msg if $pe;
+		}
+
+		if ($DBI::err) {
+		    my $do_croak = 1;
+		    if (my $subsub = $h->{'HandleError'}) {
+			$do_croak = 0 if &$subsub($msg,$h,$ret[0]);
+		    }
+		    if ($do_croak) {
+			printf $DBI::tfh "    $method_name has failed ($h->{PrintError},$h->{RaiseError})\n"
+				if $DBI::dbi_debug >= 4;
+			carp  $msg if $pe;
+			die $msg if $h->{RaiseError};
 		    }
 		}
-		$msg .= "]";
-	    }
-	    $msg .= "\n";
-            my $do_croak = 1;
-            if (my $subsub = $h->{'HandleError'}) {
-		$do_croak = 0 if &$subsub($msg,$h,$ret[0]);
-            }
-	    if ($do_croak) {
-		printf $DBI::tfh "    $method_name has failed ($h->{PrintError},$h->{RaiseError})\n"
-			if $DBI::dbi_debug >= 4;
-  	        carp  $msg if $h->{PrintError};
-	        die $msg if $h->{RaiseError};
 	    }
 	}
     } unless IMA_KEEP_ERR & $bitmask;
@@ -340,7 +375,7 @@ sub  _install_method {
     warn "$@\n$method_code\n" if $@;
     die "$@\n$method_code\n" if $@;
     *$method = $code_ref;
-    if (0 && $method =~ 'DESTROY') { # debuging tool
+    if ( 0 and $method =~ /set_err/) { # debuging tool
 	my $l=0; # show line-numbered code for method
 	warn "*$method = ".join("\n", map { ++$l.": $_" } split/\n/,$method_code);
     }
@@ -355,7 +390,7 @@ sub _setup_handle {
     $h_inner->{"Kids"} = $h_inner->{"ActiveKids"} = 0;	# XXX not maintained
     if ($parent) {
 	foreach (qw(
-	    RaiseError PrintError HandleError
+	    RaiseError PrintError HandleError HandleSetError
 	    Warn LongTruncOk ChopBlanks AutoCommit
 	    ShowErrorStatement FetchHashKeyName LongReadLen CompatMode
 	)) {
@@ -606,16 +641,47 @@ sub state {
 sub set_err {
     my ($h, $errnum,$msg,$state, $method, $rv) = @_;
     $h = tied(%$h) || $h; # for code that calls $h->DBI::set_err(...)
-    $msg = $errnum unless defined $msg;
-    $h->{'_last_method'} = $method;
-    $h->{err}    = $DBI::err    = $errnum;
-    $h->{errstr} = $DBI::errstr = $msg;
-    $h->{state}  = $DBI::state  = (defined $state) ? ($state eq "00000" ? "" : $state) : ($errnum ? "S1000" : "");
+
+    if (my $hss = $h->{HandleSetError}) {
+	return if $hss->($h, $errnum, $msg, $state, $method);
+    }
+
+    if ($h->{errstr}) {
+	$h->{errstr} .= sprintf " [err was %s now %s]", $h->{err}, $errnum
+		if $h->{err} && $errnum;
+	$h->{errstr} .= sprintf " [state was %s now %s]", $h->{state}, $state
+		if $h->{state} and $h->{state} ne "S1000" && $state;
+	$h->{errstr} .= "\n$msg";
+	$DBI::errstr = $h->{errstr};
+    }
+    else {
+	$h->{errstr} = $DBI::errstr = $msg;
+    }
+
+    # assign if higher priority: err > "0" > "" > undef
+    my $err_changed;
+    if ($errnum			# new error: so assign
+	or !defined $h->{err}	# no existing warn/info: so assign
+           # new warn ("0" len 1) > info ("" len 0): so assign
+	or defined $errnum && length($errnum) > length($h->{err})
+    ) {
+        $h->{err} = $DBI::err = $errnum;
+	++$err_changed;
+    }
+
+    if ($err_changed) {
+	$state ||= "S1000" if $DBI::err;
+	$h->{state} = $DBI::state = ($state eq "00000") ? "" : $state
+	    if $state;
+    }
+
     if (my $p = $h->{Database}) { # just sth->dbh, not dbh->drh (see ::db::DESTROY)
-	$p->{err}    = $errnum;
-	$p->{errstr} = $msg;
+	$p->{err}    = $DBI::err;
+	$p->{errstr} = $DBI::errstr;
 	$p->{state}  = $DBI::state;
     }
+
+    $h->{'_last_method'} = $method;
     return $rv; # usually undef
 }
 sub trace_msg {
diff --git a/t/01basics.t b/t/01basics.t
index 63c1cc2a..bfe3ab62 100755
--- a/t/01basics.t
+++ b/t/01basics.t
@@ -40,6 +40,7 @@ $switch = DBI->internal;
 ok(0, ref $switch eq 'DBI::dr');
 
 @drivers = DBI->available_drivers(); # at least 'ExampleP' should be installed
+print "available_drivers: @drivers\n";
 ok(0, @drivers);
 ok(0, "@drivers" =~ m/ExampleP/i);	# ignore case for VMS & Win32
 
@@ -107,6 +108,8 @@ else {
   ok(0, DBI::hash("foo2",1) == -1263462437,  DBI::hash("foo2",1));
 }
 
+print "test DBI->installed_versions (for @drivers)\n";
+print "(a bad driver can kill the process here)\n";
 my $installed_versions = DBI->installed_versions;
 ok(0, ref $installed_versions eq 'HASH');
 ok(0, %$installed_versions);
diff --git a/t/02dbidrv.t b/t/02dbidrv.t
index 11b3d2a4..7d0f58e9 100755
--- a/t/02dbidrv.t
+++ b/t/02dbidrv.t
@@ -24,7 +24,7 @@ my $drh;
 	$class .= "::dr";
 	($drh) = DBI::_new_drh($class, {
 		'Name' => 'Test',
-		'Version' => '$Revision: 11.10 $',
+		'Version' => '$Revision: 11.11 $',
 	    },
 	    77	# 'implementors data'
 	    );
@@ -120,8 +120,9 @@ ok($drh->err, 42);	# copied up to drh from dbh when dbh was DESTROYd
 
 $drh->set_err("99", "foo");
 ok($DBI::err, 99);
-ok($DBI::errstr, "foo");
+ok($DBI::errstr, "foo 42 dbh [err was 42 now 99]\nfoo");
 
+$drh->default_user("",""); # just to reset err etc
 $drh->set_err(0, "00000");
 ok($DBI::state, "");
 
diff --git a/t/03handle.t b/t/03handle.t
index 24405645..8db99189 100644
--- a/t/03handle.t
+++ b/t/03handle.t
@@ -87,7 +87,11 @@ my $dbh = DBI->connect("dbi:$driver:", '', '');
 #DBI->trace(9);
 my $imp_data = $dbh->take_imp_data;
 ok($imp_data);
-ok(length($imp_data) >= 112); # 112 for 32bit, 116 for 64 bit as of DBI 1.37, but may change
+# generally length($imp_data) = 112 for 32bit, 116 for 64 bit
+# (as of DBI 1.37) but it can differ on some platforms
+# depending on structure packing by the compiler
+# so we just test that it's something reasonable:
+ok(length($imp_data) >= 80);
 #print Dumper($imp_data);
 
 {
diff --git a/t/08keeperr.t b/t/08keeperr.t
index 2b4ec983..9a25ccea 100644
--- a/t/08keeperr.t
+++ b/t/08keeperr.t
@@ -11,10 +11,11 @@ sub ok ($$;$) {
     ++$t;
     die "sequence error, expected $n but actually $t"
         if $n and $n != $t;
-    return print "ok $t\n" if @_<3 && $got;
-    return print "ok $t\n" if $got eq $want;
-    warn "Test $n: wanted '$want', got '$got'\n";
+    my $line = (caller)[2];
+    return print "ok $t at line $line\n" if @_<3 && $got;
+    return print "ok $t at line $line\n" if $got eq $want;
     print "not ok $t\n";
+    warn "# failed test $t at line $line: wanted '$want', got '$got'\n";
 }
 
 
@@ -58,4 +59,120 @@ my $err1 = test_select( My::DBI->connect(@con_info) );
 my $err2 = test_select( DBI->connect(@con_info) );
 ::ok(0, $err2 =~ /^DBD::(ExampleP|Multiplex)::db selectrow_arrayref failed: opendir/) or print "got: $err2\n";
 
-BEGIN { $tests = 2 }
+package main;
+
+print "test HandleSetError\n";
+
+my $dbh = DBI->connect(@con_info);
+$dbh->{RaiseError} = 1;
+$dbh->{PrintError} = 1;
+
+my $warn = 0;
+my @handlewarn = (0,0,0);
+$SIG{__WARN__} = sub {
+    if ($_[0] =~ /^DBD::ExampleP::/) {
+	++$warn;
+	print "warn called: @_\n";
+	return;
+    }
+    warn @_;
+};
+#$dbh->trace(2);
+$dbh->{HandleSetError} = sub {
+    my ($h, $err, $errstr, $state) = @_;
+    ++$handlewarn[ $err ? 2 : length($err) ]; # count [info, warn, err] calls
+    return 1
+	if $state && $state eq "return";   # for tests
+    ($_[1], $_[2], $_[3]) = (99, "errstr99", "OV123")
+	if $state && $state eq "override"; # for tests
+    return 0 if $err; # be transparent for errors
+    local $^W;
+    print "HandleSetError called: h=$h, err=$err, errstr=$errstr, state=$state\n";
+    return 0;
+};
+ok(0, !defined $DBI::err, 1);
+
+$dbh->set_err("", "(got info)");
+ok(0, defined $DBI::err, 1);
+ok(0, $DBI::err, "");
+ok(0, $DBI::errstr, "(got info)");
+ok(0, $dbh->errstr, "(got info)");
+ok(0, $warn, 0);
+ok(0, "@handlewarn", "1 0 0");
+
+$dbh->set_err("0", "(got warn)", "AA001");
+ok(0, defined $DBI::err, 1);
+ok(0, $DBI::err, "0");
+ok(0, $DBI::errstr, "(got info)\n(got warn)");
+ok(0, $dbh->errstr, "(got info)\n(got warn)");
+ok(0, $warn, 1);
+ok(0, "@handlewarn", "1 1 0");
+ok(0, $DBI::state, "AA001");
+
+$dbh->set_err("", "(got more info)");
+ok(0,  defined $DBI::err);
+ok(0, $DBI::err, "0");	# not "", ie it's still a warn
+ok(0, $DBI::errstr, "(got info)\n(got warn)\n(got more info)");
+ok(0, $warn, 2);
+ok(0, "@handlewarn", "2 1 0");
+ok(0, $DBI::state, "AA001");
+
+$dbh->{RaiseError} = 0;
+$dbh->{PrintError} = 0;
+
+$dbh->set_err("42", "(got error)", "AA002");
+ok(0, $DBI::err, 42);
+ok(0, $dbh->errstr, "(got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)");
+ok(0, $warn, 2);
+ok(0, "@handlewarn", "2 1 1");
+ok(0, $DBI::state, "AA002");
+
+$dbh->set_err("", "(got info)");
+ok(0, $DBI::err, 42);
+ok(0, $dbh->errstr, "(got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)");
+ok(0, $warn, 2);
+ok(0, "@handlewarn", "3 1 1");
+
+$dbh->set_err("0", "(got warn)");
+ok(0, $DBI::err, 42);
+ok(0, $dbh->errstr, "(got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn)");
+ok(0, $warn, 2);
+ok(0, "@handlewarn", "3 2 1");
+
+$dbh->set_err("4200", "(got new error)", "AA003");
+ok(0, $DBI::err, 4200);
+ok(0, $dbh->errstr, "(got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) [err was 42 now 4200] [state was AA002 now AA003]\n(got new error)");
+ok(0, $warn, 2);
+ok(0, "@handlewarn", "3 2 2");
+
+$dbh->ping; # just to clear error in the normal way
+
+$warn = 0;
+@handlewarn = (0,0,0);
+my @ret;
+@ret = $dbh->set_err(1, "foo");
+ok(0, @ret == 1);
+ok(0, !defined $ret[0]);
+$dbh->set_err(2, "bar");
+$dbh->set_err(3, "baz");
+$dbh->set_err(0, "warn");
+ok(0, $dbh->errstr, "foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz\nwarn");
+ok(0, $warn, 0);
+ok(0, "@handlewarn", "0 1 3");
+
+$dbh->ping; # clear error
+@ret = $dbh->set_err(1, "foo", "AA123", "method");
+ok(0, @ret == 1 && !defined $ret[0]);
+@ret = $dbh->set_err(1, "foo", "AA123", "method", "42");
+ok(0, @ret == 1 && $ret[0] eq "42");
+@ret = $dbh->set_err(1, "foo", "return");
+ok(0, @ret == 0);
+
+$dbh->ping; # clear error
+@ret = $dbh->set_err("", "info", "override");
+ok(0, @ret == 1 && !defined $ret[0]);
+ok(0, $dbh->err,    99);
+ok(0, $dbh->errstr, "errstr99");
+ok(0, $dbh->state,  "OV123");
+
+BEGIN { $tests = 51 }
diff --git a/t/15array.t b/t/15array.t
index bba369d8..0347c1eb 100644
--- a/t/15array.t
+++ b/t/15array.t
@@ -3,7 +3,7 @@
 use strict;
 use Test;
 
-BEGIN { plan tests => 34 }
+BEGIN { plan tests => 39 }
 
 use Data::Dumper;
 $Data::Dumper::Indent = 0;
@@ -68,6 +68,25 @@ ok( $dumped, "[[1,42,undef,'a'],[2,42,undef,'b'],[3,42,undef,'c']]");
 $dumped = Dumper($tuple_status);
 ok( $dumped, "[1,1,1]");
 
+# --- with no values for bind params, should execute zero times
+
+@$rows = ();
+ok( $sth->execute_array( { ArrayTupleStatus => $tuple_status },
+        [], [], [], [],
+    ),
+    0);
+ok( @$rows, 0 );
+ok( @$tuple_status, 0 );
+
+# --- catch 'undefined value' bug with zero bind values
+
+@$rows = ();
+my $sth_other = $dbh->prepare("insert", {
+	rows => $rows,		# where to 'insert' (push) the rows
+	NUM_OF_PARAMS => 1,
+});
+ok( $sth_other->execute_array( {}, [] ), 0 ); # no ArrayTupleStatus
+ok( @$rows, 0);
 
 # --- ArrayTupleFetch code-ref tests ---
 
diff --git a/t/40profile.t b/t/40profile.t
index d8ea757a..c9053a33 100644
--- a/t/40profile.t
+++ b/t/40profile.t
@@ -15,6 +15,7 @@ use strict;
 use DBI;
 use DBI::Profile;
 use File::Spec;
+use Config;
 
 BEGIN {
     if ($DBI::PurePerl) {
@@ -92,6 +93,11 @@ ok((grep { defined($_)                } @$data) == 7);
 ok((grep { DBI::looks_like_number($_) } @$data) == 7);
 ok((grep { $_ >= 0                    } @$data) == 7) or warn "profile data: [@$data]\n";
 my ($count, $total, $first, $shortest, $longest, $time1, $time2) = @$data;
+if ($shortest < 0) {
+    warn "Time went backwards at some point during the test on this $Config{archname} system!\n";
+    warn "Perhaps you have time sync software (like NTP) that adjusted the clock\n";
+    warn "backwards by more than $shortest seconds during the test.\n";
+}
 ok($count > 3);
 ok($total > $first);
 ok($total > $longest) or warn "total $total > longest $longest: failed\n";
diff --git a/test.pl b/test.pl
index e891afbc..e7a0d4c7 100755
--- a/test.pl
+++ b/test.pl
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl -w
 
-# $Id: test.pl,v 11.6 2003/02/26 17:56:01 timbo Exp $
+# $Id: test.pl,v 11.7 2004/02/01 11:16:16 timbo Exp $
 #
 # Copyright (c) 1994-1998 Tim Bunce
 #
@@ -14,7 +14,7 @@
 
 BEGIN {
     print "$0 @ARGV\n";
-    print q{DBI test application $Revision: 11.6 $}."\n";
+    print q{DBI test application $Revision: 11.7 $}."\n";
     $| = 1;
 }
 
@@ -102,8 +102,8 @@ BEGIN
     my $td = Benchmark::timediff(Benchmark->new, $t1);
     my $tds= Benchmark::timestr($td);
     my $dur = $td->cpu_a || (1/$count); # fudge if cpu_a==0
-    printf "$count NullP statement handles cycled in %.1f cpu+sys seconds (%d per sec)\n\n",
-	    $dur, $count / $dur;
+    printf "%d NullP sth/sec on this perl $] %s (%d in %.1f cpu+sys secs)\n\n",
+	    $count/$dur, $Config{archname}, $count, $dur;
 
   if (0) {
     $null_dbh = DBI->connect('dbi:mysql:VC_log','','',{RaiseError=>1});