Commit cfe47161 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Turn off debugging, and make sure that the debugging printf does not

try to print an undef value.
parent f7191ca4
...@@ -20,7 +20,7 @@ sub usage() ...@@ -20,7 +20,7 @@ sub usage()
exit(-1); exit(-1);
} }
my $optlist = "dm:"; my $optlist = "dm:";
my $debug = 1; my $debug = 0;
my $resend; my $resend;
# #
...@@ -203,7 +203,9 @@ foreach my $key (keys(%{ $xmlparse->{'attribute'} })) { ...@@ -203,7 +203,9 @@ foreach my $key (keys(%{ $xmlparse->{'attribute'} })) {
my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'}; my $value = $xmlparse->{'attribute'}->{"$key"}->{'value'};
if ($debug) { if ($debug) {
print STDERR "Project attribute: '$key' -> '$value'\n"; my $prval = (defined($value) ? $value : "NULL");
print STDERR "Project attribute: '$key' -> '$prval'\n";
} }
my $dbslot; my $dbslot;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment