[libregexp-debugger-perl] 01/01: Imported Upstream version 0.001016

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to annotated tag upstream/0.001016
in repository libregexp-debugger-perl.

commit 81f59c5f2d919004295b89ce517e4dd83bcce2b6
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Tue Oct 22 06:18:38 2013 +0200

    Imported Upstream version 0.001016
---
 Changes                |    8 ++++++++
 META.yml               |    2 +-
 README                 |    2 +-
 lib/Regexp/Debugger.pm |   13 +++++++++----
 4 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/Changes b/Changes
index 2482409..cc815e1 100644
--- a/Changes
+++ b/Changes
@@ -153,3 +153,11 @@ Revision history for Regexp-Debugger
 0.001015  Fri Jul 26 07:20:09 2013
 
     - Improved specificity of 'd' and 'D' reporting
+
+
+0.001016  Tue Oct 22 10:26:33 2013
+
+    - Made error checking in rxrx more robust
+
+    - Made rxrx reinvoke the version of Perl it was itself invoked with,
+      regardless of $PATH idiosyncrasies (thanks, brian!)
diff --git a/META.yml b/META.yml
index b2769ee..c0cc5ca 100644
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Regexp-Debugger
-version:            0.001015
+version:            0.001016
 abstract:           Visually debug regexes in-place
 author:
     - Damian Conway <DCONWAY at CPAN.org>
diff --git a/README b/README
index fc21672..82d9030 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Regexp::Debugger version 0.001015
+Regexp::Debugger version 0.001016
 
 This module causes any regex in the same lexical scope to be visually
 (and interactively) debugged as it matches.
diff --git a/lib/Regexp/Debugger.pm b/lib/Regexp/Debugger.pm
index c6b4f9a..a17ec97 100644
--- a/lib/Regexp/Debugger.pm
+++ b/lib/Regexp/Debugger.pm
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 eval "use feature 'evalbytes'";         # Experimental fix for Perl 5.16
 
-our $VERSION = '0.001015';
+our $VERSION = '0.001016';
 
 # Handle Perl 5.18's new-found caution...
 no if $] >= 5.018, warnings => "experimental::smartmatch";
@@ -2866,7 +2866,7 @@ sub rxrx {
 
         # Otherwise, assume it's a perl source file and debug it...
         else {
-            exec 'perl', '-MRegexp::Debugger', @_
+            exec $^X, '-MRegexp::Debugger', @_
                 or die "Couldn't invoke perl: $!";
         }
     }
@@ -2917,6 +2917,7 @@ sub rxrx {
 
                 # Report any errors...
                 print "$@\n" if $@;
+                print "Invalid input\n" if !defined $regex;
 
                 # Remember it...
                 push @{$regex_history}, $input;
@@ -2928,6 +2929,7 @@ sub rxrx {
 
                 # Report any errors...
                 print "$@\n" if $@;
+                print "Invalid input\n" if !defined $string;
 
                 # Remember it...
                 push @{$str_history}, $input;
@@ -2937,6 +2939,7 @@ sub rxrx {
 
                 # Report any errors...
                 print "$@\n" if $@;
+                print "Invalid input\n" if !defined $string;
 
                 # Remember it...
                 push @{$str_history}, $input;
@@ -2980,7 +2983,9 @@ sub rxrx {
         }
 
         # Redisplay the new regex and/or string...
-        _display($string, $input_regex, $regex_flags);
+        if (defined $string && defined $input_regex) {
+            _display($string, $input_regex, $regex_flags);
+        }
     }
 }
 
@@ -3043,7 +3048,7 @@ Regexp::Debugger - Visually debug regexes in-place
 
 =head1 VERSION
 
-This document describes Regexp::Debugger version 0.001015
+This document describes Regexp::Debugger version 0.001016
 
 
 =head1 SYNOPSIS

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libregexp-debugger-perl.git