Guest sman

Code (perl): (dl )

sub Machwas { eval { do "anderes.pl"; }; return 1; }

dazu kann ich nur generell sagen, dass man sowas heutzutage nicht macht und nicht machen muss.
IMHO viel sauberer wäre es, wenn du hier stattdessen ein modul mit eigenem package laden würdest und daraus eine subroutine aufrufen würdest. etwa:

Quote

Dieses andere Script ist völlig simpel, keine objekte oder module, sondern hat lediglich normale subs, z.B. auch eine

Code (perl): (dl )

sub HR { print "-" x ( $_[0] ? $_[0] : 79 ) ."\n"; }

genau dadurch überschreibt es aber die aktuelle sub HR, da es in dem kontext des packages ausgeführt wird.

Quote

Vielleicht kann man auch irgendwie do $file daran hindern subs zu überschreiben? Nach perldoc sollte das ja eigentlich sowieso nicht gehen...

wo genau liest du in perldoc, dass man keine subs überschreiben kann?
das kann man, es sollte nur eine warnung erzeugen. strict und warnings benutzt du, oder? wenn nicht, unbedingt use strict lesen.
die lösung ist nicht, die sub nicht überschreiben zu lassen, sondern die sub ganz einfach sauber ihrem eigenen package zuzuordnen. dann hat man das problem von vorneherein nicht.