Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -T
use strict;
...
my $aa = Archive::Any->new($0);

print "OK\n";
  2. or download this
    Insecure dependency in eval while running with -T switch at .../perl5/
+Archive/Any.pm line 153.
  3. or download this
    sub new {
    my ( $class, $file, $type ) = @_;
...
            $available{$type} = $plugin;
        }
    }