Help for this page

Select Code to Download


  1. or download this
    -if ( $us eq "ee" ) { $comm = ';'; } else { $comm = '#'; }
+if ( $us eq "ee" ) { $comm = ';'; } else { $comm = '
  2. or download this
    -   die(&pwarn($comm)) if $topline =~ /\#\!.*perl/i ;
+   die(&pwarn($comm)) if $topline =~ /\
  3. or download this
    -     if ( $topline =~ /(\s+)\#\!/ ) {
+     if ( $topline =~ /(\s+)\