3
0
Fork 0
forked from mirrors/nixpkgs
nixpkgs/pkgs/tools/graphics/bins/bins_edit-isa.patch
2016-05-29 21:48:28 +02:00

21 lines
657 B
Diff

--- 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) {