diff options
| author | Phil Williams <philip.williams@mac.com> | 2017-03-07 18:54:08 +0300 |
|---|---|---|
| committer | Phil Williams <philip.williams@mac.com> | 2017-03-07 18:54:08 +0300 |
| commit | a5c99ca660610f25a3bb9df2d4b91cd48dbc4ea7 (patch) | |
| tree | 9577df694fa98c1d30938b625d5048c61b21c5fd /scripts/ems/support | |
| parent | e983e33180b916816c5e24f635d2f69c6bcfc57f (diff) | |
reference-from-sgm.perl: fix Perl error
Diffstat (limited to 'scripts/ems/support')
| -rwxr-xr-x | scripts/ems/support/reference-from-sgm.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/ems/support/reference-from-sgm.perl b/scripts/ems/support/reference-from-sgm.perl index b8e1d108d..b892fcda3 100755 --- a/scripts/ems/support/reference-from-sgm.perl +++ b/scripts/ems/support/reference-from-sgm.perl @@ -60,7 +60,7 @@ foreach my $system (keys %DOC) { } open(TXT,">$outfile") || die($outfile); foreach my $doc (@ORDER) { - die("can't find '$doc' for ref '$system'") unless defined @{$DOC{$system}{$doc}}; + die("can't find '$doc' for ref '$system'") unless defined $DOC{$system}{$doc}; foreach my $line (@{$DOC{$system}{$doc}}) { print TXT $line."\n"; } |