** Using WeBWorK **

Changes in PERL -> changes in Sketch.pl and Sketch3D.pl

amended files are attached

Addresses errors like:

Experimental shift on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 144, at EOF
Experimental shift on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 145, at EOF
Experimental unshift on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 638, at EOF
Experimental unshift on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 639, at EOF
Experimental shift on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 644, at EOF
Experimental shift on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 645, at EOF
Experimental push on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 1210, at EOF
Experimental pop on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 1214, at EOF
Experimental push on scalar is now forbidden at [TMPL]/macros/Sketch.pl line 1215, at EOF

Changed code like:


${$T->{Line_width}} = shift ${$T->{drawing_styles}}{L_w};
${$T->{line_width}} =shift ${$T->{drawing_styles}}{l_w};
${$T->{Line_type}} = shift ${$T->{drawing_styles}}{L_t};
${$T->{line_type}} =shift ${$T->{drawing_styles}}{l_t};

to:
${$T->{Line_width}} = shift @{$T->{drawing_styles}{L_w}};
${$T->{line_width}} =shift @{$T->{drawing_styles}{l_w}};
${$T->{Line_type}} = shift @{$T->{drawing_styles}{L_t}};