r15937@rob-kinyons-computer (orig r9234): rkinyon | 2007-03-12 16:07:23 -0400

  r15928@rob-kinyons-computer (orig r9227):  rkinyon | 2007-03-12 10:12:34 -0400
  Created bugfix branch
  r15936@rob-kinyons-computer (orig r9233):  rkinyon | 2007-03-12 16:07:06 -0400
  Fixed a couple of minor bugs

diff --git a/Build.PL b/Build.PL
index 55071fe..595b201 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -22,6 +22,7 @@ my $build = Module::Build->new(
         'Test::Warn'      => '0.08',
         'Test::More'      => '0.47',
         'Test::Exception' => '0.21',
+        'IO::Scalar'      => '0.01',
     },
     create_makefile_pl => 'traditional',
     add_to_cleanup => [

diff --git a/Changes b/Changes
index 6409e9f..850dc44 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,14 @@
 Revision history for DBM::Deep.
 
-1.0000 Feb 26 22:30:00 2007 EDT
+1.0001 Mar 12 16:15:00 2007 EDT
+    - (This version is compatible with 1.0000)
+    - Added a missing dependency on IO::Scalar (RT #25387)
+    - Fixed how t/44_upgrade_db.t and utils/upgrade_db.pl worked
+      - utils/upgrade_db.pl now uses #!perl, not #!/usr/bin/perl
+      - t/44_upgrade_db.t now explicitly calls $^X
+        (Thanks merlyn!)
+
+1.0000 Feb 26 22:30:00 2007 EST
     - THIS VERSION IS INCOMPATIBLE WITH FILES FROM ALL OTHER PRIOR VERSIONS.
       - To aid in this form of upgrades, DBM::Deep now checks the file format
         version to make sure that it knows how to read it.
@@ -15,14 +23,14 @@ Revision history for DBM::Deep.
       - data_sector_size - this determines the default size of a data sector.
     - Correctly handle opening readonly files
 
-0.99_04 Jan 24 22:30:00 2007 EDT
+0.99_04 Jan 24 22:30:00 2007 EST
     - Added the missing lib/DBM/Deep.pod file to the MANIFEST
     - Fixed a poorly-designed test that was failing depending on what Clone::Any
       was using.
     - All "use 5.6.0;" lines are now "use 5.006_000;" to avoid warnings about
       unsupported vstrings in 5.9.x
 
-0.99_03 Jan 23 22:30:00 2007 EDT
+0.99_03 Jan 23 22:30:00 2007 EST
     - THIS VERSION IS INCOMPATIBLE WITH FILES FROM ALL OTHER PRIOR VERSIONS.
       - The fileformat changed completely. I will be writing a converter, but
         it's not there right now. Do NOT expect that this module will

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 7a6bbcd..6a005a0 100644 (file)
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -5,7 +5,7 @@ use 5.006_000;
 use strict;
 use warnings;
 
-our $VERSION = q(1.0000);
+our $VERSION = q(1.0001);
 
 use Fcntl qw( :flock );
 

diff --git a/lib/DBM/Deep/Array.pm b/lib/DBM/Deep/Array.pm
index 438756b..e60c152 100644 (file)
--- a/lib/DBM/Deep/Array.pm
+++ b/lib/DBM/Deep/Array.pm
@@ -5,7 +5,7 @@ use 5.006_000;
 use strict;
 use warnings;
 
-our $VERSION = q(1.0000);
+our $VERSION = q(1.0001);
 
 # This is to allow DBM::Deep::Array to handle negative indices on
 # its own. Otherwise, Perl would intercept the call to negative

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index 663a0f0..2603045 100644 (file)
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -5,7 +5,7 @@ use 5.006_000;
 use strict;
 use warnings;
 
-our $VERSION = q(1.0000);
+our $VERSION = q(1.0001);
 
 use Scalar::Util ();
 

diff --git a/lib/DBM/Deep/File.pm b/lib/DBM/Deep/File.pm
index 02276f0..91c28ba 100644 (file)
--- a/lib/DBM/Deep/File.pm
+++ b/lib/DBM/Deep/File.pm
@@ -5,7 +5,7 @@ use 5.006_000;
 use strict;
 use warnings;
 
-our $VERSION = q(1.0000);
+our $VERSION = q(1.0001);
 
 use Fcntl qw( :DEFAULT :flock :seek );
 

diff --git a/lib/DBM/Deep/Hash.pm b/lib/DBM/Deep/Hash.pm
index e3de270..19035df 100644 (file)
--- a/lib/DBM/Deep/Hash.pm
+++ b/lib/DBM/Deep/Hash.pm
@@ -5,7 +5,7 @@ use 5.006_000;
 use strict;
 use warnings;
 
-our $VERSION = q(1.0000);
+our $VERSION = q(1.0001);
 
 use base 'DBM::Deep';
 

diff --git a/t/44_upgrade_db.t b/t/44_upgrade_db.t
index b48d1be..a737591 100644 (file)
--- a/t/44_upgrade_db.t
+++ b/t/44_upgrade_db.t
@@ -133,7 +133,7 @@ foreach my $input_filename (
 
 #XXX This needs to be made OS-portable
 sub run_prog {
-    open( my $fh, '-|', "@_ 2>&1" )
+    open( my $fh, '-|', "$^X @_ 2>&1" )
       or die "Cannot launch '@_' as a piped filehandle: $!\n";
     return join '', <$fh>;
 }

diff --git a/utils/upgrade_db.pl b/utils/upgrade_db.pl
index 4dfedf4..8fbf30c 100755 (executable)
--- a/utils/upgrade_db.pl
+++ b/utils/upgrade_db.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 
 use 5.6.0;