21 lines
657 B
Diff
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) {
|