birthing MARCXMLSampler

[migration-tools.git] / Equinox-Migration / lib / Equinox / Migration / SimpleTagList.pm

diff --git a/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm b/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
index 596ec9b..0b82c0a 100644 (file)
--- a/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
+++ b/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
@@ -62,7 +62,7 @@ sub new {
         } else {
             die "Can't open tags file: $!\n";
         }
-    } elsif ($args{str}) {
+    }elsif ($args{str}) {
         $self->generate($args{str},'scalar');
     }
 
@@ -109,7 +109,7 @@ sub generate {
     my ($self, $file, $scalar) = @_;
 
     if ($scalar) {
-        open TAGFILE, '<:scalar', $file;
+        open TAGFILE, '<', \$file;
     } else {
         open TAGFILE, '<', $file;
     }