Allow more-specific BW opts to be passed. Package administrivia.

ChangeLog

@@ -1,3 +1,9 @@
+2012-12-18  Rocky Bernstein <rocky@cpan.org>
+
+	* ChangeLog, Changes, lib/Devel/Trepan.pm,
+	lib/Devel/Trepan/Version.pm, t/Helper.pm: Get ready for 0.47
+	release.
+
 2012-12-15  Rocky Bernstein <rocky@cpan.org>
 
 	* lib/Devel/Trepan/Core.pm, lib/Devel/Trepan/Interface/Script.pm,

META.json

@@ -59,7 +59,7 @@
       },
       "Devel::Trepan" : {
          "file" : "lib/Devel/Trepan.pm",
-         "version" : "0.45_01"
+         "version" : "0.47"
       },
       "Devel::Trepan::BrkptMgr" : {
          "file" : "lib/Devel/Trepan/BrkptMgr.pm",
@@ -663,7 +663,7 @@
       },
       "Devel::Trepan::Version" : {
          "file" : "lib/Devel/Trepan/Version.pm",
-         "version" : "0.46_01"
+         "version" : "0.47"
       },
       "Devel::Trepan::WatchMgr" : {
          "file" : "lib/Devel/Trepan/WatchMgr.pm",
@@ -678,7 +678,7 @@
          "version" : 0
       }
    },
-   "release_status" : "testing",
+   "release_status" : "stable",
    "resources" : {
       "bugtracker" : {
          "web" : "https://github.com/rocky/Perl-Devel-Trepan/issues"
@@ -690,5 +690,5 @@
          "url" : "http://github.com/rocky/Perl-Devel-Trepan"
       }
    },
-   "version" : "0.46_01"
+   "version" : "0.47"
 }

META.yml

@@ -24,7 +24,7 @@ provides:
     version: 0
   Devel::Trepan:
     file: lib/Devel/Trepan.pm
-    version: 0.45_01
+    version: 0.47
   Devel::Trepan::BrkptMgr:
     file: lib/Devel/Trepan/BrkptMgr.pm
     version: 0
@@ -477,7 +477,7 @@ provides:
     version: 0
   Devel::Trepan::Version:
     file: lib/Devel/Trepan/Version.pm
-    version: 0.46_01
+    version: 0.47
   Devel::Trepan::WatchMgr:
     file: lib/Devel/Trepan/WatchMgr.pm
     version: 0
@@ -511,4 +511,4 @@ resources:
   bugtracker: https://github.com/rocky/Perl-Devel-Trepan/issues
   license: http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt
   repository: http://github.com/rocky/Perl-Devel-Trepan
-version: 0.46_01
+version: 0.47

lib/Devel/Trepan.pm

@@ -18,7 +18,7 @@ use Exporter;
 
 use constant PROGRAM => 'trepan.pl';
 use version; 
-$VERSION='0.47'; # To fool CPAN indexer. Is <= real version
+$VERSION='0.47_01'; # To fool CPAN indexer. Is <= real version
 $VERSION = $Devel::Trepan::Version::VERSION;
 $PROGRAM = PROGRAM;
 

lib/Devel/Trepan/Core.pm

@@ -125,7 +125,8 @@ sub awaken($;$) {
     my $proc;
     my $batch_filename = $opts->{testing};
     if ($opts->{bw} && $HAVE_BULLWINKLE) {
-	my $bw_opts = undef;
+	my $bw_opts = $opts->{bw};
+	$bw_opts = {} unless ref($bw_opts) eq 'HASH';
 	if (defined $batch_filename) {
 	    my $fh = IO::File->new($batch_filename, 'r');
 	    $bw_opts = {input => $fh,