Hi all,

I have a script that reads in lines from an input file called ccrConfig.cfg. If the file exists, it works perfectly, but if the file is missing, it terminates with an error. "Can't return outside a subroutine at ./ccrutil.pl line 59." (line 59 is the 'return unless' statement)

I'm quite the Perl newbie, so I'm not sure where exactly to put the 'die' statement in the following loop: 
if ($read) {
    my $cvsfilecount = 0;
    print ("\nCCRUtil: Reading configuration\n\n");
    my $fh2 = new IO::File("<ccrConfig.cfg");
    return unless($fh2);
    my @state2 = <$fh2>;
    foreach my $f (@state2) {
        chomp($f);
            dprint( "Checking out project file: $f\n");
            `cvs co $f`; 
             $cvsfilecount++
    }
    print "\nCCRUtil complete: $cvsfilecount files added from CVS.\n";
}

[download]


Any insight is as always very much appreciated, and thanks again for all the help so far.

In reply to Question regarding input file / script termination by Seventh

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.