view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
# if the $file is an absolute path, then just return the file
# if the $file is a relative path, concat it with the passed in directory
sub AbsPath {
my($file, $dir) = @_;
# we test for first unix style and then win32 style path conventions
if($file =~ m|^/| or $file =~ m|^.\:|) {
$file;
} else {
# we only can absolute the path if the directory path is absolute
if($dir =~ m|^/| or $dir =~ m|^.\:|) {
# LastModified calculations
if(defined $last_modified) {
if($last_modified !~ /^\d+$/) {
my $old_last_modified = $last_modified;
$last_modified = &Apache::ASP::Date::str2time($last_modified);
$self->{dbg} && $self->Debug("converting string date for LastModified $old_last_modified to unix time $last_modified");
}
if($last_modified < 0) {
$self->{dbg} && $self->Debug("negative LastModified $last_modified ignored");
$last_modified = undef;
}
the source distribution.
=head1 INSTALL
The installation process for Apache::ASP is geared towards those
with experience with Perl, Apache, and unix systems. For those
without this experience, please understand that the learning curve
can be significant. But what you have at the end will be a web site
running on superior open source software.
If installing onto a Windows operating system, please see the section
=item InodeNames
Default 0. Set to 1 to uses a stat() call on scripts and includes to
derive subroutine namespace based on device and inode numbers. In case of
multiple symbolic links pointing to the same script this will result
in the script being compiled only once. Use only on unix flavours
which support the stat() call that know about device and inode
numbers.
PerlSetVar InodeNames 1
"Tuesday, 08-Feb-94 14:15:29 GMT" -- old rfc850 HTTP format
"08-Feb-94" -- old rfc850 HTTP format
"09 Feb 1994" -- proposed new HTTP format
"Feb 3 1994" -- Unix 'ls -l' format
"Feb 3 17:03" -- Unix 'ls -l' format
=item $Response->{FormFill} = 0|1
If true, HTML forms generated by the script output will
be auto filled with data from $Request->Form. This feature
=item Standalone CGI Mode, without mod_perl
As of version 2.19, Apache::ASP scripts may be run as standalone
CGI scripts without mod_perl being loaded into Apache. Work
to date has only been done with mod_cgi scripts under Apache on a
Unix platform, and it is unlikely to work under other web servers
or Win32 operating systems without further development.
To run the ./site/eg scripts as CGI scripts, you copy the
./site directory to some location accessible by your web
server, in this example its /usr/local/apache/htdocs/aspcgi,
:) Lincoln Stein, for his blessed CGI.pm module
:) Michael Rothwell, for his love of Session hacking
:) Francesco Pasqualini, for bringing ASP to CGI
:) Bryan Murphy, for being a PerlScript wiz
:) Lupe Christoph, for his immaculate and stubborn testing skills
:) Ryan Whelan, for boldly testing on Unix in the early infancy of ASP
=head1 SUPPORT
=head2 COMMUNITY
+PerlSetVar InodeNames 1 config which will compile scripts hashed by
their device & inode identifiers, from a stat($file)[0,1] call.
This allows for script directories, the Global directory,
and IncludesDir directories to be symlinked to without
recompiling identical scripts. Likely only works on Unix
systems. Thanks to Ime Smits for this one.
+Streamlined code internally so that includes & scripts were
compiled by same code. This is a baby step toward fusing
include & script code compilation models, leading to being
- Domain cookie key now works
: Expire times now taken from time(), and relative time in sec
: Request->Cookies() reading more flexible, with wantarray()
on hash cookie values, %hash = $Request->Cookie('test');
-make test module naming correction, was t.pm, now T.pm for Unix
+POD / README cleanup, formatting and HTML friendly.
=item $VERSION = 0.03; $DATE="09/14/1998";
view all matches for this distribution
view release on metacpan or search on metacpan
t/httpd.conf-dist view on Meta::CPAN
# can find its configuration files.
#
#
# ServerType is either inetd, or standalone. Inetd mode is only supported on
# Unix platforms.
#
ServerType standalone
#
# ServerRoot: The top of the directory tree under which the server's
t/httpd.conf-dist view on Meta::CPAN
# In the standard configuration, the server will process this file,
# srm.conf, and access.conf in that order. The latter two files are
# now distributed empty, as it is recommended that all directives
# be kept in a single file for simplicity. The commented-out values
# below are the built-in defaults. You can have the server ignore
# these files altogether by using "/dev/null" (for Unix) or
# "nul" (for Win32) for the arguments to the directives.
#
#ResourceConfig conf/srm.conf
#AccessConfig conf/access.conf
view all matches for this distribution
view release on metacpan or search on metacpan
Mercury/Controller.pm view on Meta::CPAN
Set or get the page body content.
=item * get_time()
Return the current unixtime, as returned by the Perl time() function.
This accessor is used for time synchronization throughout the application,
so your controller can keep a single time for each http request.
=item * sitemark([$mark])
view all matches for this distribution
view release on metacpan or search on metacpan
description => "Use YAML.pm to write META.yml files",
requires => { YAML => ' >= 0.35, != 0.49_01 ' },
},
manpage_support =>
{
description => "Create Unix man pages",
requires => { 'Pod::Man' => 0 },
},
HTML_support =>
{
description => "Create HTML documentation",
view all matches for this distribution
view release on metacpan or search on metacpan
##
# This takes a time in seconds (since 1970 ala unix 'time()' cmd), and an
# optional string containing comma seperated month names. It returns
# a more useful indication of time and date. If no month names are specified,
# it defaults to english three letter abbreviations.
##
sub getDatestring{
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
# TODO: handle line-endings better. Perhaps we should just look for an
# identifying part of each page rather than trying to do an exact match
# of the entire page. The problem is on win32, some responses come back with
# dos-style line endings (not all of them though). Not sure what MacOS does
# and I don't have a Mac to test with. Currently, we just strip CR's out of
# responses to make the tests pass on Unix and Win32.
use strict;
use warnings FATAL => 'all';
use lib 'lib';
use utf8;
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
return $self;
}
sub version_from {
my ($self, $version_from) = @_;
require ExtUtils::MM_Unix;
$self->version(ExtUtils::MM_Unix->parse_version($version_from));
}
sub abstract_from {
my ($self, $abstract_from) = @_;
require ExtUtils::MM_Unix;
$self->abstract(
bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix')
->parse_abstract($abstract_from)
);
}
1;
view all matches for this distribution
view release on metacpan or search on metacpan
AuthenCache.pm view on Meta::CPAN
=over 4
=item B<AuthenCache_Encrypted>
If this directive is set to 'Off', passwords are not encrypted.
Default is 'On', ie passwords use standard Unix crypt.
=back
=over 4
view all matches for this distribution
view release on metacpan or search on metacpan
AuthenN2.pm view on Meta::CPAN
Apache::AuthenN2 - Authenticate into the NT and NIS+ domains
=head1 SYNOPSIS
Allow windows and unix users to use their familiar credentials to
gain authenticated access to restricted applications and files
offered via apache.
#httpd.conf
<Files *challenge*>
AuthenN2.pm view on Meta::CPAN
specified a domain, e.g., sales\john, then just try against that
domain; if no domain was specified by the user, try all of the
default domains listed in the above config. Failing nt
authentication, try nis+. This order (nt then nis+) is simply to
boost average apparent performance because the nt population is much
larger than the unix population at the author's company. If your
population has an opposite demographic, feel free to reverse the
order of checking.
Note that this scheme is quite permissive. Valid nt credentials
against any of the controllers or domains, or valid nis+ credentials
view all matches for this distribution
view release on metacpan or search on metacpan
smb/smbval/.svn/text-base/byteorder.h.svn-base view on Meta::CPAN
/*
Unix SMB/Netbios implementation.
Version 1.9.
SMB Byte handling
Copyright (C) Andrew Tridgell 1992-1995
This program is free software; you can redistribute it and/or modify
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/AuthenURL/Cache.pm view on Meta::CPAN
expired. Default is an indefinite time limit.
=item B<AuthenCache_Encrypted>
If this directive is set to 'Off', passwords are not encrypted.
Default is 'On', ie passwords use standard Unix crypt.
=back
=item B<AuthenCache_NoPasswd>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/AuthzUnix.pm view on Meta::CPAN
package Apache::AuthzUnix;
our $VERSION = '0.02';
our $DEBUG = 0;
require File::stat;
use File::Basename qw(dirname);
use User::pwent;
lib/Apache/AuthzUnix.pm view on Meta::CPAN
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::AuthzUnix - Apache/Apache2 authorization handler for Unix permissions
=head1 SYNOPSIS
PerlModule Apache::AuthzUnix;
<Location ...>
AuthName auth
AuthType Basic
AuthBasicProvider ldap
PerlAuthzHandler Apache::AuthzUnix::authz
# Don't need a "requires" line
</Location>
=head1 DESCRIPTION
This module was written to provide authorization for DAV access to home
directories, but probably has other uses in the C<UserDir> space.
Assuming that Apache has authenticated a user, this module helps to
determine whether or not that user can read (or write) a file on the
filesystem. It applies standard Unix user and group tests on the file's
permissions to determine read access and, in the case of C<PUT> and
C<DELETE> methods, write access. If the file does not exist, then the
containing directory is tested, as one would expect.
This module is designed work on both mod_perl versions 1 and 2.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AxKit/XSP/Session.pm view on Meta::CPAN
=head1 EXAMPLE
<session:invalidate/>
SessionID: <xsp:expr><session:get-id/></xsp:expr>
Creation Time: <xsp:expr><session:get-creation-time/></xsp:expr>
(Unix Epoch) <xsp:expr><session:get-creation-time as="string"/></xsp:expr>
<session:set-attribute name="baz">
boo
</session:set-attribute>
<session:set-attribute>
<session:name>foo</session:name>
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
if (! -d $apache_incdir) {
die 'APACHE_SRCDIR is not a directory';
}
$apache_osdir = $apache_incdir . '/os/unix';
$apache_incdir .= '/include';
if (! -f "${apache_incdir}/httpd.h") {
die "${apache_incdir}/httpd.h not found";
}
if (! -f "${apache_incdir}/http_log.h") {
Makefile.PL view on Meta::CPAN
@ARGV = grep !'APACHE_SRCDIR', @ARGV;
print <<EOF;
** NOTICE **
The byPerl shared object file (byPerl.so on most unix platforms) is not
built or installed by default. See the file README.byPerl for details.
** NOTICE **
EOF
view all matches for this distribution
view release on metacpan or search on metacpan
my $entry;
{ local $/=undef;
$entry = <$fh>;
};
# get the unixtime of the entry too (%s is the Date::Manip way
# of saying "seconds since the epoch")
my $unixtime = Date::Manip::UnixDate($date ,'%s');
# and fix up the date
$date = POSIX::strftime( '%a %d %b %y %H:%M', localtime $unixtime );
# see if we can get any comments
my $comments_ref = [];
if (-d "$filename-comment") {
my @comments = Apache::Blog::Entry->get_all( "$filename-comment" );
# store those results (wonder if there's a better way to count
# words than scalar( @{[split /\s+/, $entry]} )
my %self = ( date => $date,
unixtime => $unixtime,
entry => $entry,
short_name => $short_name,
filepath => $filename,
filename => basename( $filename ),
wc => scalar( @{[split /\s+/, $entry]} ),
return bless(\%self, $class);
} # end new
sub date { return shift->{date} };
sub unixtime { return shift->{unixtime} };
sub short_name { return shift->{short_name} };
sub filename { return shift->{filename} };
sub filepath { return shift->{filepath} };
sub wc { return shift->{wc} };
sub comments { return @{ shift->{comments} } };
grep !/\.html$/ && !/^\./ && !(-d $dir."/".$_), readdir DIR;
closedir DIR;
# now sort those
my @out_entries;
foreach my $entry (sort { $b->unixtime <=> $a->unixtime } @entries) {
push @out_entries, $entry;
} # end foreach
return @out_entries;
} # end get_all
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
CVS/Revision.pm view on Meta::CPAN
return $self->{symbol};
}
=item $revision->date()
Returns the date of the revision in Unix epoch time.
=cut
sub date {
my $self = shift;
view all matches for this distribution
view release on metacpan or search on metacpan
Compress.pm view on Meta::CPAN
return $ua =~ m{
^Mozilla/ # They all start with Mozilla...
\d+\.\d+ # Version string
[\s\[\]\w\-]+ # Language
(?:
\(X11 # Any unix browser should work
|
Macint.+PPC,\sNav # Does this match anything??
)
}x;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Config/Preproc/ifmodule.pm view on Meta::CPAN
'mod_ssl.c' => 'ssl_module',
'mod_status.c' => 'status_module',
'mod_substitute.c' => 'substitute_module',
'mod_suexec.c' => 'suexec_module',
'mod_unique_id.c' => 'unique_id_module',
'mod_unixd.c' => 'unixd_module',
'mod_userdir.c' => 'userdir_module',
'mod_usertrack.c' => 'usertrack_module',
'mod_version.c' => 'version_module',
'mod_vhost_alias.c' => 'vhost_alias_module',
'mod_watchdog.c' => 'watchdog_module',
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/ConfigParser.pm view on Meta::CPAN
return;
}
# Change the mode to binary to mode to handle the line continuation
# match [^\\]\\[\r]\n. Since binary files may be copied from
# Windows to Unix, look for this exact match instead of relying upon
# the operating system to convert \r\n to \n.
binmode($fd);
# This holds the contents of any previous lines that are continued
# using \ at the end of the line. Also keep track of the line
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
die "No mod_dav found!" unless $davdir;
%MMARGS = (
'INC' => "-I\"$davdir\" -I\"$apdir/include\" -I\"$apdir/os/unix\" -I\"$dir/xs\" -I\"$dir/xsinclude\"",
'OPTIMIZE' => '-ggdb',
) ;
open FH, ">xs/mmargs.pl" or die "Cannot open xs/mmargs.pl ($!)" ;
view all matches for this distribution
view release on metacpan or search on metacpan
http://perl.apache.org/
DBI by Tim Bunce dbi-users-subscribe@perl.org
http://dbi.perl.org/
Apache by Apache Group news:comp.infosystems.www.servers.unix
users-subscribe@httpd.apache.org
http://httpd.apache.org/
---------------------------------------------------------------------------
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Defaults.pm view on Meta::CPAN
'mod_ssl.c' => 'ssl_module',
'mod_status.c' => 'status_module',
'mod_substitute.c' => 'substitute_module',
'mod_suexec.c' => 'suexec_module',
'mod_unique_id.c' => 'unique_id_module',
'mod_unixd.c' => 'unixd_module',
'mod_userdir.c' => 'userdir_module',
'mod_usertrack.c' => 'usertrack_module',
'mod_version.c' => 'version_module',
'mod_vhost_alias.c' => 'vhost_alias_module',
'mod_watchdog.c' => 'watchdog_module',
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Dir.pm view on Meta::CPAN
$Apache::Dir::VERSION = '0.07';
# Define constants for compatibility with mod_perl 1 and mod_perl 2.
use constant DECLINED => -1;
use constant DIR_MAGIC_TYPE => 'httpd/unix-directory';
use constant HTTP_MOVED_PERMANENTLY => 301;
sub handler {
my $r = shift;
return DECLINED unless $r->content_type eq DIR_MAGIC_TYPE
view all matches for this distribution
view release on metacpan or search on metacpan
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 17:36:57 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 17:41:57 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 17:49:06 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 17:54:06 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Sat, 01 Jun 2002 16:59:47 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Saturday, 01-June-2002 17:04:47 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Sat, 01 Jun 2002 17:09:13 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Saturday, 01-June-2002 17:14:14 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 23:18:17 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 23:23:17 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 23:37:45 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 23:42:45 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
== Body was 0 bytes ==
## Sockets 6 of 4,5,6 need checking ##
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Thu, 21 Feb 2002 20:01:47 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
C05 <-- S06 Content-Encoding: gzip
C05 <-- S06 == Incoming Body was 6034 bytes ==
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Sun, 11 Aug 2002 21:28:43 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Expires: Sunday, 11-August-2002 21:33:43 GMT
C05 <-- S06 Vary: Accept-Encoding,*
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
view all matches for this distribution
view release on metacpan or search on metacpan
sub ACTION_test {
my $self = shift;
$self->depends_on('build');
# Could be File::Spec-ified, but this is mostly a Unix module
$self->add_to_cleanup(qw(t/httpd t/httpd.conf t/error_log));
$self->do_system('t/httpd', '-f', $self->base_dir . "/t/httpd.conf");
$ENV{PORT} = %s; # Used by the test scripts
eval { $self->SUPER::ACTION_test };
view all matches for this distribution