Changeset 20414 for gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

Timestamp:

2009-08-28T09:58:05+12:00 (15 years ago)

Author:

kjdon

Message:

check whether fedora_version is defined before using it, to avoid an undefined value warning

File:

• gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm (modified) (1 diff)

gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

@@ -89 +89 @@
     my $extra_schema = undef;
 
-    if ($ENV{'FEDORA_VERSION'} =~ m/^2/) { # checking if major version is 2
+    if (defined $ENV{'FEDORA_VERSION'} && $ENV{'FEDORA_VERSION'} =~ m/^2/) { # checking if major version is 2
         $extra_schema = "http://www.fedora.info/definitions/1/0/mets-fedora-ext.xsd";
     }