1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/perl -I../lib
# Test loading the Perl modules we require
my $test =<<E_O_T;
use strict; # Standard safety checks.
use English; # Avoid $<, etc.
use Getopt::Long; # For our argument parsing.
use IO::Socket; # Socketing code.
use Env; # Only necessary to read $HOME.
use gnump3d::MD5; # For seeing if files change
use gnump3d::config; # My configuration file reading module.
use gnump3d::files; # My routines for working with files and dirs.
use gnump3d::oggtagreader; # Simplistic OGG Vorbis tag parsing.
use gnump3d::mp3info; # Local copy of MP3::Info.
use gnump3d::IP; # Local copy of NetAddr::IP.
use gnump3d::lang::en; # English language module.
use gnump3d::WMA; # WMA tag file support
E_O_T
eval( $test );
if ( $@ )
{
# print $@;
exit( 1 );
}
exit 0;
|
