strict.al

来自「美国CMU大学开发的操作系统健壮性评测软件」· AL 代码 · 共 13 行

# NOTE: Derived from ./blib/lib/URI/URL.pm.  Changes made here will be lost.
package URI::URL;

sub strict
{
    return $Strict_URL unless @_;
    my $old = $Strict_URL;
    $Strict_URL = $_[0];
    $old;
}

1;