Problem mit Modul Image::Size

[sunawa]

vielleicht postest du doch mal den Code Schnipsel, in dem du Image::Size aufrufst. Vielleicht ist es einfach ein ganz harmloser Fehler

Nun denn, nachfolgend der Code:

maximale Bildgrösse:

$max_width = 200;

upload des Bildes, Funktion resd_data siehe unten, funktioniert aber auch:

$img_name = &read_data;

Vergleich der Bildgrösse mit der Maximalgrösse:

if ($img_name ne "0") {
  use Image::Size;
  # Get the size of message_img
  ($x_wert, $y_wert, $id_wert) = imgsize($img_name);
  if ($x_wert < $max_width) {$bild_width = $x_wert;}
  else {$bild_width = $max_width;}
 }

sub read_data {
  $url = $message_img;
  $sec_timeout = 60;
        use LWP::UserAgent;
        $ua = LWP::UserAgent->new();
   $ua->timeout($sec_timeout);
   $request = HTTP::Request->new('GET',$url);
     $img = "Image/$suchname";
    $ort = "$cgidir/$img";
    $response = $ua->request($request, $ort);
    if ($response->is_success) {
     chmod(0777,$ort);
     return $img;
    }
    else {
     print "Error: " . $response->code . " " . $response->message . " " . $url;
     return "0";
    }
 }

Schätze, da gibt es nichts auszusetzen.
Image::Size verursacht übrigens keinen Error im herkömmlichen Sinn (keine Fehlermeldung im Errorlogfile) sondern bricht einfach ab, wie bei einem exit.

So long, noch einen schönen Sonntag,

sunawa