Permalink
Browse files

Found a more elegant way to deal with our 'isa' problem

  • Loading branch information...
bingos committed May 18, 2010
1 parent 225c1dd commit 8631ee6c74fc8b38f770621bc834619ba9caf975
Showing with 13 additions and 2 deletions.
  1. +11 −0 Changes
  2. +2 −2 lib/Devel/PatchPerl.pm
View
11 Changes
@@ -1,3 +1,14 @@
+==============================
+2010-05-18 09:10:40 +0100 0.06
+==============================
+
+ commit 225c1ddde7fe4bdf568fba7784da4e4599444cf5
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date: Tue May 18 09:10:40 2010 +0100
+
+ Fixed a few issues, tested patching against perl-5.6.1 source tree
+ and it works now.
+
==============================
2010-05-18 00:33:32 +0100 0.04
==============================
View
@@ -8,7 +8,7 @@ use IO::File;
use IPC::Cmd qw[can_run run];
use vars qw[$VERSION @ISA @EXPORT_OK];
-$VERSION = '0.06';
+$VERSION = '0.08';
@ISA = qw(Exporter);
@EXPORT_OK = qw(patch_source);
@@ -104,7 +104,7 @@ my @patch = (
sub patch_source {
my $vers = shift;
- $vers = shift if $vers !~ /^[\d.]+$/ and $vers->isa(__PACKAGE__);
+ $vers = shift if eval { $vers->isa(__PACKAGE__) };
my $source = shift || '.';
$source = File::Spec->rel2abs($source);
warn "No patch utility found\n" unless $patch_exe;

0 comments on commit 8631ee6

Please sign in to comment.