Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (16 sloc) 0.214 kB
#!/usr/bin/perl
sub s1 {
my $t = shift;
if ($t > 5) {
print 5;
} else {
print $t;
}
}
my $c = *main::s1{CODE};
*main::s1 = sub {
print "extra";
&$c(@_);
};
s1(1);
s1(7);
Jump to Line
Something went wrong with that request. Please try again.