2009-08-24T21:14:55 LanX-

2009-08-24T11:38:53 freddy

Hi!
Wenn ich nun die sub in eine externe Datei auslagere und diese mit require einbinde, erhalte ich

Quote

Use of uninitialized value in print

nicht bei mir, funktioniert alles!
poste mal deine beiden Dateien zum nachvollziehen.
nachtrag: siehe msg #124722

1
2
3
4
5
6
7
8

#!/usr/bin/perl -w
use strict;
use warnings;
no strict 'refs';
require 'testvarsub.pl';

my $test = 'hallo';
testsub();

1
2
3
4

sub testsub {
  print $test;
}
return 1;