29 Subroutine %s redefined
31 Invalid conversion in %s:
33 Undefined value assigned to typeglob
39 use warning 'uninitialized' ;
42 Use of uninitialized value at - line 4.
46 sub TIESCALAR { my $x ; bless \$x}
47 sub FETCH { return undef }
48 sub STORE { return 1 }
52 use warning 'uninitialized' ;
55 Use of uninitialized value at - line 10.
59 use warning 'uninitialized' ;
62 Use of uninitialized value at - line 4.
66 sub TIESCALAR { my $x ; bless \$x}
67 sub FETCH { return undef }
68 sub STORE { return 1 }
71 use warning 'uninitialized' ;
75 Use of uninitialized value at - line 10.
78 use warning 'uninitialized' ;
82 Use of uninitialized value at - line 4.
85 use warning 'uninitialized' ;
88 Use of uninitialized value at - line 3.
91 use warning 'uninitialized' ;
94 Use of uninitialized value at - line 3.
98 sub TIESCALAR { my $x ; bless \$x}
99 sub FETCH { return undef }
100 sub STORE { return 1 }
103 use warning 'uninitialized' ;
106 Use of uninitialized value at - line 9.
109 use warning 'uninitialized' ;
112 Use of uninitialized value at - line 3.
115 use warning 'uninitialized' ;
116 $x = chop undef ; # g
118 Modification of a read-only value attempted at - line 3.
121 use warning 'uninitialized' ;
124 Use of uninitialized value at - line 3.
128 sub TIESCALAR { my $x ; bless \$x}
129 sub FETCH { return undef }
130 sub STORE { return 1 }
133 use warning 'uninitialized' ;
137 Use of uninitialized value at - line 10.
140 use warning 'numeric' ;
141 sub TIESCALAR{bless[]} ;
146 Argument "def" isn't numeric in add at - line 6.
149 use warning 'numeric' ;
152 Argument "def" isn't numeric in add at - line 3.
155 use warning 'numeric' ;
159 Argument "def" isn't numeric in add at - line 4.
162 use warning 'numeric' ; use integer ;
166 Argument "def" isn't numeric in i_add at - line 4.
169 use warning 'numeric' ;
172 Argument "def" isn't numeric in bit_and at - line 3.
175 use warning 'redefine' ;
180 Subroutine fred redefined at - line 5.
183 use warning 'printf' ;
184 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
186 my $a = sprintf "%q" ;
190 $a = sprintf "%\x02" ;
192 Invalid conversion in sprintf: "%q" at - line 5.
193 Invalid conversion in sprintf: end of string at - line 7.
194 Invalid conversion in sprintf: "%\002" at - line 9.
195 Invalid conversion in printf: "%q" at - line 4.
196 Invalid conversion in printf: end of string at - line 6.
197 Invalid conversion in printf: "%\002" at - line 8.
200 use warning 'unsafe' ;
203 Undefined value assigned to typeglob at - line 3.