#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Debug; use CGI::Carp qw( fatalsToBrowser ); BEGIN { sub carp_error { my $error_message = shift; my $q = new CGI; $q->start_html( "Not able to create directory" ), $q->h1( "Error" ), $q->p( "Not able to create directory" ), $q->p( $q->i( $error_message ) ), $q->end_html; } CGI::Carp::set_message( \&carp_error ); } system("mkdir -p test"); if ($@) { print "Not able to create directory\n"; }
In reply to Re: trapping system error
by Khen1950fx
in thread trapping system error
by anu_1
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |