История изменений

#!/usr/bin/perl
# your code goes here

$\ = "\n";

sub fnc {
	print "fnc";
}

&fnc();

*main::fnc = sub {
	print "modified";
};

&fnc();

Перл-хакинг (и бэд-стайл), не благодари.

P.S. Не будет работать в мультипотоках, а также при всяких таймерах, событийках и т.п., т.к. постоянно надо будет делать переопределение функции.

P.S.II. Используй анонимные функции $cb = sub {} они дешевле, чем изврат, что выше я написал.

#!/usr/bin/perl
# your code goes here

$\ = "\n";

sub fnc {
	print "fnc";
}

&fnc();

*main::fnc = sub {
	print "modified";
};

&fnc();

Перл-хакинг (и бэд-стайл), не благодари.

P.S. Не будет работать в мультипотоках, а также при всяких таймерах, событийках и т.п., т.к. постоянно надо будет делать переопределение функции.

#!/usr/bin/perl
# your code goes here

$\ = "\n";

sub fnc {
	print "fnc";
}

&fnc();

*main::fnc = sub {
	print "modified";
};

&fnc();

Перл-хакинг (и бэд-стайл), не благодари.

Welcome to Perl's World!

#!/usr/bin/perl
# your code goes here

$\ = "\n";

sub fnc {
	print "fnc";
}

&fnc();

*main::fnc = sub {
	print "modified";
};

&fnc();

Перл-хакинг, не благодари.