Problem :: Fehlermeldung: Undefined subroutine - #9876 (Perl/CGI)

stoney_

2007-04-03 10:46

User since
2007-04-03
1 Artikel
BenutzerIn
[default_avatar]

Habe folgendes Problem :

Wenn ich den Script starte kommt immer diese Fehlermeldung "Fehlermeldung:
Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::X_3a_Programme_xampp_htdocs_VPN_test_2ep l::Version called at X:/Programme/xampp/htdocs/VPN/test.pl line 6. ,"

Sieht wer den Fehler ?

Hauptscript: test.pl
Verzeichnis: X:\Programme\xampp\htdocs\VPN

Code: (dl )

#!/usr/bin/perl -w
use VPN::Test;
my $text = Version();
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Testausgabe</title>\n";
print "</head><body>\n";
print "$text \n";
print "</body></html>\n";

Modul: Test.pm
Verzeichnis: X:\Programme\xampp\perl\lib\VPN

Code: (dl )

package VPN::Test; 
use strict;
use vars
qw(
    $ausgabe
);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK =
qw(
    Version
);
%EXPORT_TAGS = (all => [@EXPORT_OK] );
my $ausgabe = 1234;
sub Version()
{
return $ausgabe;
}
1;