nixpkgs/pkgs/tools/graphics/bins/bins_edit-isa.patch

21 lines
657 B
Diff
Raw Normal View History

2016-05-07 02:38:39 +00:00
--- a/bins_edit 2005-08-25 14:34:39.000000000 -0400
+++ b/bins_edit 2016-05-18 20:25:40.913460314 -0400
@@ -26,7 +26,7 @@
use Getopt::Long;
use IO::File;
-use UNIVERSAL qw(isa);
+use Scalar::Util 'reftype';
# XML parsing & writing
use XML::Grove;
@@ -198,7 +198,7 @@
my $fieldValue;
foreach my $element
(@{$document->at_path('/'.$fileType.'/description')->{Contents}}) {
- if (isa($element, 'XML::Grove::Element') && $element->{Name} eq "field") {
+ if (reftype($element) eq 'XML::Grove::Element' && $element->{Name} eq "field") {
$fieldName = $element->{Attributes}{'name'};
$fieldValue = "";
if ($fieldName eq $field) {