################################################################
# undo_1 Funktion fuer die Variable an Instanz 1.0
# Rueckgabe : undef bei Erfolg, sonst Fehlercode
################################################################
sub undo_1
{
$A1_Temp = $A1;
return(undef);
}
################################################################
# undo_2 Funktion fuer die Variable an Instanz 2.0
# Rueckgabe : undef bei Erfolg, sonst Fehlercode
################################################################
sub undo_2
{
$A2_Temp = $A2;
return(undef);
}
1;# PERL - spez. Eine Dat., die mit require eingeb. wird muss mit True enden.