Changeset 10254 for trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

Timestamp:

2005-07-19T16:27:51+12:00 (19 years ago)

Author:

kjdon

Message:

added 'use strict' to all plugins, and made modifications (mostly adding 'my') to make them compile

File:

• trunk/gsdl/perllib/plugins/OggVorbisPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

@@ -33 +33 @@
 use Ogg::Vorbis::Header::PurePerl;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
@@ -103 +105 @@
     my $doc_obj = new doc ($filename, "indexed_doc");
     $doc_obj->set_OIDtype ("incremental");    # this is done to avoid hashing content of file
-
+    my $section = $doc_obj->get_top_section();
+    
     # replace spaces in filename with %20 in url for metadata entry
     my $url = $file;
@@ -153 +156 @@
 
     # include any metadata passed in from previous plugins
-    my $section = $doc_obj->get_top_section();
     $self->extra_metadata ($doc_obj, $section, $metadata);